From 9f2145f42daab13aed5cf89fdb6a7c5579819ec0 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= <mattiase@acm.org>
Date: Sun, 1 Dec 2019 18:31:34 +0100
Subject: [PATCH] Temporary enable transient-mark-mode for rectangle selection

* lisp/mouse.el (mouse-drag-region-rectangle):
Enable transient-mark-mode during selection (bug#38431).
---
 lisp/mouse.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/mouse.el b/lisp/mouse.el
index bc05a35009e..32996b2eded 100644
--- 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
-- 
2.39.5