From: Tino Calancha <tino.calancha@gmail.com>
Date: Wed, 10 Aug 2016 13:34:21 +0000 (+0900)
Subject: cl-delete-duplicates: do not parse :if keyword
X-Git-Tag: emacs-26.0.90~1753
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=68fdbeb917b80e29e0b15506f18f7ed41d8ffdfd;p=emacs.git

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

* lisp/emacs-lisp/cl-seq.el (cl--delete-duplicates):
Parse only the supported keywords.
---

diff --git a/lisp/emacs-lisp/cl-seq.el b/lisp/emacs-lisp/cl-seq.el
index 443a147b3d2..5c93670be92 100644
--- a/lisp/emacs-lisp/cl-seq.el
+++ b/lisp/emacs-lisp/cl-seq.el
@@ -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)