summaryrefslogtreecommitdiff
path: root/lisp/mouse-sel.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-10-11 01:49:05 +0000
committerRichard M. Stallman <rms@gnu.org>1994-10-11 01:49:05 +0000
commit62331d49e6ea5c66bac0c43d619ed4a77519eee6 (patch)
tree11db51cac8ec98f401248c4ea14513a2a2f1292f /lisp/mouse-sel.el
parent61305275c7814382e65522184163b29fc11781d6 (diff)
downloademacs-62331d49e6ea5c66bac0c43d619ed4a77519eee6.tar.gz
(mouse-select): Pass an arg to mouse-extend.
Diffstat (limited to 'lisp/mouse-sel.el')
-rw-r--r--lisp/mouse-sel.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el
index 7ada992726d..9ca1687d38c 100644
--- a/lisp/mouse-sel.el
+++ b/lisp/mouse-sel.el
@@ -254,7 +254,7 @@ This should be bound to a down-mouse event."
(goto-char (car object-bounds))
(set-mark (cdr object-bounds)))
(deactivate-mark)))
- (mouse-extend))
+ (mouse-extend (if mouse-sel-selection-type EVENT)))
(defun mouse-extend (&optional EVENT)
"Extend region/selection using the mouse.