diff options
| -rw-r--r-- | lisp/subr.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index c5c94dfe01a..16bd3a91763 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -186,10 +186,9 @@ If TO is less than FROM, the value is nil." (setq to (1- from))) (setq to from)) (let* ((list (make-list (- (1+ to) from) from)) - (tail (cdr list))) - (while tail - (setcar tail (setq from (1+ from))) - (setq tail (cdr tail))) + (tail list)) + (while (setq tail (cdr tail)) + (setcar tail (setq from (1+ from)))) list)) (defun remove (elt seq) |