HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
48b29ac
)
(fortran-blink-matching-do): When looking for do,
author
Richard M. Stallman
<rms@gnu.org>
Tue, 14 Jun 1994 20:19:04 +0000
(20:19 +0000)
committer
Richard M. Stallman
<rms@gnu.org>
Tue, 14 Jun 1994 20:19:04 +0000
(20:19 +0000)
insist on nondigit after it.
lisp/progmodes/fortran.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/progmodes/fortran.el
b/lisp/progmodes/fortran.el
index
41395a1
..
1ea8650
100644
(file)
--- 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)