diff options
| -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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |