procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(f90-type-def-re): Fix value.

Browse source 
(f90-looking-at-type-like): Adapt for new value of `f90-type-def-re'.
This commit is contained in:
Glenn Morris 2002-06-19 22:41:53 +00:00
parent 8355856ab0
commit e7272eceaa
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2002-06-19 Glenn Morris <gmorris@ast.cam.ac.uk>
* progmodes/f90.el (f90-type-def-re): Fix value.
(f90-looking-at-type-like): Adapt for new `f90-type-def-re' value.
2002-06-18 Juanma Barranquero <lektu@terra.es>
* filesets.el (filesets-update-pre010505): Fix typo.

6
lisp/progmodes/f90.el
View file

@ -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))))