(mark-fortran-subprogram): Activate mark

[gnu-emacs] / lisp / ada.el

diff --git a/lisp/ada.el b/lisp/ada.el
index bae849bbbd101508dbf0022d954338a7899140a0..bf7633bf82d47777f2416ba42c5393b31e951d5b 100644 (file)
--- a/lisp/ada.el
+++ b/lisp/ada.el
@@ -140,7 +140,9 @@ This does fairly subdued highlighting.")
   "For consideration as a value of `ada-font-lock-keywords'.
 This does a lot more highlighting.")
 
-(defvar ada-font-lock-keywords ada-font-lock-keywords-1
+(defvar ada-font-lock-keywords (if font-lock-maximum-decoration
+                                  ada-font-lock-keywords-2
+                                ada-font-lock-keywords-1)
   "Additional expressions to highlight in Ada mode.")
 
 (defvar ada-mode-map nil