[gforth] / gforth / gforth.el  

gforth: gforth/gforth.el

Diff for /gforth/gforth.el between version 1.69 and 1.70

version 1.69, Mon Aug 4 21:21:13 2003 UTC version 1.70, Thu Apr 8 10:42:26 2004 UTC
Line 434 
Line 434 
         (("else" "recover" "[else]") (-2 . 2) (0 . 0))          (("else" "recover" "[else]") (-2 . 2) (0 . 0))
         (("does>") (-1 . 1) (0 . 0))          (("does>") (-1 . 1) (0 . 0))
         (("while" "[while]") (-2 . 4) (0 . 2))          (("while" "[while]") (-2 . 4) (0 . 2))
         (("repeat" "[repeat]") (-4 . 0) (0 . -4))          (("repeat" "[repeat]") (-4 . 0) (0 . -4))))
         (("\\g") (-2 . 2) (0 . 0))))  
   
 (defvar forth-local-indent-words nil  (defvar forth-local-indent-words nil
   "List of Forth words to prepend to `forth-indent-words', when a forth-mode    "List of Forth words to prepend to `forth-indent-words', when a forth-mode
Line 827 
Line 826 
   
 ;; Return the column increment, that the current line of forth code does to  ;; Return the column increment, that the current line of forth code does to
 ;; the current or following lines. `which' specifies which indentation values  ;; the current or following lines. `which' specifies which indentation values
 ;; to use. 0 means the indentation of following lines relative to current  ;; to use. 1 means the indentation of following lines relative to current
 ;; line, 1 means the indentation of the current line relative to the previous  ;; line, 0 means the indentation of the current line relative to the previous
 ;; line. Return `nil', if there are no indentation words on the current line.  ;; line. Return `nil', if there are no indentation words on the current line.
 (defun forth-get-column-incr (which)  (defun forth-get-column-incr (which)
   (save-excursion    (save-excursion
Line 1682 
Line 1681 
     (comint-check-source file-name) ; Check to see if buffer needs saved.      (comint-check-source file-name) ; Check to see if buffer needs saved.
     (setq forth-prev-l/c-dir/file (cons (file-name-directory    file-name)      (setq forth-prev-l/c-dir/file (cons (file-name-directory    file-name)
                                         (file-name-nondirectory file-name)))                                          (file-name-nondirectory file-name)))
     (comint-send-string (forth-proc) (concat "(load \""      (comint-send-string (forth-proc)
                                              file-name                          (concat "s\" " file-name "\" included\n")))
                                              "\"\)\n")))  
   
   
   
   (defvar forth-process-buffer nil "*The current Forth process buffer.    (defvar forth-process-buffer nil "*The current Forth process buffer.

Generate output suitable for use with a patch program
Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help