From 428c1209173f2e940169b3599979da06cf43212e Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 3 Apr 2003 02:49:16 +0000 Subject: [PATCH] (number-sequence): Shorten the code. --- lisp/subr.el | 7 +++---- 1 file 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)