emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/transient 2e33f96cf0 07/38: transient--post-command: Co


From: Jonas Bernoulli
Subject: [elpa] externals/transient 2e33f96cf0 07/38: transient--post-command: Cosmetics
Date: Tue, 11 Jan 2022 05:37:44 -0500 (EST)

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

    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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]