Temporary enable transient-mark-mode for rectangle selection

* lisp/mouse.el (mouse-drag-region-rectangle): Enable transient-mark-mode during selection (bug#38431).
2019-12-01 18:31:34 +01:00
parent 8b5c5a9a9b
commit 9f2145f42d
1 changed files with 4 additions and 0 deletions
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -2007,6 +2007,10 @@ This must be bound to a button-down mouse event."
          (setq dragged t)
          (mouse-minibuffer-check start-event)
          (deactivate-mark)
+          (setq-local transient-mark-mode
+                      (if (eq transient-mark-mode 'lambda)
+                          '(only)
+                        (cons 'only transient-mark-mode)))
          (posn-set-point start-pos)
          (rectangle-mark-mode)
          ;; Only tell rectangle about the exact column if we are possibly