Variable: custom-face-extended-menu

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

Value

Documentation

A menu for custom-face widgets.

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

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defvar custom-face-extended-menu
  (let ((map (make-sparse-keymap)))
    (define-key-after map [custom-face-set]
      '(menu-item "Set for Current Session" custom-face-set))
    (when (or custom-file init-file-user)
      (define-key-after map [custom-face-save]
        '(menu-item "Save for Future Sessions" custom-face-save)))
    (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-face-reset-saved]
      '(menu-item "Revert This Session's Customization" custom-face-reset-saved
                  :enable (memq
                           (widget-get custom-actioned-widget :custom-state)
                           '(modified set changed))))
    (when (or custom-file init-file-user)
      (define-key-after map [custom-face-reset-standard]
        '(menu-item "Erase Customization" custom-face-reset-standard
                    :enable (get (widget-value custom-actioned-widget)
                                 'face-defface-spec))))
    (define-key-after map [sep0]
      '(menu-item "---"))
    (define-key-after map [custom-comment-show]
      '(menu-item "Add Comment" custom-comment-show
                  :enable (custom-comment-invisible-p custom-actioned-widget)))
    (define-key-after map [sep1]
      '(menu-item "---"))
    (define-key-after map [custom-face-edit-selected]
      '(menu-item "For Current Display" custom-face-edit-selected
                  :button (:radio . (eq (widget-get custom-actioned-widget
                                                    :custom-form)
                                        'selected))))
    (define-key-after map [custom-face-edit-all]
      '(menu-item "For All Kinds of Displays" custom-face-edit-all
                  :button (:radio . (eq (widget-get custom-actioned-widget
                                                    :custom-form)
                                        'all))))
    (define-key-after map [custom-face-edit-lisp]
      '(menu-item "Show Lisp Expression" custom-face-edit-lisp
                  :button (:radio . (eq (widget-get custom-actioned-widget
                                                    :custom-form)
                                        'lisp))))
    map)
  "A menu for `custom-face' widgets.
Used in `custom-face-action' to show a menu to the user.")