procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(remove, remq): Remove.

Browse source
This commit is contained in:
Dave Love 2001-01-05 16:44:10 +00:00
parent f1ade7d3b8
commit 4cb1bcc283
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2001-01-05 Dave Love <fx@gnu.org>
* emacs-lisp/cl-seq.el (remove, remq): Remove.
2001-01-05 Gerd Moellmann <gerd@gnu.org>
* mouse-drag.el (mouse-drag-safe-scroll): Bind

3
lisp/emacs-lisp/cl-seq.el
View file

@ -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"