# HG changeset patch # User Richard M. Stallman # Date 744018615 0 # Node ID d4e116f250303a53eb0af24236640639cbd7d307 # Parent d00889d02f75f068f9a693392a874f79caefb237 (show-paren-command-hook): Specify buffer for move-overay. diff -r d00889d02f75 -r d4e116f25030 lisp/paren.el --- a/lisp/paren.el Fri Jul 30 07:01:23 1993 +0000 +++ b/lisp/paren.el Fri Jul 30 07:50:15 1993 +0000 @@ -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))