From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 8 Apr 1998 07:22:05 +0000 (+0000)
Subject: (mouse-save-then-kill): Get point-before-scroll
X-Git-Tag: emacs-20.3~1648
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=53016bead4141cb0e61d98e816ff818db2f1bc99;p=emacs.git

(mouse-save-then-kill): Get point-before-scroll
from the right buffer.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index e1b7e51e6a1..8d3c775c7ec 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -922,7 +922,9 @@ selection through the word or line clicked on.  If you do this
 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: