Mercurial > emacs
comparison lisp/progmodes/ebrowse.el @ 49480:891beaa9ee33
(ebrowse-draw-tree-fn): Fix typo.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 27 Jan 2003 08:48:43 +0000 |
| parents | a944203778a1 |
| children | 5cfff357b829 |
comparison
equal
deleted
inserted
replaced
| 49479:12025f034e10 | 49480:891beaa9ee33 |
|---|---|
| 1827 help-echo "double-mouse-1: mark/unmark")) | 1827 help-echo "double-mouse-1: mark/unmark")) |
| 1828 (ebrowse-set-face start end 'ebrowse-tree-mark-face)) | 1828 (ebrowse-set-face start end 'ebrowse-tree-mark-face)) |
| 1829 | 1829 |
| 1830 | 1830 |
| 1831 (defun* ebrowse-draw-tree-fn (&aux stack1 stack2 start) | 1831 (defun* ebrowse-draw-tree-fn (&aux stack1 stack2 start) |
| 1832 "Display a single class and recursively it's subclasses. | 1832 "Display a single class and recursively its subclasses. |
| 1833 This function may look weird, but this is faster than recursion." | 1833 This function may look weird, but this is faster than recursion." |
| 1834 (setq stack1 (make-list (length ebrowse--tree) 0) | 1834 (setq stack1 (make-list (length ebrowse--tree) 0) |
| 1835 stack2 (copy-sequence ebrowse--tree)) | 1835 stack2 (copy-sequence ebrowse--tree)) |
| 1836 (loop while stack2 | 1836 (loop while stack2 |
| 1837 as level = (pop stack1) | 1837 as level = (pop stack1) |