branch: externals/transient
commit 2e33f96cf07b57d52b2733cba196e8928f4de055
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
transient--post-command: Cosmetics
---
lisp/transient.el | 16 +++++++++-------
1 file changed, 9 insertions(+), 7 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 60ba611808..fb5752609f 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2033,13 +2033,15 @@ value. Otherwise return CHILDREN as is."
(defun transient--post-command ()
(transient--debug 'post-command)
- (if transient--exitp
- (transient--post-exit)
- (unless (eq this-command (oref transient--prefix command))
- (transient--pop-keymap 'transient--redisplay-map)
- (setq transient--redisplay-map (transient--make-redisplay-map))
- (transient--push-keymap 'transient--redisplay-map)
- (transient--redisplay))))
+ (cond
+ (transient--exitp
+ (transient--post-exit))
+ ((eq this-command (oref transient--prefix command)))
+ (t
+ (transient--pop-keymap 'transient--redisplay-map)
+ (setq transient--redisplay-map (transient--make-redisplay-map))
+ (transient--push-keymap 'transient--redisplay-map)
+ (transient--redisplay))))
(defun transient--post-exit ()
(transient--debug 'post-exit)