Lines Matching +defs:default +defs:map
44 ;; Usually extracted by 'default-value', but can be extracted with
46 ;; property. Similarly, set-default (or the 'custom-set' property)
471 (defvar custom-mode-map
473 ;; "\r" bindings from the parent map.
475 (let ((map (make-keymap)))
476 (set-keymap-parent map widget-keymap)
477 (define-key map [remap self-insert-command] 'Custom-no-edit)
478 (define-key map "\^m" 'Custom-newline)
479 (define-key map " " 'scroll-up)
480 (define-key map "\177" 'scroll-down)
481 (define-key map "\C-c\C-c" 'Custom-set)
482 (define-key map "\C-x\C-s" 'Custom-save)
483 (define-key map "q" 'Custom-buffer-done)
484 (define-key map "u" 'Custom-goto-parent)
485 (define-key map "n" 'widget-forward)
486 (define-key map "p" 'widget-backward)
487 map)
490 (defvar custom-mode-link-map
491 (let ((map (make-keymap)))
492 (set-keymap-parent map custom-mode-map)
493 (define-key map [down-mouse-2] nil)
494 (define-key map [down-mouse-1] 'mouse-drag-region)
495 (define-key map [mouse-2] 'widget-move-and-invoke)
496 map)
521 (default (and (symbolp v) (custom-variable-p v) (symbol-name v)))
525 (if default (format "Customize variable (default %s): " default)
527 obarray 'custom-variable-p t nil nil default))
935 "Set the default for VARIABLE to VALUE, and return VALUE.
939 VARIABLE, otherwise `set-default' is used.
953 (funcall (or (get variable 'custom-set) 'set-default) variable value)
965 "Set the default for VARIABLE to VALUE, and save it for future sessions.
969 VARIABLE, otherwise `set-default' is used.
981 (funcall (or (get variable 'custom-set) 'set-default) variable value)
1017 (format "Major mode (default %s): " major-mode)
1030 (completing-read "Customize group (default emacs): "
1055 (completing-read "Customize group (default emacs): "
1115 "Version for `customize-changed-options' to refer back to by default.")
1158 or default values have changed since the previous major Emacs release.
1166 (format "Customize options changed, since version (default %s): "
1350 (default-boundp symbol) ;Has a value.
1353 (default-value symbol))))
1537 (custom-set-default variable value)
1797 ;; We want simple widgets to be displayed by default, but complex
1816 :keymap custom-mode-link-map
1901 (hidden "-" default "\
1988 (define-widget 'custom-magic 'default
2083 '((((type x w32 mac) (class color)) ; Like default modeline
2129 '((default :inherit custom-button-unraised)
2165 (define-widget 'custom 'default
2197 (apply 'widget-default-notify widget args))))
2231 "Non-nil if WIDGET should be shown with VALUE by default."
2414 (widget-default-create widget)
2415 ;; `widget-default-delete' expects markers in these slots --
2461 (defcustom custom-variable-default-form 'edit
2479 However, setting it through Custom sets the default value.")
2490 :custom-form nil ; defaults to value of `custom-variable-default-form'
2520 (widget-put widget :custom-form custom-variable-default-form))
2529 (get (or (get symbol 'custom-get) 'default-value))
2532 (value (if (default-boundp symbol)
2576 ((default-boundp symbol)
2639 ;; before the call to `widget-default-format-handler'. Otherwise, I
2646 (widget-default-format-handler widget ?h)
2686 (get (or (get symbol 'custom-get) 'default-value))
2687 (value (if (default-boundp symbol)
2753 (and (default-boundp (widget-value widget))
2822 (set (or (get symbol 'custom-set) 'set-default))
2864 (set (or (get symbol 'custom-set) 'set-default))
2908 (set (or (get symbol 'custom-set) 'set-default))
2953 (get (or (get symbol 'custom-get) 'default-value))
2956 (value (if (default-boundp symbol)
2967 (set (or (get symbol 'custom-set) 'set-default))
3054 (widget-default-delete widget)
3080 (widget-default-delete widget)
3105 (const :tag "defaults" default)
3190 (defcustom custom-face-default-form 'selected
3206 :custom-form nil ; defaults to value of `custom-face-default-form'
3238 (group (const :tag "" default)
3263 (defun custom-filter-face-spec (spec filter-index &optional default-filter)
3284 default-filter))
3357 (widget-default-format-handler widget ?h)
3380 (widget-put widget :custom-form custom-face-default-form))
3499 ;; If the user called set-face-attribute to change the default
3576 "Restore WIDGET to the face's default attributes."
3636 :value 'default
3656 'default)))
3662 (widget-default-notify widget child event))
3710 :keymap custom-mode-link-map
3789 (widget-default-create widget))
3929 (widget-default-format-handler widget ?h))
3973 (widget-default-format-handler widget ?h)
4129 The default is nil, which means to use your init file
4173 (default-init-file
4176 (if (or (file-exists-p default-init-file)
4183 (setq user-init-file default-init-file))
4370 ;; The default face must be first, since it affects the others.
4371 (if (memq 'default saved-list)
4372 (setq saved-list (cons 'default (delq 'default saved-list))))
4390 ;; Don't print default face here.
4510 custom-mode-map
4522 (let ((map (copy-keymap widget-field-keymap)))
4523 (define-key map "\C-c\C-c" 'Custom-set)
4524 (define-key map "\C-x\C-s" 'Custom-save)
4525 map)
4560 \\<custom-mode-map>\
4575 (use-local-map custom-mode-map)