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

* 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

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)
(if (listp cl-seq)
(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
(let ((cl-p (nthcdr cl-start cl-seq)) cl-i)