comparison lisp/progmodes/ada-mode.el @ 10880:7c5fe757600b

Use font-lock-maximum-decoration when setting ada-font-lock-keywords

10879:73ce8261c2ce

;;; LCD Archive Entry:
;;; ada-mode|Rolf Ebert|<[e-mail]>
;;; |Major-mode for Ada
;;; |$Date: 1995/02/09 00:01:34 $|$Revision: 1.1 $|


(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 $

Report bugs to: Rolf Ebert <[e-mail]>")


;;;--------------------

    '("<<\\(\\sw+\\)>>" 1 font-lock-reference-face)
    ))
  "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
  "*Expressions to highlight in Ada mode.")

;;;
;;; ????
;;;

10880:7c5fe757600b

;;; LCD Archive Entry:
;;; ada-mode|Rolf Ebert|<[e-mail]>
;;; |Major-mode for Ada
;;; |$Date: 1995/02/09 00:17:31 $|$Revision: 1.2 $|


(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 <[e-mail]>")


;;;--------------------

    '("<<\\(\\sw+\\)>>" 1 font-lock-reference-face)
    ))
  "For consideration as a value of `ada-font-lock-keywords'.
This does a lot more highlighting.")

(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.")

;;;
;;; ????
;;;