Function: custom-face-action

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

Signature

(custom-face-action WIDGET &optional EVENT)

Documentation

Show the menu for custom-face WIDGET.

Optional EVENT is the location for the menu.

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defun custom-face-action (widget &optional event)
  "Show the menu for `custom-face' WIDGET.
Optional EVENT is the location for the menu."
  (if (eq (widget-get widget :custom-state) 'hidden)
      (custom-toggle-hide widget)
    (let* ((completion-ignore-case t)
           (custom-actioned-widget widget)
	   (symbol (widget-get widget :value))
	   (answer (widget-choose (concat "Operation on "
					  (custom-unlispify-tag-name symbol))
                                  (if custom-face-menu
                                      (custom-menu-filter custom-face-menu
                                                          widget)
                                    custom-face-extended-menu)
                                  event)))
      (if answer
	  (funcall answer widget)))))