Use font-lock-maximum-decoration when setting fortran-font-lock-keywords.

33308f7b · Simon Marshall · 47d310b8 · 33308f7b
Commit 33308f7b authored Mar 02, 1995 by Simon Marshall
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

lisp/progmodes/fortran.el lisp/progmodes/fortran.el +3 -1

No files found.
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -243,7 +243,9 @@ This does fairly subdued highlighting.")
  "For consideration as a value of `fortran-font-lock-keywords'.
 This does a lot more highlighting.")

-(defconst fortran-font-lock-keywords fortran-font-lock-keywords-1
+(defvar fortran-font-lock-keywords (if font-lock-maximum-decoration
+					 fortran-font-lock-keywords-2
+				       fortran-font-lock-keywords-1)
  "Additional expressions to highlight in Fortran mode.")

 (defvar fortran-mode-map ()