Mercurial > emacs
changeset 9771:3a51735d4a55
(blink-matching-delay): New variable.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 01 Nov 1994 04:22:00 +0000 |
| parents | 9b9006f58e48 |
| children | 20652342eb9a |
| files | lisp/simple.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Tue Nov 01 04:21:32 1994 +0000 +++ b/lisp/simple.el Tue Nov 01 04:22:00 1994 +0000 @@ -2392,6 +2392,9 @@ (defconst blink-matching-paren-distance 12000 "*If non-nil, is maximum distance to search for matching open-paren.") +(defconst blink-matching-delay 1 + "*The number of seconds that `blink-matching-open' will delay at a match.") + (defun blink-matching-open () "Move cursor momentarily to the beginning of the sexp before point." (interactive) @@ -2425,7 +2428,7 @@ (progn (goto-char blinkpos) (if (pos-visible-in-window-p) - (sit-for 1) + (sit-for blink-matching-delay) (goto-char blinkpos) (message "Matches %s"