[elpa] externals/transient 809fd048b1 223/366: transient--insert-suffix: Add comments

[Jonas Bernoulli]

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

    transient--insert-suffix: Add comments
---
 lisp/transient.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index b25c795edf..5f6b509d34 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1,6 +1,6 @@
 ;;; transient.el --- Transient commands          -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2018-2020  Free Software Foundation, Inc.
+;; Copyright (C) 2018-2021  Free Software Foundation, Inc.
 
 ;; Author: Jonas Bernoulli <jonas@bernoul.li>
 ;; Homepage: https://github.com/magit/transient
@@ -1058,9 +1058,13 @@ example, sets a variable use `transient-define-infix' 
instead.
      (t
       (when (and (listp suffix)
                  (listp elt))
+        ;; Both suffixes are key bindings; not heading strings.
         (let ((key (transient--spec-key suf)))
           (if (equal (transient--kbd key)
                      (transient--kbd (transient--spec-key elt)))
+              ;; We must keep `mem' until after we have inserted
+              ;; behind it, which `transient-remove-suffix' does
+              ;; not allow us to do.
               (setq action 'replace)
             (transient-remove-suffix prefix key))))
       (cl-ecase action