From b76918533048ec846a04bce89f9f4241c767f09f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 11 Oct 1994 01:49:05 +0000 Subject: [PATCH] (mouse-select): Pass an arg to mouse-extend. --- lisp/mouse-sel.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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. -- 2.39.5