From: Kenichi Handa <handa@m17n.org>
Date: Thu, 3 Apr 2003 02:49:16 +0000 (+0000)
Subject: (number-sequence): Shorten the code.
X-Git-Tag: ttn-vms-21-2-B4~10658
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=428c1209173f2e940169b3599979da06cf43212e;p=emacs.git

(number-sequence): Shorten the code.
---

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)