[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-28 ab2b822b9b 1/2: Revert "Make cl-concatenate an alias of seq-con
From: |
Lars Ingebrigtsen |
Subject: |
emacs-28 ab2b822b9b 1/2: Revert "Make cl-concatenate an alias of seq-concatenate" |
Date: |
Wed, 13 Apr 2022 00:11:59 -0400 (EDT) |
branch: emacs-28
commit ab2b822b9bbac321ec061de349cf0166cc406fe7
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Revert "Make cl-concatenate an alias of seq-concatenate"
This reverts commit 78f76fe16e2737b40694f82af28d17a90a21ed7b.
The commit made calls to cl-concatenate bug out, since
autoloading defalises doesn't work very well (bug#54901).
---
lisp/emacs-lisp/cl-extra.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index ed9b1b7d83..fd94554ca1 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -554,9 +554,10 @@ too large if positive or too small if negative)."
(seq-subseq seq start end))
;;;###autoload
-(defalias 'cl-concatenate #'seq-concatenate
+(defun cl-concatenate (type &rest sequences)
"Concatenate, into a sequence of type TYPE, the argument SEQUENCEs.
-\n(fn TYPE SEQUENCE...)")
+\n(fn TYPE SEQUENCE...)"
+ (apply #'seq-concatenate type sequences))
;;; List functions.