Function: widget-radio-chosen

widget-radio-chosen is a byte-compiled function defined in wid-edit.el.gz.

Signature

(widget-radio-chosen WIDGET)

Documentation

Return the widget representing the chosen radio button.

Source Code

;; Defined in /usr/src/emacs/lisp/wid-edit.el.gz
(defun widget-radio-chosen (widget)
  "Return the widget representing the chosen radio button."
  (let ((children (widget-get widget :children))
	current found)
    (while children
      (setq current (car children)
	    children (cdr children))
      (when (widget-apply (widget-get current :button) :value-get)
	(setq found current
	      children nil)))
    found))