# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 776809794 0
# Node ID a446d13c46ea5fcd850c24402f1fc912a769f7a8
# Parent  a0af63b5bc45e85fbfacaa38601f1d3bb099da66
(mouse-set-mark): Select the window before saving point.

diff -r a0af63b5bc45 -r a446d13c46ea lisp/mouse.el
--- a/lisp/mouse.el	Sat Aug 13 17:36:00 1994 +0000
+++ b/lisp/mouse.el	Sat Aug 13 20:29:54 1994 +0000
@@ -458,6 +458,9 @@
 Display cursor at that position for a second.
 This must be bound to a mouse click."
   (interactive "e")
+  (mouse-minibuffer-check click)
+  (select-window (posn-window (event-start click)))
+  ;; We don't use save-excursion because that preserves the mark too.
   (let ((point-save (point)))
     (unwind-protect
 	(progn (mouse-set-point click)