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

[Richard M. Stallman]

Index: emacs/lisp/progmodes/ebrowse.el
diff -c emacs/lisp/progmodes/ebrowse.el:1.16 
emacs/lisp/progmodes/ebrowse.el:1.17
*** emacs/lisp/progmodes/ebrowse.el:1.16        Thu Mar  7 06:27:02 2002
--- emacs/lisp/progmodes/ebrowse.el     Mon Jun 10 05:04:23 2002
***************
*** 255,265 ****
      result))
  
  
- (defun ebrowse-copy-list (list)
-   "Return a shallow copy of LIST."
-   (apply #'list list))
- 
- 
  (defmacro ebrowse-output (&rest body)
    "Eval BODY with a writable current buffer.
  Preserve buffer's modified state."
--- 255,260 ----
***************
*** 1836,1842 ****
    "Display a single class and recursively it's subclasses.
  This function may look weird, but this is faster than recursion."
    (setq stack1 (make-list (length ebrowse--tree) 0)
!       stack2 (ebrowse-copy-list ebrowse--tree))
    (loop while stack2
        as level = (pop stack1)
        as tree = (pop stack2)
--- 1831,1837 ----
    "Display a single class and recursively it's subclasses.
  This function may look weird, but this is faster than recursion."
    (setq stack1 (make-list (length ebrowse--tree) 0)
!       stack2 (copy-sequence ebrowse--tree))
    (loop while stack2
        as level = (pop stack1)
        as tree = (pop stack2)
***************
*** 1879,1885 ****
        ;; Push subclasses, if any.
        (when (ebrowse-ts-subclasses tree)
          (setq stack2
!               (nconc (ebrowse-copy-list (ebrowse-ts-subclasses tree)) stack2)
                stack1
                (nconc (make-list (length (ebrowse-ts-subclasses tree))
                                  (1+ level)) stack1)))))
--- 1874,1880 ----
        ;; Push subclasses, if any.
        (when (ebrowse-ts-subclasses tree)
          (setq stack2
!               (nconc (copy-sequence (ebrowse-ts-subclasses tree)) stack2)
                stack1
                (nconc (make-list (length (ebrowse-ts-subclasses tree))
                                  (1+ level)) stack1)))))