mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(f90-typedef-matcher, f90-looking-at-type-like): Check that

Browse source 
end-of-word follows "type".
This commit is contained in:
Glenn Morris 2008-06-03 03:12:40 +00:00
parent d6388ebd03
commit 5fe2902f8e
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-06-03 Glenn Morris <rgm@gnu.org>
* progmodes/f90.el (f90-typedef-matcher, f90-looking-at-type-like):
Check that end-of-word follows "type".
2008-06-02 Daiki Ueno <ueno@unixuser.org>
* epa-file.el (epa-file-write-region): Write the entire buffer

4
lisp/progmodes/f90.el
View file

@ -440,7 +440,7 @@ The options are 'downcase-word, 'upcase-word, 'capitalize-word and nil."
Set the match data so that subexpression 1,2 are the TYPE, and
type-name parts, respectively."
(let (found l)
(while (and (re-search-forward "\\<\\(\\(?:end[ \t]*\\)?type\\)[ \t]*"
(while (and (re-search-forward "\\<\\(\\(?:end[ \t]*\\)?type\\)\\>[ \t]*"
limit t)
(not (setq found
(progn
@ -1213,7 +1213,7 @@ NAME is nil if the statement has no label."
NAME is non-nil only for type."
(cond
((save-excursion
(and (looking-at "\\<type[ \t]*")
(and (looking-at "\\<type\\>[ \t]*")
(goto-char (match-end 0))
(not (looking-at "\\(is\\>\\|(\\)"))
(or (looking-at "\\(\\sw+\\)")