--- gforth/gforth.el	2000/04/09 20:57:25	1.39
+++ gforth/gforth.el	2000/04/12 20:53:46	1.40
@@ -1006,13 +1006,11 @@ The region is sent terminated by a newli
   '(("( -- )" nil decl))
   '(("( " ")" comment))
   '(("\" [^\"\n]*\"" nil string))
-  '(("\\(\\[IF]\\|\\[IFDEF]\\|\\[IFUNDEF]\\|\\[ELSE]\\|\\[THEN]\\|IF\\|ELSE\\|THEN\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\|?DO\\|DO\\|\+LOOP\\|LOOP\\)" nil keyword))
+  '(("\\(\\[IF]\\|\\[IFDEF]\\|\\[IFUNDEF]\\|\\[ELSE]\\|\\[THEN]\\|IF\\|ELSE\\|THEN\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\|DOES>\\|?DO\\|DO\\|\+LOOP\\|LOOP\\)" nil keyword))
   '((": *[^ \n]*" nil defun))
   '(("Defer *[^ \n]*" nil defun))
-  '(("Variable *[^ \n]*" nil define))
-  '(("Constant *[^ \n]*" nil define))
-  '(("include *[^ \n]*" nil include))
-  '(("require *[^ \n]*" nil include))
+  '(("\\(Variable\\|Constant\\|Value\\|Create\\) *[^ \n]*" nil define))
+  '(("\\(include\\|require\\) *[^ \n]*" nil include))
   '(("[\n 	]\\(\\$[0-9A-Fa-f]+[\n 	]\\|&[0-9]+[\n 	]\\|[0-9]+[\n 	]\\|%[01]+[\n 	]\\|'[^ \n]+\\)+" nil formula))
   '((":noname" nil defun))))