From: Glenn Morris <rgm@gnu.org>
Date: Fri, 5 Feb 2010 08:12:08 +0000 (-0800)
Subject: * progmodes/f90.el (f90-font-lock-keywords-2): Fix `enum'.
X-Git-Tag: emacs-pretest-23.1.93~105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f43d8ecc20470f4021ac2e2900f6f3ef15300ff2;p=emacs.git

* progmodes/f90.el (f90-font-lock-keywords-2): Fix `enum'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b6627e69ccc..77196ad4842 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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
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+\\)\\)?"