From b906e00ba2b9cbf15edcf7cd7e70f3295bff0a49 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 14 Jun 1994 20:19:04 +0000 Subject: [PATCH] (fortran-blink-matching-do): When looking for do, insist on nondigit after it. --- lisp/progmodes/fortran.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 41395a19ad5..1ea86503aae 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -746,12 +746,12 @@ non-comment Fortran statement in the file, and nil otherwise." "^[ \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) -- 2.39.5