diff options
| author | Dave Love <fx@gnu.org> | 2001-01-05 16:44:10 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2001-01-05 16:44:10 +0000 |
| commit | 4cb1bcc28365e0ebb8e6381649750661d0c62e74 (patch) | |
| tree | 1dd2583b5f9cdf2074cbc5aafa3f607efc57939a /lisp/emacs-lisp/cl-seq.el | |
| parent | f1ade7d3b8206ec96adff57b9aeb3224d77ac4a6 (diff) | |
| download | emacs-4cb1bcc28365e0ebb8e6381649750661d0c62e74.tar.gz emacs-4cb1bcc28365e0ebb8e6381649750661d0c62e74.tar.bz2 emacs-4cb1bcc28365e0ebb8e6381649750661d0c62e74.zip | |
(remove, remq): Remove.
Diffstat (limited to 'lisp/emacs-lisp/cl-seq.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-seq.el | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/cl-seq.el b/lisp/emacs-lisp/cl-seq.el index 90fba3cfe3a..bea91dc3098 100644 --- a/lisp/emacs-lisp/cl-seq.el +++ b/lisp/emacs-lisp/cl-seq.el @@ -322,9 +322,6 @@ This is a destructive function; it reuses the storage of SEQ whenever possible. Keywords supported: :key :count :start :end :from-end" (apply 'delete* nil cl-list :if-not cl-pred cl-keys)) -(defun remove (x y) (remove* x y :test 'equal)) -(defun remq (x y) (if (memq x y) (delq x (copy-list y)) y)) - (defun remove-duplicates (cl-seq &rest cl-keys) "Return a copy of SEQ with all duplicate elements removed. Keywords supported: :test :test-not :key :start :end :from-end" |