gforth/gforth.el - diff - 1.36

Return to gforth.el CVS log

Up to [gforth] / gforth

Diff for /gforth/gforth.el between versions 1.35 and 1.36

version 1.35, 1999/10/15 23:18:20	version 1.36, 1999/11/20 12:12:52
Line 40	Line 40


(defvar forth-positives	(defvar forth-positives
" : :noname m: :m code interpretation: ;code does> begin do ?do +do -do u+do u-do while if ?dup-if ?dup-0=-if else case of struct [if] [ifdef] [ifundef] [else] with public: private: class "	" : :noname m: :m code interpretation: ;code does> begin do ?do +do -do u+do u-do while if ?dup-if ?dup-0=-if else case of struct [if] [ifdef] [ifundef] [else] with public: private: class try recover "
"*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
" ; ;m end-code ;code does> until repeat while +loop loop -loop s+loop else then endif again endcase endof end-struct [then] [else] [endif] endwith end-class class; how: "	" ; ;m end-code ;code does> until repeat while +loop loop -loop s+loop else then endif again endcase endof end-struct [then] [else] [endif] endwith end-class class; how: recover endtry "
"*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.")

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