diff options
| -rw-r--r-- | lisp/mouse.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index d40fea1f50f..1fd789a546c 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -380,7 +380,9 @@ This must be bound to a mouse click." The text is saved in the kill ring, as with \\[kill-region]." (interactive "e") (mouse-minibuffer-check click) - (let ((click-posn (posn-point (event-start click)))) + (let* ((posn (event-start click)) + (click-posn (posn-point posn))) + (select-window (posn-window posn)) (if (numberp click-posn) (kill-region (min (point) click-posn) (max (point) click-posn))))) |