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

Add some f90 preprocessor font-lock (bug#10499)

Browse source 
* lisp/progmodes/f90.el (f90-font-lock-keywords-2):
Add some preprocessor elements.
This commit is contained in:
Glenn Morris 2012-06-21 15:31:49 -04:00
parent bde2ab6f5b
commit 9e29ca4f48
2 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2012-06-21 Glenn Morris <rgm@gnu.org>
* progmodes/f90.el (f90-font-lock-keywords-2):
Add some preprocessor elements. (Bug#10499)
2012-06-21 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/cperl-mode.el (cperl-update-syntaxification):

10
lisp/progmodes/f90.el
View file

@ -233,6 +233,7 @@
:safe 'stringp
:group 'f90-indent)
;; Should we add ^# to this? That's not really a comment.
(defcustom f90-directive-comment-re "!hpf\\$"
"Regexp of comment-like directive like \"!HPF\\\\$\", not to be indented."
:type 'regexp
@ -627,7 +628,14 @@ logical\\|double[ \t]*precision\\|type[ \t]*(\\sw+)\\|none\\)[ \t]*"
'("\\<\\(do\\|go[ \t]*to\\)\\>[ \t]*\\([0-9]+\\)"
(1 font-lock-keyword-face) (2 font-lock-constant-face))
;; Line numbers (lines whose first character after number is letter).
'("^[ \t]*\\([0-9]+\\)[ \t]*[a-z]+" (1 font-lock-constant-face t))))
'("^[ \t]*\\([0-9]+\\)[ \t]*[a-z]+" (1 font-lock-constant-face t))
;; Override eg for "#include".
'("^#[ \t]*\\w+" (0 font-lock-preprocessor-face t)
("\\<defined\\>" nil nil (0 font-lock-preprocessor-face)))
'("^#" ("\\(&&\\|||\\)" nil nil (0 font-lock-constant-face t)))
'("^#[ \t]*define[ \t]+\\(\\w+\\)(" (1 font-lock-function-name-face))
'("^#[ \t]*define[ \t]+\\(\\w+\\)" (1 font-lock-variable-name-face))
'("^#[ \t]*include[ \t]+\\(<.+>\\)" (1 font-lock-string-face))))
"Highlights declarations, do-loops and other constructs.")
(defvar f90-font-lock-keywords-3