From c1a644d3ea4f398209ef7b57e9797b5c961c86c8 Mon Sep 17 00:00:00 2001 From: Simon Marshall Date: Thu, 2 Mar 1995 11:07:44 +0000 Subject: [PATCH] Use font-lock-maximum-decoration when setting ada-font-lock-keywords --- lisp/progmodes/ada-mode.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index 9a6f2d7816d..a421469f605 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el @@ -109,11 +109,11 @@ ;;; LCD Archive Entry: ;;; ada-mode|Rolf Ebert| ;;; |Major-mode for Ada -;;; |$Date: 1995/02/09 00:01:34 $|$Revision: 1.1 $| +;;; |$Date: 1995/02/09 00:17:31 $|$Revision: 1.2 $| -(defconst ada-mode-version (substring "$Revision: 1.1 $" 11 -2) - "$Id: ada-mode.el,v 1.1 1995/02/09 00:01:34 rms Exp rms $ +(defconst ada-mode-version (substring "$Revision: 1.2 $" 11 -2) + "$Id: ada-mode.el,v 1.2 1995/02/09 00:17:31 rms Exp simon $ Report bugs to: Rolf Ebert ") @@ -3673,7 +3673,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-2 +(defvar ada-font-lock-keywords (if font-lock-maximum-decoration + ada-font-lock-keywords-2 + ada-font-lock-keywords-1) "*Expressions to highlight in Ada mode.") ;;; -- 2.39.5