[Emacs-diffs] Changes to emacs/lisp/subr.el

[Kenichi Handa]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.345 emacs/lisp/subr.el:1.346
*** emacs/lisp/subr.el:1.345    Wed Apr  2 21:43:11 2003
--- emacs/lisp/subr.el  Wed Apr  2 21:49:16 2003
***************
*** 186,195 ****
          (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)))
      list))
  
  (defun remove (elt seq)
--- 186,194 ----
          (setq to (1- from)))
      (setq to from))
    (let* ((list (make-list (- (1+ to) from) from))
!        (tail list))
!     (while (setq tail (cdr tail))
!       (setcar tail (setq from (1+ from))))
      list))
  
  (defun remove (elt seq)