Commit eb9f0295 authored by Glenn Morris's avatar Glenn Morris
Browse files

(f90-font-lock-keywords-1): Simplify `type' value a little.

(f90-type-def-re): Simplify value a little.
parent fa32e96a
...@@ -339,9 +339,8 @@ The options are 'downcase-word, 'upcase-word, 'capitalize-word and nil." ...@@ -339,9 +339,8 @@ The options are 'downcase-word, 'upcase-word, 'capitalize-word and nil."
(list (list
;; Special highlighting of "module procedure". ;; Special highlighting of "module procedure".
'("\\<\\(module[ \t]*procedure\\)\\>" (1 font-lock-keyword-face)) '("\\<\\(module[ \t]*procedure\\)\\>" (1 font-lock-keyword-face))
;; Highlight declaration of derived type. ;; Highlight definition of derived type.
'("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>[ \t]*\\([^()\n]*::[ \t]*\\)?\ '("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>\\([^()\n]*::\\)?[ \t]*\\(\\sw+\\)"
\\(\\sw+\\)"
(1 font-lock-keyword-face) (3 font-lock-function-name-face)) (1 font-lock-keyword-face) (3 font-lock-function-name-face))
;; Other functions and declarations. ;; Other functions and declarations.
'("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|\ '("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|\
...@@ -633,7 +632,7 @@ do\\([ \t]*while\\)?\\|select[ \t]*case\\|where\\|forall\\)\\)\\>" ...@@ -633,7 +632,7 @@ do\\([ \t]*while\\)?\\|select[ \t]*case\\|where\\|forall\\)\\)\\>"
"Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.") "Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.")
(defconst f90-type-def-re (defconst f90-type-def-re
"\\<\\(type\\)\\>[ \t]*\\(?:[^()\n]*::[ \t]*\\)?\\(\\sw+\\)" "\\<\\(type\\)\\>\\(?:[^()\n]*::\\)?[ \t]*\\(\\sw+\\)"
"Regexp matching the definition of a derived type.") "Regexp matching the definition of a derived type.")
(defconst f90-no-break-re (defconst f90-no-break-re
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment