Diff for /gforth/gforth.el between versions 1.37 and 1.38

version 1.37, 2000/03/18 21:27:38 version 1.38, 2000/04/02 20:18:26
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
   '(("( [^)]* -- [^)]* )" nil decl))    '(("( [^)\n]* -- [^)\n]* )" nil decl))
   '(("( -- [^)]* )" nil decl))    '(("( -- [^)\n]* )" nil decl))
   '(("( [^)]* -- )" nil decl))    '(("( [^)\n]* -- )" nil decl))
   '(("( -- )" nil decl))    '(("( -- )" nil decl))
   '(("( " ")" comment))    '(("( " ")" comment))
   '(("\" [^\"]*\"" nil string))    '(("\" [^\"\n]*\"" nil string))
   '(("\\(IF\\|ELSE\\|THEN\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\)" nil keyword))    '(("\\(IF\\|ELSE\\|THEN\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\)" nil keyword))
   '((": *[^ ]*" nil defun))    '((": *[^ \n]*" nil defun))
   '(("Defer *[^ ]*" nil defun))    '(("Defer *[^ \n]*" nil defun))
   '(("Variable *[^ ]*" nil define))    '(("Variable *[^ \n]*" nil define))
   '(("Constant *[^ ]*" nil define))    '(("Constant *[^ \n]*" nil define))
   '(("include *[^ ]*" nil include))    '(("include *[^ \n]*" nil include))
   '(("require *[^ ]*" nil include))    '(("require *[^ \n]*" nil include))
   '(("[         ]\\$[0-9A-Fa-f]+" nil formula))    '(("[         ]\\$[0-9A-Fa-f]+" nil formula))
   '(("[         ]&[0-9]+" nil formula))    '(("[         ]&[0-9]+" nil formula))
   '(("[         ][0-9]+" nil formula))    '(("[         ][0-9]+" nil formula))
   '(("[         ]%[01]+" nil formula))    '(("[         ]%[01]+" nil formula))
   '(("[         ]'[^ ]+" nil formula))    '(("[         ]'[^ \n]+" nil formula))
   '((":noname" nil defun))))    '((":noname" nil defun))))
   
 ;; end  ;; end

Removed from v.1.37  
changed lines
  Added in v.1.38


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