# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 783663720 0
# Node ID 3a51735d4a55a185a42a0282fde5c6320e56854c
# Parent  9b9006f58e48dbbc827e71e8bc1c97bd7db34cec
(blink-matching-delay): New variable.

diff -r 9b9006f58e48 -r 3a51735d4a55 lisp/simple.el
--- 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"