mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
insist on nondigit after it.
This commit is contained in:
Richard M. Stallman 1994-06-14 20:19:04 +00:00
parent 48b29ac004
commit b906e00ba2
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/progmodes/fortran.el
View file

@ -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)