diff options
| author | Richard M. Stallman | 1995-08-16 15:03:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-08-16 15:03:59 +0000 |
| commit | 0671e80b5ed1fcc5a51e32a6f047ae228e4d7caa (patch) | |
| tree | 69c86f3aab41b2b36949d2d4f3481b70835ab6c4 | |
| parent | 69b07ee13afaeda4b419f615c3e3ade5f7882c5f (diff) | |
| download | emacs-0671e80b5ed1fcc5a51e32a6f047ae228e4d7caa.tar.gz emacs-0671e80b5ed1fcc5a51e32a6f047ae228e4d7caa.zip | |
(show-paren-command-hook): Do nothing if have unread events.
| -rw-r--r-- | lisp/paren.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/paren.el b/lisp/paren.el index 0a151d14aab..656c4df5c5c 100644 --- a/lisp/paren.el +++ b/lisp/paren.el | |||
| @@ -45,7 +45,9 @@ | |||
| 45 | ;; Do nothing if no window system to display results with. | 45 | ;; Do nothing if no window system to display results with. |
| 46 | ;; Do nothing if executing keyboard macro. | 46 | ;; Do nothing if executing keyboard macro. |
| 47 | ;; Do nothing if input is pending. | 47 | ;; Do nothing if input is pending. |
| 48 | (if (and window-system (not executing-kbd-macro) (sit-for 0 100)) | 48 | (if (and window-system (not executing-kbd-macro) |
| 49 | (not unread-command-events) | ||
| 50 | (sit-for 0 100)) | ||
| 49 | (let (pos dir mismatch (oldpos (point)) | 51 | (let (pos dir mismatch (oldpos (point)) |
| 50 | (face show-paren-face)) | 52 | (face show-paren-face)) |
| 51 | (cond ((eq (char-syntax (preceding-char)) ?\)) | 53 | (cond ((eq (char-syntax (preceding-char)) ?\)) |