--- gforth/gforth.el	2000/10/01 11:20:05	1.44
+++ gforth/gforth.el	2000/11/16 09:39:51	1.45
@@ -992,26 +992,27 @@ The region is sent terminated by a newli
 
 ;;; Highlighting
 
-(if (not (file-exists-p "/usr/share/emacs/site-lisp/hl319.el"))
-    (require 'hilit19)
-  (require 'hl319))
+(cond ((featurep 'hilit19)
+ (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
-  '(("\\\\[gG] \\(.*\\)$" nil comment)) ; comments
-  '(("(\\( [^)\n]* \\| \\)--\\( [^)\n]* \\| \\))" nil decl))
-  '(("( " ")" comment))
-  '(("\" [^\"\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))
-  '((": *[^ \n]*" nil defun))
-  '(("Defer *[^ \n]*" nil defun))
-  '(("\\(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))))
+ (hilit-set-mode-patterns
+  '(forth-mode)
+  (append
+   '(("\\\\ \\(.*\\)$" nil comment))    ; comments
+   '(("\\\\[gG] \\(.*\\)$" nil comment)) ; comments
+   '(("(\\( [^)\n]* \\| \\)--\\( [^)\n]* \\| \\))" nil decl))
+   '(("( " ")" comment))
+   '(("\" [^\"\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))
+   '((": *[^ \n]*" nil defun))
+   '(("Defer *[^ \n]*" nil defun))
+   '(("\\(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))))))
 
 ;; end