Function: custom-variable-action

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

Signature

(custom-variable-action WIDGET &optional EVENT)

Documentation

Show the menu for custom-variable WIDGET.

Optional EVENT is the location for the menu.

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defun custom-variable-action (widget &optional event)
  "Show the menu for `custom-variable' WIDGET.
Optional EVENT is the location for the menu."
  (if (eq (widget-get widget :custom-state) 'hidden)
      (custom-toggle-hide widget)
    (unless (eq (widget-get widget :custom-state) 'modified)
      (custom-variable-state-set widget))
    (custom-redraw-magic widget)
    (let* ((completion-ignore-case t)
           (custom-actioned-widget widget)
	   (answer (widget-choose (concat "Operation on "
                                          (custom-unlispify-tag-name
                                           (widget-get widget :value)))
                                  ;; Get rid of checks like this one if we ever
                                  ;; remove the simplified menus.
                                  (if custom-variable-menu
                                      (custom-menu-filter custom-variable-menu
                                                          widget)
                                    custom-variable-extended-menu)
                                  event)))
      (if answer
	  (funcall answer widget)))))