/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.345  
changed lines
  Added in v.1.346

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26