339 |
(list |
(list |
340 |
;; Special highlighting of "module procedure". |
;; Special highlighting of "module procedure". |
341 |
'("\\<\\(module[ \t]*procedure\\)\\>" (1 font-lock-keyword-face)) |
'("\\<\\(module[ \t]*procedure\\)\\>" (1 font-lock-keyword-face)) |
342 |
;; Highlight declaration of derived type. |
;; Highlight definition of derived type. |
343 |
'("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>[ \t]*\\([^()\n]*::[ \t]*\\)?\ |
'("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>\\([^()\n]*::\\)?[ \t]*\\(\\sw+\\)" |
|
\\(\\sw+\\)" |
|
344 |
(1 font-lock-keyword-face) (3 font-lock-function-name-face)) |
(1 font-lock-keyword-face) (3 font-lock-function-name-face)) |
345 |
;; Other functions and declarations. |
;; Other functions and declarations. |
346 |
'("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|\ |
'("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|\ |
632 |
"Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.") |
"Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.") |
633 |
|
|
634 |
(defconst f90-type-def-re |
(defconst f90-type-def-re |
635 |
"\\<\\(type\\)\\>[ \t]*\\(?:[^()\n]*::[ \t]*\\)?\\(\\sw+\\)" |
"\\<\\(type\\)\\>\\(?:[^()\n]*::\\)?[ \t]*\\(\\sw+\\)" |
636 |
"Regexp matching the definition of a derived type.") |
"Regexp matching the definition of a derived type.") |
637 |
|
|
638 |
(defconst f90-no-break-re |
(defconst f90-no-break-re |