[Emacs-diffs] /srv/bzr/emacs/trunk r108564: Change face used for fortran.el directives

[Glenn Morris]

------------------------------------------------------------
revno: 108564
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Mon 2012-06-11 17:07:58 -0400
message:
  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.
modified:
  lisp/ChangeLog
  lisp/progmodes/fortran.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-06-11 20:47:33 +0000
+++ b/lisp/ChangeLog    2012-06-11 21:07:58 +0000
@@ -1,3 +1,9 @@
+2012-06-11  Glenn Morris  <address@hidden>
+
+       * progmodes/fortran.el (fortran-font-lock-keywords-3):
+       Use preprocessor face for directives.
+       (fortran-directive-re): Doc fix.
+
 2012-06-11  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/cl-macs.el (cl-parse-loop-clause): Fix error in recent

=== modified file 'lisp/progmodes/fortran.el'
--- a/lisp/progmodes/fortran.el 2012-01-19 07:21:25 +0000
+++ b/lisp/progmodes/fortran.el 2012-06-11 21:07:58 +0000
@@ -165,7 +165,7 @@
 (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 @@
     ;; 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)))