Mercurial > emacs

changeset 7888:b26a8476561d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fortran-blink-matching-do): When looking for do, insist on nondigit after it.
author Richard M. Stallman <rms@gnu.org>
date Tue, 14 Jun 1994 20:19:04 +0000
parents a5e6f7045bc0
children 11d254f1f196
files lisp/progmodes/fortran.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el	Tue Jun 14 20:06:55 1994 +0000
+++ b/lisp/progmodes/fortran.el	Tue Jun 14 20:19:04 1994 +0000
@@ -746,12 +746,12 @@
 			      "^[ \t0-9]*end\\b[ \t]*[^ \t=(a-z]")))
 					; Keep local to subprogram
 	      (skip-chars-forward " \t0-9")
-	      (cond ((looking-at "do[ \t]+")
+	      (cond ((looking-at "do[ \t]+[^0-9]")
                      (setq count (- count 1)))
 		    ((looking-at "end[ \t]*do\\b")
 		     (setq count (+ count 1)))))
 	    (if (not (= count 0))
-		(setq message "No matching do.")
+		(setq message "No matching do")
 	      (if (< (point) top-of-window)
 		  (setq message (concat "Matches " (buffer-substring
 						    (progn (beginning-of-line)