Mercurial > emacs

diff lisp/mouse-sel.el @ 9427:3181c9270f40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 116e1882576b
children 01f5b6e9c234
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.