aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/mouse.el4
1 files changed, 3 insertions, 1 deletions
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
922again in a different position, it extends the selection again. 922again in a different position, it extends the selection again.
923If you do this twice in the same position, the selection is killed." 923If you do this twice in the same position, the selection is killed."
924 (interactive "e") 924 (interactive "e")
925 (let ((before-scroll point-before-scroll)) 925 (let ((before-scroll
926 (with-current-buffer (window-buffer (posn-window (event-start click)))
927 point-before-scroll)))
926 (mouse-minibuffer-check click) 928 (mouse-minibuffer-check click)
927 (let ((click-posn (posn-point (event-start click))) 929 (let ((click-posn (posn-point (event-start click)))
928 ;; Don't let a subsequent kill command append to this one: 930 ;; Don't let a subsequent kill command append to this one: