Mercurial > emacs

changeset 12918:88c1220e3dec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use post-command-idle-hook. (show-paren-command-hook): No need to test for idleness.
author Richard M. Stallman <rms@gnu.org>
date Mon, 21 Aug 1995 22:00:21 +0000
parents 8da09b463ee4
children cb9fe3733db5
files lisp/paren.el
diffstat 1 files changed, 3 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/paren.el	Mon Aug 21 21:56:40 1995 +0000
+++ b/lisp/paren.el	Mon Aug 21 22:00:21 1995 +0000
@@ -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)