1829 |
|
|
1830 |
|
|
1831 |
(defun* ebrowse-draw-tree-fn (&aux stack1 stack2 start) |
(defun* ebrowse-draw-tree-fn (&aux stack1 stack2 start) |
1832 |
"Display a single class and recursively it's subclasses. |
"Display a single class and recursively its subclasses. |
1833 |
This function may look weird, but this is faster than recursion." |
This function may look weird, but this is faster than recursion." |
1834 |
(setq stack1 (make-list (length ebrowse--tree) 0) |
(setq stack1 (make-list (length ebrowse--tree) 0) |
1835 |
stack2 (copy-sequence ebrowse--tree)) |
stack2 (copy-sequence ebrowse--tree)) |