mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 08:10:21 -08:00
Code Issues Projects Releases Wiki Activity

cl-delete-duplicates: do not parse :if keyword

Browse source 
* lisp/emacs-lisp/cl-seq.el (cl--delete-duplicates):
Parse only the supported keywords.
This commit is contained in:
Tino Calancha 2016-08-10 22:34:21 +09:00
parent c2664aaab6
commit 68fdbeb917
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -347,7 +347,7 @@ This is a destructive function; it reuses the storage of SEQ whenever possible.
(defun cl--delete-duplicates (cl-seq cl-keys cl-copy) (defun cl--delete-duplicates (cl-seq cl-keys cl-copy)
(if (listp cl-seq) (if (listp cl-seq)
(cl--parsing-keywords (cl--parsing-keywords
(:test :test-not :key (:start 0) :end :from-end :if) (:test :test-not :key (:start 0) :end :from-end)
() ()
(if cl-from-end (if cl-from-end
(let ((cl-p (nthcdr cl-start cl-seq)) cl-i) (let ((cl-p (nthcdr cl-start cl-seq)) cl-i)