From 776b7d5aac10fa05cb35d7102ac1b343e0a1bedd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 30 Jul 1993 07:50:15 +0000 Subject: [PATCH] (show-paren-command-hook): Specify buffer for move-overay. --- lisp/paren.el | 7 +++++-- 1 file 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 @@ ;; before point as well as its matching open. (progn (if show-paren-overlay-1 - (move-overlay show-paren-overlay-1 (+ (point) dir) (point)) + (move-overlay show-paren-overlay-1 + (+ (point) dir) (point) + (current-buffer)) (setq show-paren-overlay-1 (make-overlay (- pos dir) pos))) (overlay-put show-paren-overlay-1 'face face)) @@ -106,7 +108,8 @@ (delete-overlay show-paren-overlay-1))) ;; Turn on highlighting for the matching paren. (if show-paren-overlay - (move-overlay show-paren-overlay (- pos dir) pos) + (move-overlay show-paren-overlay (- pos dir) pos + (current-buffer)) (setq show-paren-overlay (make-overlay (- pos dir) pos))) (overlay-put show-paren-overlay 'face face)) -- 2.39.5