branch: externals/transient
commit 3c78b10f529cc9751441ecc1ac3bc9dd3347cbcd
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
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))
