Commit b906e00b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(fortran-blink-matching-do): When looking for do,

insist on nondigit after it.
parent 48b29ac0
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment