gforth/gforth.el - diff

Return to gforth.el CVS log

Up to [gforth] / gforth

-version 1.36, 1999/11/20 12:12:52
+version 1.37, 2000/03/18 21:27:38
  Line 990  The region is sent terminated by a newli
  ;       (define-key global-map '(shift button3) 'mouse-function-menu)
  ))
+ ;;; Highlighting
+ (if (not (file-exists-p "/usr/share/emacs/site-lisp/hl319.el"))
+     (require 'hilit19)
+   (require 'hl319))
+ (hilit-set-mode-patterns
+  '(forth-mode)
+  (append
+   '(("\\\\ \\(.*\\)$" nil comment)) ; comments
+   '(("( [^)]* -- [^)]* )" nil decl))
+   '(("( -- [^)]* )" nil decl))
+   '(("( [^)]* -- )" nil decl))
+   '(("( -- )" nil decl))
+   '(("( " ")" comment))
+   '(("\" [^\"]*\"" nil string))
+   '(("\\(IF\\|ELSE\\|THEN\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\)" nil keyword))
+   '((": *[^ ]*" nil defun))
+   '(("Defer *[^ ]*" nil defun))
+   '(("Variable *[^ ]*" nil define))
+   '(("Constant *[^ ]*" nil define))
+   '(("include *[^ ]*" nil include))
+   '(("require *[^ ]*" nil include))
+   '(("[         ]\\$[0-9A-Fa-f]+" nil formula))
+   '(("[         ]&[0-9]+" nil formula))
+   '(("[         ][0-9]+" nil formula))
+   '(("[         ]%[01]+" nil formula))
+   '(("[         ]'[^ ]+" nil formula))
+   '((":noname" nil defun))))
  ;; end