diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-08-13 20:29:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-08-13 20:29:54 +0000 |
| commit | d038475f9031e203b144f1a49e372113ae6284cc (patch) | |
| tree | 60d5be617148c6226fab51040137c4e227c24479 /lisp/mouse.el | |
| parent | d9c6a6230c741c0eed5c4ef84a9aa8e15564a04b (diff) | |
| download | emacs-d038475f9031e203b144f1a49e372113ae6284cc.tar.gz | |
(mouse-set-mark): Select the window before saving point.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 3 |
1 files changed, 3 insertions, 0 deletions
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) |