mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(blink-matching-delay): New variable.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-11-01 04:22:00 +00:00
parent dbc6c26a56
commit 72dddf8ba8
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/simple.el
View File

@ -2392,6 +2392,9 @@ in the mode line."
(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 @@ in the mode line."
(progn
(goto-char blinkpos)
(if (pos-visible-in-window-p)
(sit-for 1)
(sit-for blink-matching-delay)
(goto-char blinkpos)
(message
"Matches %s"