# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 892020125 0
# Node ID 4b4a4e32ffef08af371db67af2a6ec8834608bdc
# Parent  69491a9294a42fae26f311981d4e24158fc8203e
(mouse-save-then-kill): Get point-before-scroll
from the right buffer.

diff -r 69491a9294a4 -r 4b4a4e32ffef lisp/mouse.el
--- a/lisp/mouse.el	Wed Apr 08 07:15:51 1998 +0000
+++ b/lisp/mouse.el	Wed Apr 08 07:22:05 1998 +0000
@@ -922,7 +922,9 @@
 again in a different position, it extends the selection again.
 If you do this twice in the same position, the selection is killed." 
   (interactive "e")
-  (let ((before-scroll point-before-scroll))
+  (let ((before-scroll
+	 (with-current-buffer (window-buffer (posn-window (event-start click)))
+	   point-before-scroll)))
     (mouse-minibuffer-check click)
     (let ((click-posn (posn-point (event-start click)))
 	  ;; Don't let a subsequent kill command append to this one: