diff options
| author | Richard M. Stallman | 1993-08-12 05:33:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-08-12 05:33:16 +0000 |
| commit | bac79b5181f1d54bec24407c09b8933ace34f55e (patch) | |
| tree | 2a1d13a444957b5ee504aab6cb2f741622896701 | |
| parent | c45a32d4593680e1f6510d6821b05142ecdb0328 (diff) | |
| download | emacs-bac79b5181f1d54bec24407c09b8933ace34f55e.tar.gz emacs-bac79b5181f1d54bec24407c09b8933ace34f55e.zip | |
(show-paren-command-hook): Do nothing if input is pending.
| -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 f6dce5e5dfa..c4e5bceb4d6 100644 --- a/lisp/paren.el +++ b/lisp/paren.el | |||
| @@ -42,7 +42,9 @@ | |||
| 42 | ;; Find the place to show, if there is one, | 42 | ;; Find the place to show, if there is one, |
| 43 | ;; and show it until input arrives. | 43 | ;; and show it until input arrives. |
| 44 | (defun show-paren-command-hook () | 44 | (defun show-paren-command-hook () |
| 45 | (if window-system | 45 | ;; Do nothing if no window system to display results with. |
| 46 | ;; Do nothing if input is pending. | ||
| 47 | (if (and window-system (sit-for 0)) | ||
| 46 | (let (pos dir mismatch (oldpos (point)) | 48 | (let (pos dir mismatch (oldpos (point)) |
| 47 | (face show-paren-face)) | 49 | (face show-paren-face)) |
| 48 | (cond ((eq (char-syntax (following-char)) ?\() | 50 | (cond ((eq (char-syntax (following-char)) ?\() |