# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 781840145 0
# Node ID 3181c9270f401ffd9b163a837614b87c8c07d731
# Parent  4dd2d351ea5351a91016b09a5d2777f604952aba
(mouse-select): Pass an arg to mouse-extend.

diff -r 4dd2d351ea53 -r 3181c9270f40 lisp/mouse-sel.el
--- a/lisp/mouse-sel.el	Tue Oct 11 01:47:06 1994 +0000
+++ b/lisp/mouse-sel.el	Tue Oct 11 01:49:05 1994 +0000
@@ -254,7 +254,7 @@
 	  (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.