changeset 9427:3181c9270f40

(mouse-select): Pass an arg to mouse-extend.
author Richard M. Stallman <rms@gnu.org>
date Tue, 11 Oct 1994 01:49:05 +0000
parents 4dd2d351ea53
children 3d5070024b68
files lisp/mouse-sel.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.