Function: semantic-mrub-find-nearby-tag

semantic-mrub-find-nearby-tag is a byte-compiled function defined in mru-bookmark.el.gz.

Signature

(semantic-mrub-find-nearby-tag POINT)

Documentation

Find a nearby tag to be pushed for this current location.

Argument POINT is where to find the tag near.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/mru-bookmark.el.gz
(defun semantic-mrub-find-nearby-tag (point)
  "Find a nearby tag to be pushed for this current location.
Argument POINT is where to find the tag near."
  ;; I thought this was a good idea, but it is not!
  ;;(semantic-fetch-tags) ;; Make sure everything is up-to-date.
  (let ((tag (semantic-current-tag)))
    (when (or (not tag) (semantic-tag-of-class-p tag 'type))
      (let ((nearby (or (semantic-find-tag-by-overlay-next point)
			(semantic-find-tag-by-overlay-prev point))))
	(when nearby (setq tag nearby))))
    tag))