[elpa] externals/transient 3c78b10f52 333/366: transient--redisplay: Don't redisplay during mouse-drag-region

[Jonas Bernoulli]

branch: externals/transient
commit 3c78b10f529cc9751441ecc1ac3bc9dd3347cbcd
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    transient--redisplay: Don't redisplay during mouse-drag-region
    
    Don't redisplay while the user uses the mouse to select text in the
    transient buffer.  Whether they are allowed to do that in the first
    place, is controlled elsewhere (and still subject to change).
---
 lisp/transient.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 478e32aaef..e1f5f38808 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2150,7 +2150,14 @@ value.  Otherwise return CHILDREN as is."
 (defun transient--redisplay ()
   (if (or (eq transient-show-popup t)
           transient--showp)
-      (unless (memq this-command transient--scroll-commands)
+      (unless
+          (or (memq this-command transient--scroll-commands)
+              (and (or (memq this-command '(mouse-drag-region
+                                            mouse-set-region))
+                       (equal (key-description (this-command-keys-vector))
+                              "<mouse-movement>"))
+                   (and (eq (current-buffer)
+                            (get-buffer transient--buffer-name)))))
         (transient--show))
     (when (and (numberp transient-show-popup)
                (not (zerop transient-show-popup))