Mercurial > emacs
comparison lisp/progmodes/ada-mode.el @ 10880:7c5fe757600b
Use font-lock-maximum-decoration when setting ada-font-lock-keywords
author | Simon Marshall <simon@gnu.org> |
---|---|
date | Thu, 02 Mar 1995 11:07:44 +0000 |
parents | 4a2ea4f52ea0 |
children | 394f205af26d |
comparison
equal
deleted
inserted
replaced
10879:73ce8261c2ce | 10880:7c5fe757600b |
---|---|
107 | 107 |
108 | 108 |
109 ;;; LCD Archive Entry: | 109 ;;; LCD Archive Entry: |
110 ;;; ada-mode|Rolf Ebert|<ebert@inf.enst.fr> | 110 ;;; ada-mode|Rolf Ebert|<ebert@inf.enst.fr> |
111 ;;; |Major-mode for Ada | 111 ;;; |Major-mode for Ada |
112 ;;; |$Date: 1995/02/09 00:01:34 $|$Revision: 1.1 $| | 112 ;;; |$Date: 1995/02/09 00:17:31 $|$Revision: 1.2 $| |
113 | 113 |
114 | 114 |
115 (defconst ada-mode-version (substring "$Revision: 1.1 $" 11 -2) | 115 (defconst ada-mode-version (substring "$Revision: 1.2 $" 11 -2) |
116 "$Id: ada-mode.el,v 1.1 1995/02/09 00:01:34 rms Exp rms $ | 116 "$Id: ada-mode.el,v 1.2 1995/02/09 00:17:31 rms Exp simon $ |
117 | 117 |
118 Report bugs to: Rolf Ebert <ebert@inf.enst.fr>") | 118 Report bugs to: Rolf Ebert <ebert@inf.enst.fr>") |
119 | 119 |
120 | 120 |
121 ;;;-------------------- | 121 ;;;-------------------- |
3671 '("<<\\(\\sw+\\)>>" 1 font-lock-reference-face) | 3671 '("<<\\(\\sw+\\)>>" 1 font-lock-reference-face) |
3672 )) | 3672 )) |
3673 "For consideration as a value of `ada-font-lock-keywords'. | 3673 "For consideration as a value of `ada-font-lock-keywords'. |
3674 This does a lot more highlighting.") | 3674 This does a lot more highlighting.") |
3675 | 3675 |
3676 (defvar ada-font-lock-keywords ada-font-lock-keywords-2 | 3676 (defvar ada-font-lock-keywords (if font-lock-maximum-decoration |
3677 ada-font-lock-keywords-2 | |
3678 ada-font-lock-keywords-1) | |
3677 "*Expressions to highlight in Ada mode.") | 3679 "*Expressions to highlight in Ada mode.") |
3678 | 3680 |
3679 ;;; | 3681 ;;; |
3680 ;;; ???? | 3682 ;;; ???? |
3681 ;;; | 3683 ;;; |