Function: custom-group-state-update

custom-group-state-update is a byte-compiled function defined in cus-edit.el.gz.

Signature

(custom-group-state-update WIDGET)

Documentation

Update magic.

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defun custom-group-state-update (widget)
  "Update magic."
  (unless (eq (widget-get widget :custom-state) 'hidden)
    (let* ((children (widget-get widget :children))
	   (states (mapcar (lambda (child)
			     (widget-get child :custom-state))
			   children))
	   (magics custom-magic-alist)
	   (found 'standard))
      (while magics
	(let ((magic (car (car magics))))
	  (if (and (not (eq magic 'hidden))
		   (memq magic states))
	      (setq found magic
		    magics nil)
	    (setq magics (cdr magics)))))
      (widget-put widget :custom-state found)))
  (custom-magic-reset widget))