Mercurial > emacs
comparison lisp/progmodes/fortran.el @ 66635:462d9824004b
(fortran-blink-match): Use `blink-matching-delay'.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 02 Nov 2005 08:30:45 +0000 |
| parents | 5c09efcfc1d9 |
| children | a11fdee52c05 |
comparison
equal
deleted
inserted
replaced
| 66634:ace318b5791e | 66635:462d9824004b |
|---|---|
| 1249 (buffer-substring (point) | 1249 (buffer-substring (point) |
| 1250 (line-end-position))))))) | 1250 (line-end-position))))))) |
| 1251 (if message | 1251 (if message |
| 1252 (message "%s" message) | 1252 (message "%s" message) |
| 1253 (goto-char matching) | 1253 (goto-char matching) |
| 1254 (sit-for 1) | 1254 (sit-for blink-matching-delay) |
| 1255 (goto-char end-point))))) | 1255 (goto-char end-point))))) |
| 1256 | 1256 |
| 1257 (defun fortran-blink-matching-if () | 1257 (defun fortran-blink-matching-if () |
| 1258 "From an ENDIF or ELSE statement, blink the matching IF statement." | 1258 "From an ENDIF or ELSE statement, blink the matching IF statement." |
| 1259 (fortran-blink-match "e\\(nd[ \t]*if\\|lse\\([ \t]*if\\)?\\)\\b" | 1259 (fortran-blink-match "e\\(nd[ \t]*if\\|lse\\([ \t]*if\\)?\\)\\b" |