(show-paren-command-hook): Specify buffer for move-overay.

776b7d5a · Richard M. Stallman · 362a07f4 · 776b7d5a
Commit 776b7d5a authored Jul 30, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 2 deletions

lisp/paren.el lisp/paren.el +5 -2

No files found.
--- 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))