branch: externals/transient
commit 7dde7af02e002e63f10cb2d7834c829b569799b6
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
transient--do-push-button: Remove dead code
This pre-command is only used for `transient-push-button',
which is only used inside the transient buffer/window.
---
lisp/transient.el | 18 +++++++-----------
1 file changed, 7 insertions(+), 11 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 19b16226d5..d3e763158e 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3289,17 +3289,13 @@ If there is no parent prefix, then behave like
`transient--do-exit'."
(defun transient--do-push-button ()
"Call the command represented by the activated button.
Use that command's pre-command to determine transient behavior."
- (if (and (mouse-event-p last-command-event)
- (not (eq (posn-window (event-start last-command-event))
- transient--window)))
- transient--stay
- (with-selected-window transient--window
- (let ((pos (if (mouse-event-p last-command-event)
- (posn-point (event-start last-command-event))
- (point))))
- (setq this-command (get-text-property pos 'command))
- (setq transient--current-suffix (get-text-property pos 'suffix))))
- (transient--call-pre-command)))
+ (with-selected-window transient--window
+ (let ((pos (if (mouse-event-p last-command-event)
+ (posn-point (event-start last-command-event))
+ (point))))
+ (setq this-command (get-text-property pos 'command))
+ (setq transient--current-suffix (get-text-property pos 'suffix))))
+ (transient--call-pre-command))
(defun transient--do-recurse ()
"Call the transient prefix command, preparing for return to outer transient.
