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 ((children (widget-get widget :children))
	current found)
    (while children
      (setq current (car children)
	    children (cdr children))
      (let* ((button (widget-get current :button))
	     (match (and (not found)
			 (widget-apply current :match value))))
	(widget-value-set button match)
	(if match
	    (progn
	      (widget-value-set current value)
	      (widget-apply current :activate))
	  (widget-apply current :deactivate))
	(setq found (or found match))))))