From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 17 Jan 1994 22:43:40 +0000 (+0000)
Subject: (show-paren-command-hook): Do nothing when in kbd macro.
X-Git-Tag: emacs-19.34~10228
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e4b93bab487214aa3ed98629d6d24aef28973b6e;p=emacs.git

(show-paren-command-hook): Do nothing when in kbd macro.
---

diff --git a/lisp/paren.el b/lisp/paren.el
index c4e5bceb4d6..14d2d0c5b0d 100644
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -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)) ?\()