[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 76f3328: cl-delete-duplicates: Parse :if to have cl
From: |
Tino Calancha |
Subject: |
[Emacs-diffs] master 76f3328: cl-delete-duplicates: Parse :if to have cl-if bound |
Date: |
Wed, 10 Aug 2016 14:25:37 +0000 (UTC) |
branch: master
commit 76f3328199a6911170a6c3f258e8c11545663d89
Author: Tino Calancha <address@hidden>
Commit: Tino Calancha <address@hidden>
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
---
lisp/emacs-lisp/cl-seq.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/cl-seq.el b/lisp/emacs-lisp/cl-seq.el
index 5c93670..98e5f4e 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 76f3328: cl-delete-duplicates: Parse :if to have cl-if bound,
Tino Calancha <=