From 4cb1bcc28365e0ebb8e6381649750661d0c62e74 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 5 Jan 2001 16:44:10 +0000 Subject: [PATCH] (remove, remq): Remove. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/cl-seq.el | 3 --- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6f92c3f1ed7..6a37e1cc5b7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2001-01-05 Dave Love + + * emacs-lisp/cl-seq.el (remove, remq): Remove. + 2001-01-05 Gerd Moellmann * mouse-drag.el (mouse-drag-safe-scroll): Bind 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" -- 2.39.2