Function: semantic-idle-breadcrumbs--tag-function

semantic-idle-breadcrumbs--tag-function is a byte-compiled function defined in idle.el.gz.

Signature

(semantic-idle-breadcrumbs--tag-function FUNCTION)

Documentation

Return lambda expression calling FUNCTION when called from a popup.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/idle.el.gz
(defun semantic-idle-breadcrumbs--tag-function (function)
  "Return lambda expression calling FUNCTION when called from a popup."
  (lambda (event)
    (interactive "e")
    (let* ((old-window (selected-window))
	   (window     (semantic-event-window event))
	   (column     (car (nth 6 (nth 1 event)))) ;; TODO semantic-event-column?
	   (tag        (progn
			 (select-window window t)
			 (plist-get
			  (text-properties-at column header-line-format)
			  'tag))))
      (funcall function tag)
      (select-window old-window))))