procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change face used for fortran.el directives

Browse source 
* lisp/progmodes/fortran.el (fortran-font-lock-keywords-3):
Use preprocessor face for directives.
(fortran-directive-re): Doc fix.
This commit is contained in:
Glenn Morris 2012-06-11 17:07:58 -04:00
parent 2eb8792296
commit 09e06855ca
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2012-06-11 Glenn Morris <rgm@gnu.org>
* progmodes/fortran.el (fortran-font-lock-keywords-3):
Use preprocessor face for directives.
(fortran-directive-re): Doc fix.
2012-06-11 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/cl-macs.el (cl-parse-loop-clause): Fix error in recent

4
lisp/progmodes/fortran.el
View file

@ -165,7 +165,7 @@ allow trailing comments on a line."
(defcustom fortran-directive-re
"^[ \t]*#.*"
"Regexp to match a directive line.
The matching text will be fontified with `font-lock-keyword-face'.
The matching text will be fontified with `font-lock-preprocessor-face'.
The matching line will be given zero indentation."
:version "22.1"
:type 'regexp
@ -452,7 +452,7 @@ The only difference is, it returns t in a case when the default returns nil."
;; Standard continuation character and in a TAB-formatted line.
'("^ \\{5\\}\\([^ 0\n]\\)" 1 font-lock-string-face)
'("^\t\\([1-9]\\)" 1 font-lock-string-face))
`((,fortran-directive-re (0 font-lock-keyword-face t)))
`((,fortran-directive-re (0 font-lock-preprocessor-face t)))
;; `fortran-font-lock-keywords-2' without types (see above).
(cdr (nthcdr (length fortran-font-lock-keywords-1)
fortran-font-lock-keywords-2)))