transient--suffix-props

Author: tarsius

lisp/transient.el

@@ -1668,19 +1668,21 @@ See info node `(transient)Modifying Existing Transients'."
 
 (defun transient--loc-match-p (suffix loc)
   (and (not (stringp suffix))
-       (let* ((plist (cdr suffix))
-              (cmd (plist-get plist :command)))
+       (let* ((props (transient--suffix-props suffix))
+              (cmd (plist-get props :command)))
          (if (symbolp loc)
              (eq cmd loc)
-           (equal (kbd (or (plist-get plist :key)
+           (equal (kbd (or (plist-get props :key)
                            (transient--command-key cmd)))
                   (kbd loc))))))
 
+(defalias 'transient--suffix-props #'cdr)
+
 (defun transient--spec-key (spec)
-  (let ((plist (cdr spec)))
-    (or (plist-get plist :key)
+  (let ((props (transient--suffix-props spec)))
+    (or (plist-get props :key)
         (transient--command-key
-         (plist-get plist :command)))))
+         (plist-get props :command)))))
 
 (defun transient--command-key (cmd)
   (and-let* ((obj (transient--suffix-prototype cmd)))
@@ -2584,9 +2586,9 @@ value.  Otherwise return CHILDREN as is.")
    (default)))
 
 (defun transient--suffix-predicate (spec)
-  (let ((plist (cdr spec)))
+  (let ((props (transient--suffix-props spec)))
     (seq-some (lambda (prop)
-                (and-let* ((pred (plist-get plist prop)))
+                (and-let* ((pred (plist-get props prop)))
                   (list prop pred)))
               '( :if :if-not
                  :if-nil :if-non-nil