diff options
| author | Glenn Morris <rgm@gnu.org> | 2010-02-05 00:12:08 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2010-02-05 00:12:08 -0800 |
| commit | f43d8ecc20470f4021ac2e2900f6f3ef15300ff2 (patch) | |
| tree | fd5d4eda0f151c6889166c5fdf4db01b3e77aa78 /lisp/progmodes/f90.el | |
| parent | ce3a988d18429158cda0f146042e974de0a14fd8 (diff) | |
| download | emacs-f43d8ecc20470f4021ac2e2900f6f3ef15300ff2.tar.gz | |
* progmodes/f90.el (f90-font-lock-keywords-2): Fix `enum'.
Diffstat (limited to 'lisp/progmodes/f90.el')
| -rw-r--r-- | lisp/progmodes/f90.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index 8f95da70464..eda9f4e0155 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -558,9 +558,8 @@ logical\\|double[ \t]*precision\\|\ \\(function\\)\\>[ \t]*\\(\\sw+\\)[ \t]*\\(([^&!\n]*)\\)" (1 font-lock-type-face t) (4 font-lock-keyword-face t) (5 font-lock-function-name-face t) (6 'default t)) - ;; enum (F2003; cf type in -1). - '("\\<\\(enum\\)\\>\\([^()\n]*::\\)?[ \t]*\\(\\sw+\\)" - (1 font-lock-keyword-face) (3 font-lock-function-name-face)) + ;; enum (F2003; must be followed by ", bind(C)"). + '("\\<\\(enum\\)[ \t]*," (1 font-lock-keyword-face)) ;; end do, enum (F2003), if, select, where, and forall constructs. '("\\<\\(end[ \t]*\\(do\\|if\\|enum\\|select\\|forall\\|where\\)\\)\\>\ \\([ \t]+\\(\\sw+\\)\\)?" |