Function: widget--resolve-parent-action

widget--resolve-parent-action is a byte-compiled function defined in wid-edit.el.gz.

Signature

(widget--resolve-parent-action WIDGET)

Documentation

Resolve the real action of WIDGET up its inheritance chain.

Follow the WIDGET's parents, until its :action is no longer widget-parent-action, and return its value.

Source Code

;; Defined in /usr/src/emacs/lisp/wid-edit.el.gz
(defun widget--resolve-parent-action (widget)
  "Resolve the real action of WIDGET up its inheritance chain.
Follow the WIDGET's parents, until its :action is no longer
`widget-parent-action', and return its value."
  (let ((action (widget-get widget :action))
        (parent (widget-get widget :parent)))
    (while (eq action 'widget-parent-action)
      (setq parent (widget-get parent :parent)
            action (widget-get parent :action)))
    action))