Mercurial > emacs

changeset 95487:35a83ed5a550

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(f90-typedef-matcher, f90-looking-at-type-like): Check that end-of-word follows "type".
author Glenn Morris <rgm@gnu.org>
date Tue, 03 Jun 2008 03:12:31 +0000
parents 23898c5b8565
children cf4ef7c4091d
files lisp/progmodes/f90.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/f90.el	Tue Jun 03 03:10:53 2008 +0000
+++ b/lisp/progmodes/f90.el	Tue Jun 03 03:12:31 2008 +0000
@@ -440,7 +440,7 @@
 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 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+\\)")