Mercurial > emacs
changeset 4582:7b665693054c
(show-paren-command-hook): Do nothing if input is pending.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 12 Aug 1993 05:33:16 +0000 |
| parents | 0cca18841c6d |
| children | ed596b459f72 |
| files | lisp/paren.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)) ?\()