# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 831774586 0
# Node ID 5be55ce2c9facb7879ef9303a0adb73e7a1cfe58
# Parent  16d0e8c363785e48727a55141dc52d460aa42e31
(f90-hilit-patterns): Avoid using undefined variables.

diff -r 16d0e8c36378 -r 5be55ce2c9fa lisp/progmodes/f90.el
--- a/lisp/progmodes/f90.el	Fri May 10 23:07:10 1996 +0000
+++ b/lisp/progmodes/f90.el	Sat May 11 00:29:46 1996 +0000
@@ -514,15 +514,15 @@
    (list "\\<\\(exit\\|cycle\\)[ \t]*\\sw+\\>" nil f90-face-label)
    (list "\\<\\(stop\\|return\\)\\>" nil f90-face-stop)
    (list "^[ \t]*\\(case\\)[ \t]*\\((\\|default\\)" 1 f90-face-select)
-   (list (concat "\\<\\("(mapconcat 'identity f90-keywords "\\|")
+   (list (concat "\\<\\("(mapconcat 'identity f90-keywords-re "\\|")
 		 "\\)\\>") nil f90-face-keyword)
- (list (concat "\\<\\("(mapconcat 'identity f90-intrinsic-procedures "\\|")
+ (list (concat "\\<\\("(mapconcat 'identity f90-procedures-re "\\|")
 	       "\\)\\>") nil f90-face-intrinsics)
- (list (concat "\\<\\("(mapconcat 'identity f90-hpf-procedures "\\|")
-	       "\\)\\>") nil f90-face-hpf-procedures)
- (list (concat "\\<\\("(mapconcat 'identity f90-hpf-directives "\\|")
-	       "\\)\\>") nil f90-face-hpf-directives)
- (list (concat "\\<\\("(mapconcat 'identity f90-hpf-keywords "\\|")
+;;; (list (concat "\\<\\("(mapconcat 'identity f90-hpf-procedures "\\|")
+;;;	       "\\)\\>") nil f90-face-hpf-procedures)
+;;; (list (concat "\\<\\("(mapconcat 'identity f90-hpf-directives "\\|")
+;;;	       "\\)\\>") nil f90-face-hpf-directives)
+ (list (concat "\\<\\("(mapconcat 'identity f90-hpf-keywords-re "\\|")
 	       "\\)\\>") nil f90-face-hpf-keywords)))
 
 ;; syntax table
@@ -804,7 +804,7 @@
     Do not left-justify line numbers. (default nil)
  f90-startup-message
     Set to nil to inhibit message first time F90 mode is used. (default t)
- f90-keywords
+ f90-keywords-re
     List of keywords used for highlighting/upcase-keywords etc.
 
 Turning on F90 mode calls the value of the variable `f90-mode-hook'