From 09e06855caeb0ca4fe201c39264a5fc1463da3ab Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 11 Jun 2012 17:07:58 -0400 Subject: [PATCH] Change face used for fortran.el directives * lisp/progmodes/fortran.el (fortran-font-lock-keywords-3): Use preprocessor face for directives. (fortran-directive-re): Doc fix. --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/fortran.el | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cbc75182f0f..c3930f27a6d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2012-06-11 Glenn Morris + + * progmodes/fortran.el (fortran-font-lock-keywords-3): + Use preprocessor face for directives. + (fortran-directive-re): Doc fix. + 2012-06-11 Stefan Monnier * emacs-lisp/cl-macs.el (cl-parse-loop-clause): Fix error in recent diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 8d488fe9be4..665b0767b2c 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -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))) -- 2.39.5