Function: custom-redraw-magic

custom-redraw-magic is a byte-compiled function defined in cus-edit.el.gz.

Signature

(custom-redraw-magic WIDGET)

Documentation

Redraw WIDGET state with current settings.

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defun custom-redraw-magic (widget)
  "Redraw WIDGET state with current settings."
  (while widget
    (let ((magic (widget-get widget :custom-magic)))
      (cond (magic
	     (widget-value-set magic (widget-value magic))
	     (when (setq widget (widget-get widget :group))
	       (custom-group-state-update widget)))
	    (t
	     (setq widget nil)))))
  (widget-setup)
  (force-mode-line-update)
  (dolist (btn custom-command-buttons)
    (widget-apply btn :notify)))