From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 13 Aug 1994 20:29:54 +0000 (+0000)
Subject: (mouse-set-mark): Select the window before saving point.
X-Git-Tag: emacs-19.34~7319
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f598fb033e5ba7198995c88dee341c87acb775b4;p=emacs.git

(mouse-set-mark): Select the window before saving point.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index d6d0c4bb43c..0384a6349df 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -458,6 +458,9 @@ If DIR is positive skip forward; if negative, skip backward."
 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)