Function: custom-icon-action

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

Signature

(custom-icon-action WIDGET &optional EVENT)

Documentation

Show the menu for custom-icon WIDGET.

Optional EVENT is the location for the menu.

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defun custom-icon-action (widget &optional event)
  "Show the menu for `custom-icon' 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-icon-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)))
                                  custom-icon-extended-menu
                                  event)))
      (when answer
        (funcall answer widget)))))