Diff for /gforth/gforth.el between versions 1.44 and 1.45

version 1.44, 2000/10/01 11:20:05 version 1.45, 2000/11/16 09:39:51
Line 992  The region is sent terminated by a newli Line 992  The region is sent terminated by a newli
   
 ;;; Highlighting  ;;; Highlighting
   
 (if (not (file-exists-p "/usr/share/emacs/site-lisp/hl319.el"))  (cond ((featurep 'hilit19)
     (require 'hilit19)   (if (not (file-exists-p "/usr/share/emacs/site-lisp/hl319.el"))
   (require 'hl319))       (require 'hilit19)
      (require 'hl319))
   
 (hilit-set-mode-patterns   (hilit-set-mode-patterns
  '(forth-mode)    '(forth-mode)
  (append    (append
   '(("\\\\ \\(.*\\)$" nil comment)) ; comments     '(("\\\\ \\(.*\\)$" nil comment))    ; comments
   '(("\\\\[gG] \\(.*\\)$" nil comment)) ; comments     '(("\\\\[gG] \\(.*\\)$" nil comment)) ; comments
   '(("(\\( [^)\n]* \\| \\)--\\( [^)\n]* \\| \\))" nil decl))     '(("(\\( [^)\n]* \\| \\)--\\( [^)\n]* \\| \\))" nil decl))
   '(("( " ")" comment))     '(("( " ")" comment))
   '(("\" [^\"\n]*\"" nil string))     '(("\" [^\"\n]*\"" nil string))
   '(("\\(\\[IF]\\|\\[IFDEF]\\|\\[IFUNDEF]\\|\\[ELSE]\\|\\[THEN]\\|IF\\|ELSE\\|THEN\\|CASE\\|ENDCASE\\|OF\\|ENDOF\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\|AGAIN\\|DOES>\\|?DO\\|DO\\|\+LOOP\\|UNLOOP\\|LOOP\\|EXIT\\)" nil keyword))     '(("\\(\\[IF]\\|\\[IFDEF]\\|\\[IFUNDEF]\\|\\[ELSE]\\|\\[THEN]\\|IF\\|ELSE\\|THEN\\|CASE\\|ENDCASE\\|OF\\|ENDOF\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\|AGAIN\\|DOES>\\|?DO\\|DO\\|\+LOOP\\|UNLOOP\\|LOOP\\|EXIT\\)" nil keyword))
   '(("\\(\\[if]\\|\\[ifdef]\\|\\[ifundef]\\|\\[else]\\|\\[then]\\|if\\|else\\|then\\|case\\|endcase\\|of\\|endof\\|begin\\|while\\|repeat\\|until\\|again\\|does>\\|?do\\|do\\|\+loop\\|unloop\\|loop\\|exit\\)" nil keyword))     '(("\\(\\[if]\\|\\[ifdef]\\|\\[ifundef]\\|\\[else]\\|\\[then]\\|if\\|else\\|then\\|case\\|endcase\\|of\\|endof\\|begin\\|while\\|repeat\\|until\\|again\\|does>\\|?do\\|do\\|\+loop\\|unloop\\|loop\\|exit\\)" 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))
   '(("\\(include\\|require\\) *[^ \n]*" nil include))     '(("\\(include\\|require\\) *[^ \n]*" nil include))
   '(("[\n       ]\\(\\$[0-9A-Fa-f]+[\n  ]\\|&[0-9]+[\n  ]\\|[0-9]+[\n   ]\\|%[01]+[\n   ]\\|'[^ \n]+\\)+" nil formula))     '(("[\n      ]\\(\\$[0-9A-Fa-f]+[\n  ]\\|&[0-9]+[\n  ]\\|[0-9]+[\n   ]\\|%[01]+[\n   ]\\|'[^ \n]+\\)+" nil formula))
   '((":noname" nil defun))))     '((":noname" nil defun))))))
   
 ;; end  ;; end
   

Removed from v.1.44  
changed lines
  Added in v.1.45


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