Function: ebrowse-class-in-tree

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

Signature

(ebrowse-class-in-tree CLASS TREE)

Documentation

Search for a class with name CLASS in TREE.

If CLASS is found, return the tail of TREE starting at CLASS. This function is used during the load phase where classes appended to a file replace older class information.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebrowse.el.gz
(defun ebrowse-class-in-tree (class tree)
  "Search for a class with name CLASS in TREE.
If CLASS is found, return the tail of TREE starting at CLASS.  This function
is used during the load phase where classes appended to a file replace older
class information."
  (let ((tclass (ebrowse-ts-class class))
	found)
    (while (and tree (not found))
      (let ((root-ptr tree))
	(when (string= (ebrowse-qualified-class-name (ebrowse-ts-class (car root-ptr)))
		       (ebrowse-qualified-class-name tclass))
	  (setq found root-ptr))
	(setq tree (cdr tree))))
    found))