procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mouse-kill): Select the clicked window first.

Browse source
This commit is contained in:
Karl Heuer 1994-03-11 04:13:50 +00:00
parent 25bef3dd72
commit 142c76727e
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/mouse.el
View file

@ -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)))))