diff options
| author | Richard M. Stallman | 1994-06-14 20:19:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-06-14 20:19:04 +0000 |
| commit | b906e00ba2b9cbf15edcf7cd7e70f3295bff0a49 (patch) | |
| tree | bbde9f3faeb2dfd3836758551997626d19120561 | |
| parent | 48b29ac00488bfc37a42f6e1e111a7c690dc5026 (diff) | |
| download | emacs-b906e00ba2b9cbf15edcf7cd7e70f3295bff0a49.tar.gz emacs-b906e00ba2b9cbf15edcf7cd7e70f3295bff0a49.zip | |
(fortran-blink-matching-do): When looking for do,
insist on nondigit after it.
| -rw-r--r-- | lisp/progmodes/fortran.el | 4 |
1 files 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." | |||
| 746 | "^[ \t0-9]*end\\b[ \t]*[^ \t=(a-z]"))) | 746 | "^[ \t0-9]*end\\b[ \t]*[^ \t=(a-z]"))) |
| 747 | ; Keep local to subprogram | 747 | ; Keep local to subprogram |
| 748 | (skip-chars-forward " \t0-9") | 748 | (skip-chars-forward " \t0-9") |
| 749 | (cond ((looking-at "do[ \t]+") | 749 | (cond ((looking-at "do[ \t]+[^0-9]") |
| 750 | (setq count (- count 1))) | 750 | (setq count (- count 1))) |
| 751 | ((looking-at "end[ \t]*do\\b") | 751 | ((looking-at "end[ \t]*do\\b") |
| 752 | (setq count (+ count 1))))) | 752 | (setq count (+ count 1))))) |
| 753 | (if (not (= count 0)) | 753 | (if (not (= count 0)) |
| 754 | (setq message "No matching do.") | 754 | (setq message "No matching do") |
| 755 | (if (< (point) top-of-window) | 755 | (if (< (point) top-of-window) |
| 756 | (setq message (concat "Matches " (buffer-substring | 756 | (setq message (concat "Matches " (buffer-substring |
| 757 | (progn (beginning-of-line) | 757 | (progn (beginning-of-line) |