Function: widget-radio-value-set

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

Signature

(widget-radio-value-set WIDGET VALUE)

Source Code

;; Defined in /usr/src/emacs/lisp/wid-edit.el.gz
(defun widget-radio-value-set (widget value)
  ;; We can't just delete and recreate a radio widget, since children
  ;; can be added after the original creation and won't be recreated
  ;; by `:create'.
  (let (found)
    (dolist (current (widget-get widget :children))
      (let* ((button (widget-get current :button))
	     (match (and (not found)
			 (widget-apply current :match value)))
             (from (widget-get current :from))
	     (to (widget-get current :to)))
	(widget-value-set button match)
	(if match
            (progn
              (widget-value-set current value)
              (widget-apply current :activate)
              (widget-specify-selected current))
          (widget-specify-unselected current from to))
        (setq found (or found match))))))