Function: ebrowse-tags-choose-class

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

Signature

(ebrowse-tags-choose-class TREE HEADER NAME INITIAL-CLASS-NAME)

Documentation

Read a class name for a member from the minibuffer.

TREE is the class tree we operate on. HEADER is its header structure. NAME is the name of the member. INITIAL-CLASS-NAME is an initial class name to insert in the minibuffer. Value is a list (TREE ACCESSOR MEMBER) for the member.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebrowse.el.gz
      (list nil name)))) ;; class


(defun ebrowse-tags-choose-class (_tree header name initial-class-name)
  "Read a class name for a member from the minibuffer.
TREE is the class tree we operate on.
HEADER is its header structure.
NAME is the name of the member.
INITIAL-CLASS-NAME is an initial class name to insert in the minibuffer.
Value is a list (TREE ACCESSOR MEMBER) for the member."
  (let ((alist (or (ebrowse-class-alist-for-member header name)
		   (error "No classes with member `%s' found" name))))
    (ebrowse-ignoring-completion-case
      (if (null (cl-second alist))
	  (cdr (cl-first alist))
	(push ?\? unread-command-events)
	(cdr (assoc (completing-read "In class: "
				     alist nil t initial-class-name)
		    alist))))))