Function: widget-browse-at

widget-browse-at is an autoloaded, interactive and byte-compiled function defined in wid-browse.el.gz.

Signature

(widget-browse-at POS)

Documentation

Browse the widget under point.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/wid-browse.el.gz
;;; Commands.

;;;###autoload
(defun widget-browse-at (pos)
  "Browse the widget under point."
  (interactive "d")
  (let* ((field (or
                 ;; See comments in `widget-specify-field' to know why we
                 ;; need this.
                 (get-char-property pos 'real-field)
                 (get-char-property pos 'field)))
	 (button (get-char-property pos 'button))
	 (doc (get-char-property pos 'widget-doc))
	 (text (cond (field "This is an editable text area.")
		     (button "This is an active area.")
		     (doc "This is documentation text.")
		     (t "This is unidentified text.")))
	 (widget (or field button doc)))
    (when widget
      (widget-browse widget))
    (message text)))