Function: widget-get-sibling

widget-get-sibling is a byte-compiled function defined in wid-edit.el.gz.

Signature

(widget-get-sibling WIDGET)

Documentation

Get the item WIDGET is assumed to toggle.

This is only meaningful for radio buttons or checkboxes in a list.

Source Code

;; Defined in /usr/src/emacs/lisp/wid-edit.el.gz
(defun widget-get-sibling (widget)
  "Get the item WIDGET is assumed to toggle.
This is only meaningful for radio buttons or checkboxes in a list."
  (let* ((children (widget-get (widget-get widget :parent) :children))
	 child)
    (catch 'child
      (while children
	(setq child (car children)
	      children (cdr children))
	(when (eq (widget-get child :button) widget)
	  (throw 'child child)))
      nil)))