Mercurial > emacs

diff lisp/mouse.el @ 6301:80e3ee8d618d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-kill): Select the clicked window first.
author Karl Heuer <kwzh@gnu.org>
date Fri, 11 Mar 1994 04:13:50 +0000
parents 66c0ed95c03f
children 2b0355912ba6
line wrap: on
line diff
--- a/lisp/mouse.el	Fri Mar 11 02:35:50 1994 +0000
+++ b/lisp/mouse.el	Fri Mar 11 04:13:50 1994 +0000
@@ -380,7 +380,9 @@
 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)))))