From: Glenn Morris <rgm@gnu.org>
Date: Sat, 3 Aug 2002 19:01:50 +0000 (+0000)
Subject: (f90-font-lock-keywords-1): Simplify `type' value a little.
X-Git-Tag: ttn-vms-21-2-B4~13772
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb9f0295d0cd3b30c32350645e833cd13afeb144;p=emacs.git

(f90-font-lock-keywords-1): Simplify `type' value a little.
(f90-type-def-re): Simplify value a little.
---

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 3c73fab604e..14386b065fb 100644
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -339,9 +339,8 @@ The options are 'downcase-word, 'upcase-word, 'capitalize-word and nil."
   (list
    ;; Special highlighting of "module procedure".
    '("\\<\\(module[ \t]*procedure\\)\\>" (1 font-lock-keyword-face))
-   ;; Highlight declaration of derived type.
-   '("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>[ \t]*\\([^()\n]*::[ \t]*\\)?\
-\\(\\sw+\\)"
+   ;; Highlight definition of derived type.
+   '("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>\\([^()\n]*::\\)?[ \t]*\\(\\sw+\\)"
      (1 font-lock-keyword-face) (3 font-lock-function-name-face))
    ;; Other functions and declarations.
    '("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|\
@@ -633,7 +632,7 @@ do\\([ \t]*while\\)?\\|select[ \t]*case\\|where\\|forall\\)\\)\\>"
   "Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.")
 
 (defconst f90-type-def-re
-  "\\<\\(type\\)\\>[ \t]*\\(?:[^()\n]*::[ \t]*\\)?\\(\\sw+\\)"
+  "\\<\\(type\\)\\>\\(?:[^()\n]*::\\)?[ \t]*\\(\\sw+\\)"
   "Regexp matching the definition of a derived type.")
 
 (defconst f90-no-break-re