Commit 53016bea authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mouse-save-then-kill): Get point-before-scroll

from the right buffer.
parent c9e5d3d1
......@@ -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:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment