diff options
| author | Glenn Morris <rgm@gnu.org> | 2002-06-19 22:41:53 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2002-06-19 22:41:53 +0000 |
| commit | e7272eceaa64c62ab8b51fcde116b9be9c71bf83 (patch) | |
| tree | dfd50ec4a994893fc07da39e19fce9d0de24ff35 /lisp/progmodes/f90.el | |
| parent | 8355856ab09cbda9cbfb10f911cc6efeb93374d9 (diff) | |
| download | emacs-e7272eceaa64c62ab8b51fcde116b9be9c71bf83.tar.gz | |
(f90-type-def-re): Fix value.
(f90-looking-at-type-like): Adapt for new value of `f90-type-def-re'.
Diffstat (limited to 'lisp/progmodes/f90.el')
| -rw-r--r-- | lisp/progmodes/f90.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index cdb7db4688e..5b34e8506b3 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el @@ -632,8 +632,8 @@ 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\\)\\([^(\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 nil if the statement has no label." 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)))) |