diff options
author | William Carroll <wpcarro@gmail.com> | 2022-08-05T20·34-0700 |
---|---|---|
committer | clbot <clbot@tvl.fyi> | 2022-08-05T20·37+0000 |
commit | 9203531abe31e4d9f6cb74d8bd366d9e438dd867 (patch) | |
tree | d225f5cb0a284ca1ff3fd01074c86f67b33e55a4 /users/wpcarro/emacs/pkgs/list | |
parent | cc802eb44ba831cb6e0330196c7f59aaa3e49c94 (diff) |
chore(wpcarro/emacs): Move list-wrap out of predicates section r/4388
Formatting issue. Change-Id: Ia5fe86572600a388beaf5e96b6dafd52ff223efb Reviewed-on: https://cl.tvl.fyi/c/depot/+/6044 Reviewed-by: wpcarro <wpcarro@gmail.com> Autosubmit: wpcarro <wpcarro@gmail.com> Tested-by: BuildkiteCI
Diffstat (limited to 'users/wpcarro/emacs/pkgs/list')
-rw-r--r-- | users/wpcarro/emacs/pkgs/list/list.el | 12 |
1 files 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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |