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

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index adf1b9cc1fb7582f11df971a026f22e3de5c2d87..001571ff64190214710b12f7cb2af61432625859 100644 (file)
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -314,7 +314,9 @@ This does fairly subdued highlighting of comments and function names.")
   "For consideration as a value of `f90-font-lock-keywords'.
 This highlights variable types, \"keywords,\" etc.")
 
-(defvar f90-font-lock-keywords f90-font-lock-keywords-2
+(defvar f90-font-lock-keywords (if font-lock-maximum-decoration
+                                  f90-font-lock-keywords-2
+                                f90-font-lock-keywords-1)
   "*Additional expressions to highlight in F90 mode.")
 
 ;; hilit19 customization and expressions