Diff for /gforth/gforth.el between versions 1.40 and 1.41

version 1.40, 2000/04/12 20:53:46 version 1.41, 2000/04/29 21:12:14
Line 1000  The region is sent terminated by a newli Line 1000  The region is sent terminated by a newli
  '(forth-mode)   '(forth-mode)
  (append   (append
   '(("\\\\ \\(.*\\)$" nil comment)) ; comments    '(("\\\\ \\(.*\\)$" nil comment)) ; comments
   '(("( [^)\n]* -- [^)\n]* )" nil decl))    '(("(\\( [^)\n]* \\| \\)--\\( [^)\n]* \\| \\))" nil decl))
   '(("( -- [^)\n]* )" nil decl))  
   '(("( [^)\n]* -- )" nil decl))  
   '(("( -- )" nil decl))  
   '(("( " ")" comment))    '(("( " ")" comment))
   '(("\" [^\"\n]*\"" nil string))    '(("\" [^\"\n]*\"" nil string))
   '(("\\(\\[IF]\\|\\[IFDEF]\\|\\[IFUNDEF]\\|\\[ELSE]\\|\\[THEN]\\|IF\\|ELSE\\|THEN\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\|DOES>\\|?DO\\|DO\\|\+LOOP\\|LOOP\\)" nil keyword))    '(("\\(\\[IF]\\|\\[IFDEF]\\|\\[IFUNDEF]\\|\\[ELSE]\\|\\[THEN]\\|IF\\|ELSE\\|THEN\\|CASE\\|ENDCASE\\|OF\\|ENDOF\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\|DOES>\\|?DO\\|DO\\|\+LOOP\\|LOOP\\)" nil keyword))
   '((": *[^ \n]*" nil defun))    '((": *[^ \n]*" nil defun))
   '(("Defer *[^ \n]*" nil defun))    '(("Defer *[^ \n]*" nil defun))
   '(("\\(Variable\\|Constant\\|Value\\|Create\\) *[^ \n]*" nil define))    '(("\\(Variable\\|Constant\\|Value\\|Create\\) *[^ \n]*" nil define))

Removed from v.1.40  
changed lines
  Added in v.1.41


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