Mercurial > emacs
changeset 15207:5be55ce2c9fa
(f90-hilit-patterns): Avoid using undefined variables.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 11 May 1996 00:29:46 +0000 |
| parents | 16d0e8c36378 |
| children | 01588278fceb |
| files | lisp/progmodes/f90.el |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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'