Mercurial > emacs

comparison lisp/progmodes/fortran.el @ 10883:526ba0811e2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use font-lock-maximum-decoration when setting fortran-font-lock-keywords.
author Simon Marshall <simon@gnu.org>
date Thu, 02 Mar 1995 11:20:30 +0000
parents a5e881c047ce
children e7c26522b881
comparison
equal deleted inserted replaced
10882:bb8df7aad5ef 10883:526ba0811e2e
241 '(2 font-lock-reference-face nil t)) 241 '(2 font-lock-reference-face nil t))
242 (cons "^[ \t]*\\([0-9]+\\)" 'font-lock-reference-face)))) 242 (cons "^[ \t]*\\([0-9]+\\)" 'font-lock-reference-face))))
243 "For consideration as a value of `fortran-font-lock-keywords'. 243 "For consideration as a value of `fortran-font-lock-keywords'.
244 This does a lot more highlighting.") 244 This does a lot more highlighting.")
245 245
246 (defconst fortran-font-lock-keywords fortran-font-lock-keywords-1 246 (defvar fortran-font-lock-keywords (if font-lock-maximum-decoration
247 fortran-font-lock-keywords-2
248 fortran-font-lock-keywords-1)
247 "Additional expressions to highlight in Fortran mode.") 249 "Additional expressions to highlight in Fortran mode.")
248 250
249 (defvar fortran-mode-map () 251 (defvar fortran-mode-map ()
250 "Keymap used in Fortran mode.") 252 "Keymap used in Fortran mode.")
251 (if fortran-mode-map 253 (if fortran-mode-map