diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-08-24 04:50:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-08-24 04:50:24 +0000 |
| commit | c89c189e3a954d90e78af3bfcbf39a185285d771 (patch) | |
| tree | 19b3b9108e62e92bc37eee805c2043acb219759a /lisp/mouse-sel.el | |
| parent | ca2c3f398d39fc51d553421e1eab1b59336fe933 (diff) | |
| download | emacs-c89c189e3a954d90e78af3bfcbf39a185285d771.tar.gz | |
(mouse-extend): In Transient Mark mode, use the region
whenever it is active.
Diffstat (limited to 'lisp/mouse-sel.el')
| -rw-r--r-- | lisp/mouse-sel.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el index 881329d7167..98f704d005d 100644 --- a/lisp/mouse-sel.el +++ b/lisp/mouse-sel.el @@ -264,8 +264,9 @@ See documentation for mouse-select for more details. This should be bound to a down-mouse event." (interactive "e") (if EVENT (select-window (posn-window (event-end EVENT)))) - (let* ((min (if (and EVENT mark-active) (region-beginning) (point))) - (max (if (and EVENT mark-active) (region-end) (point))) + (let* ((use-region (and (or EVENT transient-mark-mode) mark-active)) + (min (if use-region (region-beginning) (point))) + (max (if use-region (region-end) (point))) (orig-window (selected-window)) (orig-window-frame (window-frame orig-window)) (top (nth 1 (window-edges orig-window))) |