From bac79b5181f1d54bec24407c09b8933ace34f55e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 12 Aug 1993 05:33:16 +0000 Subject: [PATCH] (show-paren-command-hook): Do nothing if input is pending. --- lisp/paren.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/paren.el b/lisp/paren.el index f6dce5e5dfa..c4e5bceb4d6 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -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)) ?\() -- 2.39.5