diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-08-21 22:00:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-08-21 22:00:21 +0000 |
| commit | 26ee1a5dd0d919d33c6a6ab29e3760cc0a6d8492 (patch) | |
| tree | 5dc7d0beeb5ada4ed8c9445182c0cf6e811f407c /lisp/paren.el | |
| parent | 58b2bb63f7dcfb789811cebbdb751d0e0f55163d (diff) | |
| download | emacs-26ee1a5dd0d919d33c6a6ab29e3760cc0a6d8492.tar.gz | |
Use post-command-idle-hook.
(show-paren-command-hook): No need to test for idleness.
Diffstat (limited to 'lisp/paren.el')
| -rw-r--r-- | lisp/paren.el | 8 |
1 files changed, 3 insertions, 5 deletions
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) |