diff options
author | Tino Calancha <tino.calancha@gmail.com> | 2016-08-10 23:23:18 +0900 |
---|---|---|
committer | Tino Calancha <tino.calancha@gmail.com> | 2016-08-10 23:23:18 +0900 |
commit | 76f3328199a6911170a6c3f258e8c11545663d89 (patch) | |
tree | 11160985fc8880e238982bab1c19c513856bbbe9 | |
parent | 68fdbeb917b80e29e0b15506f18f7ed41d8ffdfd (diff) |
cl-delete-duplicates: Parse :if to have cl-if bound
* lisp/emacs-lisp/cl-seq.el (cl--delete-duplicates):
We need also to parse keyword :if, otherwise cl-if
is unbound.
This reverts commit:
68fdbeb917b80e29e0b15506f18f7ed41d8ffdfd
-rw-r--r-- | lisp/emacs-lisp/cl-seq.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-seq.el b/lisp/emacs-lisp/cl-seq.el index 5c93670be9..98e5f4e428 100644 --- a/lisp/emacs-lisp/cl-seq.el +++ b/lisp/emacs-lisp/cl-seq.el @@ -347,7 +347,8 @@ 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) + ;; We need to parse :if, otherwise `cl-if' is unbound. + (:test :test-not :key (:start 0) :end :from-end :if) () (if cl-from-end (let ((cl-p (nthcdr cl-start cl-seq)) cl-i) |