mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(number-sequence): Shorten the code.

Browse Source
This commit is contained in:
Kenichi Handa 2003-04-03 02:49:16 +00:00
parent 162eab5f18
commit 428c120917
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/subr.el
View File

@ -186,10 +186,9 @@ If TO is less than FROM, the value is nil."
(setq to (1- from))) (setq to (1- from)))
(setq to from)) (setq to from))
(let* ((list (make-list (- (1+ to) from) from)) (let* ((list (make-list (- (1+ to) from) from))
(tail (cdr list))) (tail list))
(while tail (while (setq tail (cdr tail))
(setcar tail (setq from (1+ from))) (setcar tail (setq from (1+ from))))
(setq tail (cdr tail)))
list)) list))
(defun remove (elt seq) (defun remove (elt seq)