[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master a5dbb54: Define cl-concatenate as an alias to seq-c
From: |
Nicolas Petton |
Subject: |
[Emacs-diffs] master a5dbb54: Define cl-concatenate as an alias to seq-concatenate |
Date: |
Wed, 15 Apr 2015 16:31:52 +0000 |
branch: master
commit a5dbb543cb3d3d0ef6774c410462ee33776810b2
Author: Nicolas Petton <address@hidden>
Commit: Nicolas Petton <address@hidden>
Define cl-concatenate as an alias to seq-concatenate
* lisp/emacs-lisp/cl-extra.el (cl-concatenate): Removes duplicated
code by making cl-concatenate an alias to seq-concatenate.
---
lisp/emacs-lisp/cl-extra.el | 8 ++------
1 files changed, 2 insertions(+), 6 deletions(-)
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index afc2adb..0a6bc3a 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -528,13 +528,9 @@ If START or END is negative, it counts from the end."
(seq-subseq seq start end))
;;;###autoload
-(defun cl-concatenate (type &rest seqs)
+(defalias 'cl-concatenate #'seq-concatenate
"Concatenate, into a sequence of type TYPE, the argument SEQUENCEs.
-\n(fn TYPE SEQUENCE...)"
- (cond ((eq type 'vector) (apply 'vconcat seqs))
- ((eq type 'string) (apply 'concat seqs))
- ((eq type 'list) (apply 'append (append seqs '(nil))))
- (t (error "Not a sequence type name: %s" type))))
+\n(fn TYPE SEQUENCE...)")
;;; List functions.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master a5dbb54: Define cl-concatenate as an alias to seq-concatenate,
Nicolas Petton <=