Mercurial > emacs
comparison lisp/progmodes/fortran.el @ 7888:b26a8476561d
(fortran-blink-matching-do): When looking for do,
insist on nondigit after it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 14 Jun 1994 20:19:04 +0000 |
| parents | ce33fcd2ce22 |
| children | 59901c9aa208 |
comparison
equal
deleted
inserted
replaced
| 7887:a5e6f7045bc0 | 7888:b26a8476561d |
|---|---|
| 744 'first-statement)) | 744 'first-statement)) |
| 745 (not (looking-at | 745 (not (looking-at |
| 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) |
| 758 (point)) | 758 (point)) |
| 759 (progn (end-of-line) | 759 (progn (end-of-line) |