Mercurial > emacs
changeset 107091:c2a34eaf2f6a
* progmodes/f90.el (f90-font-lock-keywords-2): Fix `enum'.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 05 Feb 2010 00:12:08 -0800 |
| parents | ce00524a181d |
| children | 2e763e444bc2 |
| files | lisp/ChangeLog lisp/progmodes/f90.el |
| diffstat | 2 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Feb 04 23:49:36 2010 -0500 +++ b/lisp/ChangeLog Fri Feb 05 00:12:08 2010 -0800 @@ -1,3 +1,7 @@ +2010-02-05 Glenn Morris <rgm@gnu.org> + + * progmodes/f90.el (f90-font-lock-keywords-2): Fix `enum'. + 2010-02-05 Chong Yidong <cyd@stupidchicken.com> * startup.el (command-line-1): Convert options beginning with a
--- a/lisp/progmodes/f90.el Thu Feb 04 23:49:36 2010 -0500 +++ b/lisp/progmodes/f90.el Fri Feb 05 00:12:08 2010 -0800 @@ -558,9 +558,8 @@ \\(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+\\)\\)?"