From 9203531abe31e4d9f6cb74d8bd366d9e438dd867 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Fri, 5 Aug 2022 13:34:18 -0700 Subject: chore(wpcarro/emacs): Move list-wrap out of predicates section Formatting issue. Change-Id: Ia5fe86572600a388beaf5e96b6dafd52ff223efb Reviewed-on: https://cl.tvl.fyi/c/depot/+/6044 Reviewed-by: wpcarro Autosubmit: wpcarro Tested-by: BuildkiteCI --- users/wpcarro/emacs/pkgs/list/list.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/users/wpcarro/emacs/pkgs/list/list.el b/users/wpcarro/emacs/pkgs/list/list.el index 6747257d98d8..18be5f0a716c 100644 --- a/users/wpcarro/emacs/pkgs/list/list.el +++ b/users/wpcarro/emacs/pkgs/list/list.el @@ -163,6 +163,12 @@ Returns a new list without X. If X occurs more than once, only the first (result (plist-get xs :result))) (list-reverse (if curr (list-cons curr result) result))))) +(defun list-wrap (xs) + "Wraps XS in a list if it is not a list already." + (if (list-instance? xs) + xs + (list xs))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Predicates ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -201,12 +207,6 @@ Be leery of using this with things like alists. Many data structures in Elisp (= (length xs) (set-count (set-from-list (list-map f xs))))) -(defun list-wrap (xs) - "Wraps XS in a list if it is not a list already." - (if (list-instance? xs) - xs - (list xs))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Helpers ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- cgit 1.4.1