[elpa] externals/transient 1251faf0a6 2/8: Remove transient-plist-to-alist

[Jonas Bernoulli]

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

    Remove transient-plist-to-alist
---
 lisp/transient.el | 14 --------------
 1 file changed, 14 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 1c46a7eaef..396b513be4 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -4401,26 +4401,12 @@ we stop there."
   (face-remap-reset-base 'default)
   (face-remap-add-relative 'default 'fixed-pitch))
 
-;;;; Missing from Emacs
-
 (defun transient--seq-reductions-from (function sequence initial-value)
   (let ((acc (list initial-value)))
     (seq-doseq (elt sequence)
       (push (funcall function (car acc) elt) acc))
     (nreverse acc)))
 
-(defun transient-plist-to-alist (plist)
-  (let (alist)
-    (while plist
-      (push (cons (let* ((symbol (pop plist))
-                         (name (symbol-name symbol)))
-                    (if (eq (aref name 0) ?:)
-                        (intern (substring name 1))
-                      symbol))
-                  (pop plist))
-            alist))
-    (nreverse alist)))
-
 ;;; Font-Lock
 
 (defconst transient-font-lock-keywords