Mercurial > emacs
changeset 45742:70b4c348d174
(ebrowse-draw-tree-fn): Use copy-sequence.
(ebrowse-copy-list): Function deleted.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 10 Jun 2002 09:04:23 +0000 |
| parents | b2a7c08cddcf |
| children | 9f2bfbcfdb41 |
| files | lisp/progmodes/ebrowse.el |
| diffstat | 1 files changed, 2 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/ebrowse.el Mon Jun 10 09:02:54 2002 +0000 +++ b/lisp/progmodes/ebrowse.el Mon Jun 10 09:04:23 2002 +0000 @@ -255,11 +255,6 @@ 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." @@ -1836,7 +1831,7 @@ "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)) + stack2 (copy-sequence ebrowse--tree)) (loop while stack2 as level = (pop stack1) as tree = (pop stack2) @@ -1879,7 +1874,7 @@ ;; Push subclasses, if any. (when (ebrowse-ts-subclasses tree) (setq stack2 - (nconc (ebrowse-copy-list (ebrowse-ts-subclasses tree)) stack2) + (nconc (copy-sequence (ebrowse-ts-subclasses tree)) stack2) stack1 (nconc (make-list (length (ebrowse-ts-subclasses tree)) (1+ level)) stack1)))))