aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1993-07-30 07:50:15 +0000
committerRichard M. Stallman1993-07-30 07:50:15 +0000
commit776b7d5aac10fa05cb35d7102ac1b343e0a1bedd (patch)
treecf80e56091f3e902d584195530fad81a2a27d8d7
parent362a07f4a4283d9f9f26667f70eaa31b80589250 (diff)
downloademacs-776b7d5aac10fa05cb35d7102ac1b343e0a1bedd.tar.gz
emacs-776b7d5aac10fa05cb35d7102ac1b343e0a1bedd.zip
(show-paren-command-hook): Specify buffer for move-overay.
-rw-r--r--lisp/paren.el7
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))