# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 771625144 0
# Node ID b26a8476561dabc6dbe073f0ffa92987a0b7909d
# Parent  a5e6f7045bc0b5cdfbdbcc42d8ede4db69fe2a81
(fortran-blink-matching-do): When looking for do,
insist on nondigit after it.

diff -r a5e6f7045bc0 -r b26a8476561d lisp/progmodes/fortran.el
--- 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)