[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r108564: Change face used for fortran
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r108564: Change face used for fortran.el directives |
Date: |
Mon, 11 Jun 2012 17:07:58 -0400 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r108564: Change face used for fortran.el directives,
Glenn Morris <=