Mercurial > emacs

changeset 45912:c80140b02539

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(f90-type-def-re): Fix value. (f90-looking-at-type-like): Adapt for new value of `f90-type-def-re'.
author Glenn Morris <rgm@gnu.org>
date Wed, 19 Jun 2002 22:39:42 +0000
parents 5a186c10e84e
children 10ced436db47
files lisp/progmodes/f90.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/f90.el	Wed Jun 19 09:51:55 2002 +0000
+++ b/lisp/progmodes/f90.el	Wed Jun 19 22:39:42 2002 +0000
@@ -632,8 +632,8 @@
   "Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.")
 
 (defconst f90-type-def-re
-  "\\<\\(type\\)\\([^(\n]*\\)\\(::\\)?[ \t]*\\b\\(\\sw+\\)"
-  "Regexp matching the declaration of a variable of derived type.")
+  "\\<\\(type\\)[ \t]+\\(\\sw+\\)\\>"
+  "Regexp matching the definition of a derived type.")
 
 (defconst f90-no-break-re
   (regexp-opt '("**" "//" "=>") 'paren)
@@ -977,7 +977,7 @@
 NAME is non-nil only for type."
   (cond
    ((looking-at f90-type-def-re)
-    (list (match-string 1) (match-string 4)))
+    (list (match-string 1) (match-string 2)))
    ((looking-at "\\(interface\\|block[\t]*data\\)\\>")
     (list (match-string 1) nil))))