mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +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 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)