From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 11 Oct 1994 01:49:05 +0000 (+0000)
Subject: (mouse-select): Pass an arg to mouse-extend.
X-Git-Tag: emacs-19.34~6427
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b76918533048ec846a04bce89f9f4241c767f09f;p=emacs.git

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

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.