Variable: custom-group-extended-menu

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

Value

Documentation

A menu for custom-group widgets.

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

Source Code

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