[BACK]Return to gforth.el CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/gforth.el between versions 1.3 and 1.5

version 1.3, 1994/07/08 15:00:41 version 1.5, 1994/07/29 11:16:21
Line 1 Line 1
 ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
 ;; Changes by anton  ;; Changes by anton
   ;; This is a variant of forth.el that came with TILE
   ;; I left most of this stuff untouched and made just a few changes for 
   ;; the things I use.
   ;; So there is still a lot of work to do to adapt this to gforth
   
 ;; GNU Emacs is distributed in the hope that it will be useful,  ;; GNU Emacs is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY.  No author or distributor  ;; but WITHOUT ANY WARRANTY.  No author or distributor
Line 33 Line 37
   
   
 (defvar forth-positives  (defvar forth-positives
   " : begin do ?do while if ?dup-if ?dup-not-if else case create does> exception> "    " : :noname begin do ?do while if ?dup-if ?dup-not-if else case create does> exception> struct "
   "Contains all words which will cause the indent-level to be incremented    "Contains all words which will cause the indent-level to be incremented
 on the next line.  on the next line.
 OBS! All words in forth-positives must be surrounded by spaces.")  OBS! All words in forth-positives must be surrounded by spaces.")
   
 (defvar forth-negatives  (defvar forth-negatives
   " ; until repeat while +loop loop else then endif again endcase does> "    " ; until repeat while +loop loop s+loop else then endif again endcase does> end-struct "
   "Contains all words which will cause the indent-level to be decremented    "Contains all words which will cause the indent-level to be decremented
 on the current line.  on the current line.
 OBS! All words in forth-negatives must be surrounded by spaces.")  OBS! All words in forth-negatives must be surrounded by spaces.")
   
 (defvar forth-zeroes  (defvar forth-zeroes
   " : "    " : :noname "
   "Contains all words which causes the indent to go to zero")    "Contains all words which causes the indent to go to zero")
   
 (defvar forth-mode-abbrev-table nil  (defvar forth-mode-abbrev-table nil
Line 314  Variables controling documentation searc Line 318  Variables controling documentation searc
   
 ;; Forth commands  ;; Forth commands
   
 (defvar forth-program-name "forth"  (defvar forth-program-name "gforth"
   "*Program invoked by the `run-forth' command.")    "*Program invoked by the `run-forth' command.")
   
 (defvar forth-band-name nil  (defvar forth-band-name nil
Line 617  The region is sent terminated by a newli Line 621  The region is sent terminated by a newli
 ;; Misc  ;; Misc
   
 (setq auto-mode-alist (append auto-mode-alist  (setq auto-mode-alist (append auto-mode-alist
                                 '(("\\.f83$" . forth-mode))))                                  '(("\\.fs$" . forth-mode))))
   
 (defun forth-split ()  (defun forth-split ()
   (interactive)    (interactive)
Removed from v.1.3  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>