diff options
| author | Richard M. Stallman | 1994-01-17 22:43:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-01-17 22:43:40 +0000 |
| commit | e4b93bab487214aa3ed98629d6d24aef28973b6e (patch) | |
| tree | b37f378df4be60003819f06690ca1bad59216451 | |
| parent | b6173caec23a539f3a69c3ce437ba430d1ae0666 (diff) | |
| download | emacs-e4b93bab487214aa3ed98629d6d24aef28973b6e.tar.gz emacs-e4b93bab487214aa3ed98629d6d24aef28973b6e.zip | |
(show-paren-command-hook): Do nothing when in kbd macro.
| -rw-r--r-- | lisp/paren.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/paren.el b/lisp/paren.el index c4e5bceb4d6..14d2d0c5b0d 100644 --- a/lisp/paren.el +++ b/lisp/paren.el | |||
| @@ -43,8 +43,9 @@ | |||
| 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 | ;; 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 input is pending. | 47 | ;; Do nothing if input is pending. |
| 47 | (if (and window-system (sit-for 0)) | 48 | (if (and window-system (not executing-kbd-macro) (sit-for 0)) |
| 48 | (let (pos dir mismatch (oldpos (point)) | 49 | (let (pos dir mismatch (oldpos (point)) |
| 49 | (face show-paren-face)) | 50 | (face show-paren-face)) |
| 50 | (cond ((eq (char-syntax (following-char)) ?\() | 51 | (cond ((eq (char-syntax (following-char)) ?\() |