Function: semantic-ctxt-current-class-list-default

semantic-ctxt-current-class-list-default is a byte-compiled function defined in ctxt.el.gz.

Signature

(semantic-ctxt-current-class-list-default &optional POINT)

Documentation

Return a list of tag classes that are allowed at POINT.

Assume a functional typed language. Uses very simple rules.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/ctxt.el.gz
(defun semantic-ctxt-current-class-list-default (&optional point)
  "Return a list of tag classes that are allowed at POINT.
Assume a functional typed language.  Uses very simple rules."
  (save-excursion
    (if point (goto-char point))

    (let ((tag (semantic-current-tag)))
      (if tag
	  (cond ((semantic-tag-of-class-p tag 'function)
		 '(function variable type))
		((or (semantic-tag-of-class-p tag 'type)
		     (semantic-tag-of-class-p tag 'variable))
		 '(type))
		(t nil))
	'(type)
	))))