diff options
| author | Kenichi Handa <handa@m17n.org> | 2003-04-03 02:49:16 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2003-04-03 02:49:16 +0000 |
| commit | 428c1209173f2e940169b3599979da06cf43212e (patch) | |
| tree | e5415c58e11422a79dbcef6cb3c97046a8dbbb2e | |
| parent | 162eab5f18ee41f80c447c6df8d07617c8f56a93 (diff) | |
| download | emacs-428c1209173f2e940169b3599979da06cf43212e.tar.gz emacs-428c1209173f2e940169b3599979da06cf43212e.tar.bz2 emacs-428c1209173f2e940169b3599979da06cf43212e.zip | |
(number-sequence): Shorten the code.
| -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) |