diff options
| author | Tino Calancha <tino.calancha@gmail.com> | 2016-08-10 22:34:21 +0900 |
|---|---|---|
| committer | Tino Calancha <tino.calancha@gmail.com> | 2016-08-10 22:34:21 +0900 |
| commit | 68fdbeb917b80e29e0b15506f18f7ed41d8ffdfd (patch) | |
| tree | 7d5b79a3a1cd4d6d71da22bc0da573678f18b15a | |
| parent | c2664aaab68759ebd8cfb615c1f2fd73f065caa7 (diff) | |
| download | emacs-68fdbeb917b80e29e0b15506f18f7ed41d8ffdfd.tar.gz | |
cl-delete-duplicates: do not parse :if keyword
* lisp/emacs-lisp/cl-seq.el (cl--delete-duplicates):
Parse only the supported keywords.
| -rw-r--r-- | lisp/emacs-lisp/cl-seq.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |