[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 7ecda8a: * lisp/emacs-lisp/seq.el (seq-doseq): Fix
From: |
Nicolas Petton |
Subject: |
[Emacs-diffs] master 7ecda8a: * lisp/emacs-lisp/seq.el (seq-doseq): Fix the macro. |
Date: |
Fri, 24 Apr 2015 21:13:16 +0000 |
branch: master
commit 7ecda8a22194462114f42225e6d64aaae23c5f6d
Author: Nicolas Petton <address@hidden>
Commit: Nicolas Petton <address@hidden>
* lisp/emacs-lisp/seq.el (seq-doseq): Fix the macro.
---
lisp/emacs-lisp/seq.el | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el
index b8647ec..0050ff0 100644
--- a/lisp/emacs-lisp/seq.el
+++ b/lisp/emacs-lisp/seq.el
@@ -50,12 +50,12 @@ Evaluate BODY with VAR bound to each element of SEQ, in
turn.
\(fn (VAR SEQ) BODY...)"
(declare (indent 1) (debug ((symbolp form &optional form) body)))
- (let ((is-list (make-symbol "is-list"))
+ (let ((length (make-symbol "length"))
(seq (make-symbol "seq"))
(index (make-symbol "index")))
`(let* ((,seq ,(cadr spec))
(,length (if (listp ,seq) nil (seq-length ,seq)))
- (,index (if ,is-list ,seq 0)))
+ (,index (if ,length 0 ,seq)))
(while (if ,length
(< ,index ,length)
(consp ,index))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 7ecda8a: * lisp/emacs-lisp/seq.el (seq-doseq): Fix the macro.,
Nicolas Petton <=