[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/ebrowse.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/ebrowse.el |
Date: |
Mon, 10 Jun 2002 05:04:24 -0400 |
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)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/ebrowse.el,
Richard M. Stallman <=