diff options
| author | Richard M. Stallman | 1993-07-30 07:50:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-30 07:50:15 +0000 |
| commit | 776b7d5aac10fa05cb35d7102ac1b343e0a1bedd (patch) | |
| tree | cf80e56091f3e902d584195530fad81a2a27d8d7 | |
| parent | 362a07f4a4283d9f9f26667f70eaa31b80589250 (diff) | |
| download | emacs-776b7d5aac10fa05cb35d7102ac1b343e0a1bedd.tar.gz emacs-776b7d5aac10fa05cb35d7102ac1b343e0a1bedd.zip | |
(show-paren-command-hook): Specify buffer for move-overay.
| -rw-r--r-- | lisp/paren.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/paren.el b/lisp/paren.el index cd1c8878180..e42751c706e 100644 --- a/lisp/paren.el +++ b/lisp/paren.el | |||
| @@ -96,7 +96,9 @@ | |||
| 96 | ;; before point as well as its matching open. | 96 | ;; before point as well as its matching open. |
| 97 | (progn | 97 | (progn |
| 98 | (if show-paren-overlay-1 | 98 | (if show-paren-overlay-1 |
| 99 | (move-overlay show-paren-overlay-1 (+ (point) dir) (point)) | 99 | (move-overlay show-paren-overlay-1 |
| 100 | (+ (point) dir) (point) | ||
| 101 | (current-buffer)) | ||
| 100 | (setq show-paren-overlay-1 | 102 | (setq show-paren-overlay-1 |
| 101 | (make-overlay (- pos dir) pos))) | 103 | (make-overlay (- pos dir) pos))) |
| 102 | (overlay-put show-paren-overlay-1 'face face)) | 104 | (overlay-put show-paren-overlay-1 'face face)) |
| @@ -106,7 +108,8 @@ | |||
| 106 | (delete-overlay show-paren-overlay-1))) | 108 | (delete-overlay show-paren-overlay-1))) |
| 107 | ;; Turn on highlighting for the matching paren. | 109 | ;; Turn on highlighting for the matching paren. |
| 108 | (if show-paren-overlay | 110 | (if show-paren-overlay |
| 109 | (move-overlay show-paren-overlay (- pos dir) pos) | 111 | (move-overlay show-paren-overlay (- pos dir) pos |
| 112 | (current-buffer)) | ||
| 110 | (setq show-paren-overlay | 113 | (setq show-paren-overlay |
| 111 | (make-overlay (- pos dir) pos))) | 114 | (make-overlay (- pos dir) pos))) |
| 112 | (overlay-put show-paren-overlay 'face face)) | 115 | (overlay-put show-paren-overlay 'face face)) |