From: Simon Marshall <simon@gnu.org>
Date: Thu, 2 Mar 1995 11:10:55 +0000 (+0000)
Subject: Use font-lock-maximum-decoration to set ada-font-lock-keywords.
X-Git-Tag: emacs-19.34~4977
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=352e62b7752a5f676a7d0ac09e3ef24dfd9322f5;p=emacs.git

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

diff --git a/lisp/ada.el b/lisp/ada.el
index bae849bbbd1..bf7633bf82d 100644
--- 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