From a5809dbd7f8b54c78219bf96feef190d24765925 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 28 May 2004 21:06:26 +0000 Subject: [PATCH] (mouse-set-region-1): Use temporary transient-mark-mode after the user marked text with the mouse. --- lisp/mouse.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/mouse.el b/lisp/mouse.el index 76098f45f1a..621b517e2fe 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -624,6 +624,8 @@ This should be bound to a mouse drag event." (mouse-set-region-1))) (defun mouse-set-region-1 () + ;; Set transient-mark-mode for a little while. + (setq transient-mark-mode (or transient-mark-mode 'lambda)) (setq mouse-last-region-beg (region-beginning)) (setq mouse-last-region-end (region-end)) (setq mouse-last-region-tick (buffer-modified-tick))) -- 2.39.5