Use font-lock-maximum-decoration to set ada-font-lock-keywords.

352e62b7 · Simon Marshall · c1a644d3 · 352e62b7
Commit 352e62b7 authored Mar 02, 1995 by Simon Marshall
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

lisp/ada.el lisp/ada.el +3 -1

No files found.
--- 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