[elpa] externals/transient 555792f71e 3/3: Fix setting level of anonymous infixes

[Jonas Bernoulli]

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

    Fix setting level of anonymous infixes
    
    Like [1: 81b2b91] this converts part of [2: 06697f7] and adds
    a comment, in case I forget again why `this-original-command'
    has to be used.
    
    Closes #209.
    
    1: 2022-04-06 81b2b912de679749a52a4f5faf5fd02b36465431
       Use this-original-command again
    
    2: 2022-03-25 06697f75ace79936e12709cfbd75547b7016b733
       Only use this-original-command when necessary
---
 lisp/transient.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index f07782fc7a..54f3ba0490 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1448,7 +1448,10 @@ probably use this instead:
           transient-current-prefix)
       (cl-find-if (lambda (obj)
                     (eq (transient--suffix-command obj)
-                        (or command this-command)))
+                        ;; When `this-command' is `transient-set-level',
+                        ;; its reader needs to know what command is being
+                        ;; configured.
+                        (or command this-original-command)))
                   (or transient--suffixes
                       transient-current-suffixes))
     (when-let* ((obj (get (or command this-command) 'transient--suffix))