--- gforth/gforth.el	2000/03/18 21:27:38	1.37
+++ gforth/gforth.el	2000/04/02 20:18:26	1.38
@@ -1000,24 +1000,24 @@ The region is sent terminated by a newli
  '(forth-mode)
  (append
   '(("\\\\ \\(.*\\)$" nil comment)) ; comments
-  '(("( [^)]* -- [^)]* )" nil decl))
-  '(("( -- [^)]* )" nil decl))
-  '(("( [^)]* -- )" nil decl))
+  '(("( [^)\n]* -- [^)\n]* )" nil decl))
+  '(("( -- [^)\n]* )" nil decl))
+  '(("( [^)\n]* -- )" nil decl))
   '(("( -- )" nil decl))
   '(("( " ")" comment))
-  '(("\" [^\"]*\"" nil string))
+  '(("\" [^\"\n]*\"" 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))
+  '((": *[^ \n]*" nil defun))
+  '(("Defer *[^ \n]*" nil defun))
+  '(("Variable *[^ \n]*" nil define))
+  '(("Constant *[^ \n]*" nil define))
+  '(("include *[^ \n]*" nil include))
+  '(("require *[^ \n]*" nil include))
   '(("[ 	]\\$[0-9A-Fa-f]+" nil formula))
   '(("[ 	]&[0-9]+" nil formula))
   '(("[ 	][0-9]+" nil formula))
   '(("[ 	]%[01]+" nil formula))
-  '(("[ 	]'[^ ]+" nil formula))
+  '(("[ 	]'[^ \n]+" nil formula))
   '((":noname" nil defun))))
 
 ;; end