Function: custom-group-action

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

Signature

(custom-group-action WIDGET &optional EVENT)

Documentation

Show the menu for custom-group WIDGET.

Optional EVENT is the location for the menu.

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defun custom-group-action (widget &optional event)
  "Show the menu for `custom-group' 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)
	   (answer (widget-choose (concat "Operation on "
					  (custom-unlispify-tag-name
					   (widget-get widget :value)))
                                  (if custom-group-menu
                                      (custom-menu-filter custom-group-menu
                                                          widget)
                                    custom-group-extended-menu)
                                  event)))
      (if answer
	  (funcall answer widget)))))