(mouse-select): Pass an arg to mouse-extend.

diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el
index 7ada992726d4e93106f842e949df6e5e4f2aefd8..9ca1687d38ce4cbd1c509e6d0c424a7089a96fa6 100644 (file)
--- 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.