Function: custom-face-edit-attribute-tag

custom-face-edit-attribute-tag is a byte-compiled function defined in cus-edit.el.gz.

Signature

(custom-face-edit-attribute-tag WIDGET)

Documentation

Return the first :tag property in WIDGET or one of its children.

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defun custom-face-edit-attribute-tag (widget)
  "Return the first :tag property in WIDGET or one of its children."
  (let ((tag (widget-get widget :tag)))
    (or (and (not (equal tag "")) tag)
	(let ((children (widget-get widget :children)))
	  (while (and (null tag) children)
	    (setq tag (custom-face-edit-attribute-tag (pop children))))
	  tag))))