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" |