Mercurial > emacs
comparison lisp/paren.el @ 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 | a97d23c71c95 |
| children | d571ad3c796e |
comparison
equal
deleted
inserted
replaced
| 4581:0cca18841c6d | 4582:7b665693054c |
|---|---|
| 40 "*Name of face to use for showing the matching paren.") | 40 "*Name of face to use for showing the matching paren.") |
| 41 | 41 |
| 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)) ?\() |
| 49 (setq dir 1)) | 51 (setq dir 1)) |
| 50 ((eq (char-syntax (preceding-char)) ?\)) | 52 ((eq (char-syntax (preceding-char)) ?\)) |