From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 16 Aug 1995 15:03:59 +0000 (+0000)
Subject: (show-paren-command-hook): Do nothing if have unread events.
X-Git-Tag: emacs-19.34~2989
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0671e80b5ed1fcc5a51e32a6f047ae228e4d7caa;p=emacs.git

(show-paren-command-hook): Do nothing if have unread events.
---

diff --git a/lisp/paren.el b/lisp/paren.el
index 0a151d14aab..656c4df5c5c 100644
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -45,7 +45,9 @@
   ;; 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 (not executing-kbd-macro) (sit-for 0 100))
+  (if (and window-system (not executing-kbd-macro)
+	   (not unread-command-events)
+	   (sit-for 0 100))
       (let (pos dir mismatch (oldpos (point))
 		(face show-paren-face))
 	(cond ((eq (char-syntax (preceding-char)) ?\))