Mercurial > emacs
changeset 44950:9ffd61242f2f
(f90-font-lock-keywords-1, f90-font-lock-keywords-2): Fix highlighting of
various "type" forms.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 28 Apr 2002 23:36:08 +0000 |
| parents | 14b7be04307c |
| children | f002d8b28340 |
| files | lisp/progmodes/f90.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/f90.el Sun Apr 28 22:46:34 2002 +0000 +++ b/lisp/progmodes/f90.el Sun Apr 28 23:36:08 2002 +0000 @@ -340,8 +340,8 @@ ;; Special highlighting of "module procedure foo-list" '("\\<\\(module[ \t]*procedure\\)\\>" (1 font-lock-keyword-face)) ;; Highlight definition of new type - '("\\<\\(type\\)[ \t]*\\(.*::[ \t]*\\|[ \t]+\\)\\(\\sw+\\)" - (1 font-lock-keyword-face) (3 font-lock-function-name-face)) +;;; '("\\<\\(type\\)[ \t]*\\(.*::[ \t]*\\|[ \t]+\\)\\(\\sw+\\)" +;;; (1 font-lock-keyword-face) (3 font-lock-function-name-face)) ;; Other functions and declarations. '("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|subroutine\\|type\\)\\|use\\|call\\)\\>[ \t]*\\(\\sw+\\)?" (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t)) @@ -353,7 +353,7 @@ (list ;; Variable declarations (avoid the real function call) '("^[ \t0-9]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|logical\\|type[ \t]*(\\sw+)\\)\\(.*::\\|[ \t]*(.*)\\)?\\([^!\n]*\\)" - (1 font-lock-type-face) (4 font-lock-variable-name-face)) + (1 font-lock-type-face t) (4 font-lock-variable-name-face)) ;; do, if, select, where, and forall constructs '("\\<\\(end[ \t]*\\(do\\|if\\|select\\|forall\\|where\\)\\)\\>\\([ \t]+\\(\\sw+\\)\\)?" (1 font-lock-keyword-face) (3 font-lock-constant-face nil t))