Mercurial > emacs
comparison lisp/progmodes/f90.el @ 66633:ae0e8d9f7793
From John Mongan <jmongan@mccammon.ucsd.edu> (tiny change)
(f90-match-end): Use `blink-matching-delay'.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 02 Nov 2005 08:28:38 +0000 |
| parents | e58f331c3cba |
| children | a11fdee52c05 |
comparison
equal
deleted
inserted
replaced
| 66632:cfd95a706888 | 66633:ae0e8d9f7793 |
|---|---|
| 1765 (message "Matches %s: %s" | 1765 (message "Matches %s: %s" |
| 1766 (what-line) | 1766 (what-line) |
| 1767 (buffer-substring | 1767 (buffer-substring |
| 1768 (line-beginning-position) | 1768 (line-beginning-position) |
| 1769 (line-end-position))) | 1769 (line-end-position))) |
| 1770 (sit-for 1))) | 1770 (sit-for blink-matching-delay))) |
| 1771 (setq beg-block (car matching-beg) | 1771 (setq beg-block (car matching-beg) |
| 1772 beg-name (car (cdr matching-beg))) | 1772 beg-name (car (cdr matching-beg))) |
| 1773 (goto-char end-point) | 1773 (goto-char end-point) |
| 1774 (beginning-of-line) | 1774 (beginning-of-line) |
| 1775 (f90-block-match beg-block beg-name end-block end-name)))))) | 1775 (f90-block-match beg-block beg-name end-block end-name)))))) |