Parent Directory | Revision Log | Patch
revision 1.345 by handa, Thu Apr 3 02:43:11 2003 UTC | revision 1.346 by handa, Thu Apr 3 02:49:16 2003 UTC | |
---|---|---|
# | Line 186 If TO is less than FROM, the value is ni | Line 186 If TO is less than FROM, the value is ni |
186 | (setq to (1- from))) | (setq to (1- from))) |
187 | (setq to from)) | (setq to from)) |
188 | (let* ((list (make-list (- (1+ to) from) from)) | (let* ((list (make-list (- (1+ to) from) from)) |
189 | (tail (cdr list))) | (tail list)) |
190 | (while tail | (while (setq tail (cdr tail)) |
191 | (setcar tail (setq from (1+ from))) | (setcar tail (setq from (1+ from)))) |
(setq tail (cdr tail))) | ||
192 | list)) | list)) |
193 | ||
194 | (defun remove (elt seq) | (defun remove (elt seq) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |