diff options
| author | Richard M. Stallman <[email protected]> | 2002-06-10 09:04:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2002-06-10 09:04:34 +0000 |
| commit | 658397fbde3b8d52d7482ae62b77e5bbb21e7d6d (patch) | |
| tree | 9dabac9c1ae1afbfd399606129da9e7eb97e45ff /lisp/progmodes/ebrowse.el | |
| parent | efbddb8e15e38b64460216dbef17208b5660d414 (diff) | |
(ebrowse-draw-tree-fn): Use copy-sequence.
(ebrowse-copy-list): Function deleted.
Diffstat (limited to 'lisp/progmodes/ebrowse.el')
| -rw-r--r-- | lisp/progmodes/ebrowse.el | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el index 796595e5d3..db49b9bce2 100644 --- a/lisp/progmodes/ebrowse.el +++ b/lisp/progmodes/ebrowse.el @@ -255,11 +255,6 @@ This is a destructive operation." 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 @@ TREE denotes the class shown." "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 @@ This function may look weird, but this is faster than recursion." ;; 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))))) |