# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1049338156 0
# Node ID c047e3116b284cfffaba5794941961f7d78e2b1b
# Parent  d6c0d7f63e860f6a6b90af4563f0cda96612ad65
(number-sequence): Shorten the code.

diff -r d6c0d7f63e86 -r c047e3116b28 lisp/subr.el
--- a/lisp/subr.el	Thu Apr 03 02:43:32 2003 +0000
+++ b/lisp/subr.el	Thu Apr 03 02:49:16 2003 +0000
@@ -186,10 +186,9 @@
 	  (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)