diff options
| author | Glenn Morris <rgm@gnu.org> | 2012-06-11 17:07:58 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2012-06-11 17:07:58 -0400 |
| commit | 09e06855caeb0ca4fe201c39264a5fc1463da3ab (patch) | |
| tree | b84368d9280c6e3160f7555f1c6db201d0007aac /lisp/progmodes/fortran.el | |
| parent | 2eb87922965ced71c59e9ce6ae2e90afc0c8f421 (diff) | |
| download | emacs-09e06855caeb0ca4fe201c39264a5fc1463da3ab.tar.gz | |
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.
Diffstat (limited to 'lisp/progmodes/fortran.el')
| -rw-r--r-- | lisp/progmodes/fortran.el | 4 |
1 files changed, 2 insertions, 2 deletions
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))) |