From 4bf49785fdeb84e92960b5d11a5c4512674c13a8 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 18 Jun 2022 15:07:43 +0200 Subject: [PATCH] feat(lib): backport ensure-list from 28+ And deprecate doom-enlist, which it replaces. --- core/core-lib.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/core/core-lib.el b/core/core-lib.el index dc5487968..9f17c996c 100644 --- a/core/core-lib.el +++ b/core/core-lib.el @@ -44,6 +44,8 @@ list is returned as-is." ;; ;;; Public library +(define-obsolete-function-alias 'doom-enlist 'ensure-list "v3.0.0") + (defun doom-unquote (exp) "Return EXP unquoted." (declare (pure t) (side-effect-free t)) @@ -793,7 +795,15 @@ testing advice (when combined with `rotate-text'). ;; ;;; Backports -;; None at the moment! +(unless EMACS28+ + (defun ensure-list (object) + "Return OBJECT as a list. +If OBJECT is already a list, return OBJECT itself. If it's +not a list, return a one-element list containing OBJECT." + (declare (pure t) (side-effect-free t)) + (if (listp object) + object + (list object)))) (provide 'core-lib) ;;; core-lib.el ends here