# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 758846620 0
# Node ID d571ad3c796e79cd8b8d001451a22134a43b0621
# Parent  dc61f16f4f791baf65169c410197f1620a96012e
(show-paren-command-hook): Do nothing when in kbd macro.

diff -r dc61f16f4f79 -r d571ad3c796e lisp/paren.el
--- a/lisp/paren.el	Mon Jan 17 21:44:35 1994 +0000
+++ b/lisp/paren.el	Mon Jan 17 22:43:40 1994 +0000
@@ -43,8 +43,9 @@
 ;; and show it until input arrives.
 (defun show-paren-command-hook ()
   ;; Do nothing if no window system to display results with.
+  ;; Do nothing if executing keyboard macro.
   ;; Do nothing if input is pending.
-  (if (and window-system (sit-for 0))
+  (if (and window-system (not executing-kbd-macro) (sit-for 0))
       (let (pos dir mismatch (oldpos (point))
 		(face show-paren-face))
 	(cond ((eq (char-syntax (following-char)) ?\()