Function: semantic-stickyfunc-tag-to-stick

semantic-stickyfunc-tag-to-stick is a byte-compiled function defined in util-modes.el.gz.

Signature

(semantic-stickyfunc-tag-to-stick)

Documentation

Return the tag to stick at the current point.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/util-modes.el.gz
(defun semantic-stickyfunc-tag-to-stick ()
  "Return the tag to stick at the current point."
  (let ((tags (nreverse (semantic-find-tag-by-overlay (point)))))
    ;; Get rid of non-matching tags.
    (while (and tags
		(not (member
		      (semantic-tag-class (car tags))
		      semantic-stickyfunc-sticky-classes))
		)
      (setq tags (cdr tags)))
    (car tags)))