# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 745133596 0
# Node ID 7b665693054cd075e16d3dbfaa07b4f8da7b0efa
# Parent  0cca18841c6d1b5db57c88e9f2584b23c8a170b7
(show-paren-command-hook): Do nothing if input is pending.

diff -r 0cca18841c6d -r 7b665693054c lisp/paren.el
--- a/lisp/paren.el	Thu Aug 12 04:53:38 1993 +0000
+++ b/lisp/paren.el	Thu Aug 12 05:33:16 1993 +0000
@@ -42,7 +42,9 @@
 ;; Find the place to show, if there is one,
 ;; and show it until input arrives.
 (defun show-paren-command-hook ()
-  (if window-system
+  ;; Do nothing if no window system to display results with.
+  ;; Do nothing if input is pending.
+  (if (and window-system (sit-for 0))
       (let (pos dir mismatch (oldpos (point))
 		(face show-paren-face))
 	(cond ((eq (char-syntax (following-char)) ?\()