From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 21 Aug 1995 22:00:21 +0000 (+0000)
Subject: Use post-command-idle-hook.
X-Git-Tag: emacs-19.34~2942
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26ee1a5dd0d919d33c6a6ab29e3760cc0a6d8492;p=emacs.git

Use post-command-idle-hook.
(show-paren-command-hook): No need to test for idleness.
---

diff --git a/lisp/paren.el b/lisp/paren.el
index 656c4df5c5c..60a65a5469d 100644
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -45,9 +45,7 @@
   ;; 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)
-	   (not unread-command-events)
-	   (sit-for 0 100))
+  (if window-system
       (let (pos dir mismatch (oldpos (point))
 		(face show-paren-face))
 	(cond ((eq (char-syntax (preceding-char)) ?\))
@@ -131,14 +129,14 @@
 (if window-system
     (progn
       (setq blink-paren-function nil)
-      (add-hook 'post-command-hook 'show-paren-command-hook)))
+      (add-hook 'post-command-idle-hook 'show-paren-command-hook)))
 ;;; This is in case paren.el is preloaded.
 (add-hook 'window-setup-hook
 	  (function (lambda ()
 		      (if window-system
 			  (progn
 			    (setq blink-paren-function nil)
-			    (add-hook 'post-command-hook
+			    (add-hook 'post-command-idle-hook
 				      'show-paren-command-hook))))))
 (provide 'paren)