From 72dddf8ba825cab138a717779c1fdc2ddab5a55e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 1 Nov 1994 04:22:00 +0000 Subject: [PATCH] (blink-matching-delay): New variable. --- lisp/simple.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/simple.el b/lisp/simple.el index 897a5c706fa..c4426c5ea1c 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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" -- 2.39.5