Function: ebrowse-build-tree-table

ebrowse-build-tree-table is a byte-compiled function defined in ebrowse.el.gz.

Signature

(ebrowse-build-tree-table TREE)

Documentation

Make sure every class in TREE is represented by a unique object.

Build hash table of all classes in TREE.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebrowse.el.gz
;;; Operations on TREE tables

(defun ebrowse-build-tree-table (tree)
  "Make sure every class in TREE is represented by a unique object.
Build hash table of all classes in TREE."
  (let ((classes (make-hash-table :test #'equal)))
    ;; Add root classes...
    (cl-loop for root in tree
             do (let ((name (ebrowse-qualified-class-name
                             (ebrowse-ts-class root))))
                  (unless (gethash name classes)
                    (setf (gethash name classes) root))))
    ;; Process subclasses
    (ebrowse-insert-supers tree classes)
    classes))