Variable: custom-icon-extended-menu

custom-icon-extended-menu is a variable defined in cus-edit.el.gz.

Value

Documentation

A menu for custom-icon widgets.

Used in custom-icon-action to show a menu to the user.

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defvar custom-icon-extended-menu
  (let ((map (make-sparse-keymap)))
    (define-key-after map [custom-icon-set]
      '(menu-item "Set for Current Session" custom-icon-set
                  :enable (eq (widget-get custom-actioned-widget :custom-state)
                              'modified)))
    (when (or custom-file init-file-user)
      (define-key-after map [custom-icon-save]
        '(menu-item "Save for Future Sessions" custom-icon-save
                    :enable (memq
                             (widget-get custom-actioned-widget :custom-state)
                             '(modified set changed)))))
    (define-key-after map [custom-redraw]
      '(menu-item "Undo Edits" custom-redraw
                  :enable (memq
                           (widget-get custom-actioned-widget :custom-state)
                           '(modified changed))))
    (define-key-after map [custom-icon-reset-saved]
      '(menu-item "Revert This Session's Customization"
                  custom-icon-reset-saved
                  :enable (memq
                           (widget-get custom-actioned-widget :custom-state)
                           '(modified set changed rogue))))
    (when (or custom-file init-file-user)
      (define-key-after map [custom-icon-reset-standard]
        '(menu-item "Erase Customization" custom-icon-reset-standard
                    :enable (memq
                             (widget-get custom-actioned-widget :custom-state)
                             '(modified set changed saved rogue)))))
    map)
  "A menu for `custom-icon' widgets.
Used in `custom-icon-action' to show a menu to the user.")