branch: externals/transient
commit 1251faf0a672a35e619613034395bf4e47a84dba
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@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
