Lines Matching +refs:custom +refs:mode +refs:map
31 ;; See `custom.el'.
33 ;; No commands should have names starting with `custom-' because
45 ;; different means if the option symbol has the 'custom-get'
46 ;; property. Similarly, set-default (or the 'custom-set' property)
145 (defvar custom-versions-load-alist) ; from cus-load
156 (put 'custom-define-hook 'custom-type 'hook)
157 (put 'custom-define-hook 'standard-value '(nil))
158 (custom-add-to-group 'customize 'custom-define-hook 'custom-variable)
164 :link '(custom-manual "(emacs)Top"))
182 :link '(custom-manual "(emacs)Emulation")
216 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
222 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
223 :link '(custom-manual "(ccmode)")
248 :link '(custom-manual "(gnus)")
303 :link '(custom-manual "(emacs)International")
329 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
352 (defgroup customize '((widgets custom-group))
354 :prefix "custom-"
357 (defgroup custom-faces nil
362 (defgroup custom-browse nil
364 :prefix "custom-"
367 (defgroup custom-buffer nil
369 :prefix "custom-"
372 (defgroup custom-menu nil
374 :prefix "custom-"
377 (defgroup abbrev-mode nil
378 "Word abbreviations mode."
379 :link '(custom-manual "(emacs)Abbrevs")
389 :link '(custom-manual "(emacs)Undo")
392 (defgroup mode-line nil
426 :link '(custom-manual "(emacs)Minibuffer")
459 :link '(custom-manual "(emacs)Windows")
464 :link '(custom-manual "(emacs)Mac OS")
469 ;;; Custom mode keymaps
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)
488 "Keymap for `custom-mode'.")
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)
497 "Local keymap for links in `custom-mode'.")
502 (defun custom-split-regexp-maybe (regexp)
517 (defun custom-variable-prompt ()
518 "Prompt for a custom variable, defaulting to the variable at point.
521 (default (and (symbolp v) (custom-variable-p v) (symbol-name v)))
527 obarray 'custom-variable-p t nil nil default))
532 (defun custom-menu-filter (menu widget)
534 MENU should be in the same format as `custom-variable-menu'.
551 (defvar custom-prefix-list nil
552 "List of prefixes that should be ignored by `custom-unlispify'.")
554 (defcustom custom-unlispify-menu-entries t
556 :group 'custom-menu
559 (defcustom custom-unlispify-remove-prefixes nil
561 :group 'custom-menu
562 :group 'custom-buffer
565 (defun custom-unlispify-menu-entry (symbol &optional no-suffix)
567 (cond ((not custom-unlispify-menu-entries)
569 ((get symbol 'custom-tag)
571 (get symbol 'custom-tag)
572 (concat (get symbol 'custom-tag) "...")))
580 ;; (when (and (eq (get symbol 'custom-type) 'boolean)
584 (if custom-unlispify-remove-prefixes
585 (let ((prefixes custom-prefix-list)
601 (defcustom custom-unlispify-tag-names t
603 :group 'custom-buffer
606 (defun custom-unlispify-tag-name (symbol)
608 (let ((custom-unlispify-menu-entries custom-unlispify-tag-names))
609 (custom-unlispify-menu-entry symbol t)))
611 (defun custom-prefix-add (symbol prefixes)
613 (cons (or (get symbol 'custom-prefix)
619 (defcustom custom-guess-name-alist
639 :group 'custom-buffer)
641 (defcustom custom-guess-doc-alist
653 :group 'custom-buffer)
655 (defun custom-guess-type (symbol)
657 This is done by matching SYMBOL with `custom-guess-name-alist' and
658 if that fails, the doc string with `custom-guess-doc-alist'."
660 (names custom-guess-name-alist)
670 (docs custom-guess-doc-alist))
683 (defcustom custom-browse-sort-alphabetically nil
684 "If non-nil, sort customization group alphabetically in `custom-browse'."
686 :group 'custom-browse)
688 (defcustom custom-browse-order-groups nil
695 :group 'custom-browse)
697 (defcustom custom-browse-only-groups nil
700 :group 'custom-browse)
703 (defcustom custom-buffer-sort-alphabetically nil
706 :group 'custom-buffer)
708 (defcustom custom-buffer-order-groups 'last
715 :group 'custom-buffer)
718 (defcustom custom-menu-sort-alphabetically nil
721 :group 'custom-menu)
723 (defcustom custom-menu-order-groups 'first
730 :group 'custom-menu)
734 (defun custom-sort-items (items sort-alphabetically order-groups)
736 ITEMS should be a `custom-group' property.
748 ((eq typea 'custom-group)
750 (if (eq typeb 'custom-group)
754 ((eq typeb 'custom-group)
763 (defvar custom-options nil
769 (let ((children custom-options))
772 '(custom-variable custom-face)))
775 (when (eq (widget-get child :custom-state) 'modified)
776 (widget-apply child :custom-set)))
785 (let ((children custom-options))
788 '(custom-variable custom-face)))
792 (when (memq (widget-get child :custom-state)
794 (widget-apply child :custom-save)))
796 (custom-save-all))
799 (defvar custom-reset-menu
808 (defun custom-reset (event)
812 custom-reset-menu
820 (let ((children custom-options))
823 '(custom-variable custom-face)))
826 (if (memq (widget-get widget :custom-state)
828 (widget-apply widget :custom-reset-current)))
836 (let ((children custom-options))
839 '(custom-variable custom-face)))
842 (if (memq (widget-get widget :custom-state)
844 (widget-apply widget :custom-reset-saved)))
854 (let ((children custom-options))
857 '(custom-variable custom-face)))
860 (and (if (widget-get widget :custom-standard-value)
861 (widget-apply widget :custom-standard-value)
863 (memq (widget-get widget :custom-state)
865 (widget-apply widget :custom-reset-standard)))
871 (defun custom-prompt-variable (prompt-var prompt-val &optional comment)
880 If the variable has a `custom-type' property, it must be a widget and the
889 (type (get var 'custom-type))
919 If VARIABLE has a `custom-type' property, it must be a widget and the
923 (interactive (custom-prompt-variable "Set variable: "
938 If VARIABLE has a `custom-set' property, that is used for setting
944 If VARIABLE has a `custom-type' property, it must be a widget and the
948 (interactive (custom-prompt-variable "Set variable: "
951 (custom-load-symbol variable)
952 (custom-push-theme 'theme-value variable 'user 'set (custom-quote value))
953 (funcall (or (get variable 'custom-set) 'set-default) variable value)
954 (put variable 'customized-value (list (custom-quote value)))
968 If VARIABLE has a `custom-set' property, that is used for setting
974 If VARIABLE has a `custom-type' property, it must be a widget and the
978 (interactive (custom-prompt-variable "Set and save variable: "
981 (funcall (or (get variable 'custom-set) 'set-default) variable value)
982 (put variable 'saved-value (list (custom-quote value)))
983 (custom-push-theme 'theme-value variable 'user 'set (custom-quote value))
992 (custom-save-all)
1005 (defun customize-mode (mode)
1006 "Customize options related to the current major mode.
1007 If a prefix \\[universal-argument] was given (or if the current major mode has no known group),
1011 (let ((completion-regexp-list '("-mode\\'"))
1012 (group (custom-group-of-mode major-mode)))
1014 major-mode
1017 (format "Major mode (default %s): " major-mode)
1018 "Major mode: ")
1020 'custom-group-of-mode
1021 t nil nil (if group (symbol-name major-mode))))))))
1022 (customize-group (custom-group-of-mode mode)))
1033 (or (and (get symbol 'custom-loads)
1034 (not (get symbol 'custom-autoload)))
1035 (get symbol 'custom-group)))
1042 (custom-unlispify-tag-name group))))
1045 (custom-buffer-create (list (list group 'custom-group))
1048 (custom-unlispify-tag-name group))))))
1058 (or (and (get symbol 'custom-loads)
1059 (not (get symbol 'custom-autoload)))
1060 (get symbol 'custom-group)))
1067 (custom-unlispify-tag-name group))))
1070 ;; Copied from `custom-buffer-create-other-window'.
1075 (custom-buffer-create-other-window
1076 (list (list group 'custom-group))
1079 (custom-unlispify-tag-name group))))))
1087 (interactive (custom-variable-prompt))
1091 (custom-buffer-create (list (list basevar 'custom-variable))
1093 (custom-unlispify-tag-name basevar)))
1104 (interactive (custom-variable-prompt))
1108 (custom-buffer-create-other-window
1109 (list (list basevar 'custom-variable))
1110 (format "*Customize Option: %s*" (custom-unlispify-tag-name basevar)))
1178 ;; custom-load-symbol for this.
1179 (put 'custom-versions-load-alist 'custom-loads nil)
1180 (dolist (elt custom-versions-load-alist)
1183 (custom-add-load 'custom-versions-load-alist load))))
1184 (custom-load-symbol 'custom-versions-load-alist)
1185 (put 'custom-versions-load-alist 'custom-loads nil)
1190 (let* ((package-version (get symbol 'custom-package-version))
1195 (get symbol 'custom-version))))
1198 (if (or (get symbol 'custom-group)
1200 (push (list symbol 'custom-group) found))
1201 (if (custom-variable-p symbol)
1202 (push (list symbol 'custom-variable) found))
1203 (if (custom-facep symbol)
1204 (push (list symbol 'custom-face) found)))))))
1206 (custom-buffer-create (custom-sort-items found t 'first)
1274 (custom-buffer-create (custom-sort-items
1276 (list s 'custom-face))
1285 (custom-buffer-create (list (list face 'custom-face))
1287 (custom-unlispify-tag-name face)))))
1303 (custom-buffer-create-other-window
1304 (custom-sort-items
1306 (list s 'custom-face))
1314 (custom-buffer-create-other-window
1315 (list (list face 'custom-face))
1317 (custom-unlispify-tag-name face)))))
1329 (custom-facep symbol)
1330 (push (list symbol 'custom-face) found))
1334 (push (list symbol 'custom-variable) found))))
1337 (custom-buffer-create (custom-sort-items found t nil)
1354 (push (list symbol 'custom-variable) found)))))
1357 (custom-buffer-create (custom-sort-items found t nil)
1367 (custom-facep symbol)
1368 (push (list symbol 'custom-face) found))
1372 (push (list symbol 'custom-variable) found))))
1375 (custom-buffer-create (custom-sort-items found t nil)
1392 (get symbol 'custom-group))
1393 (push (list symbol 'custom-group) found))
1395 (custom-facep symbol))
1396 (push (list symbol 'custom-face) found))
1401 (custom-variable-p symbol)
1404 (push (list symbol 'custom-variable) found)))))
1407 (custom-buffer-create
1408 (custom-sort-items found t custom-buffer-order-groups)
1433 (defcustom custom-buffer-style 'links
1441 :group 'custom-buffer)
1443 (defcustom custom-buffer-done-kill nil
1447 :group 'custom-buffer)
1449 (defcustom custom-buffer-indent 3
1452 :group 'custom-buffer)
1454 (defun custom-get-fresh-buffer (name)
1457 Beware: it's not quite like new. Good enough for custom, but maybe
1460 ;; but it's not needed for custom.
1480 (defun custom-buffer-create (options &optional name description)
1486 (pop-to-buffer (custom-get-fresh-buffer (or name "*Customization*")))
1487 (custom-buffer-create-internal options description))
1490 (defun custom-buffer-create-other-window (options &optional name description)
1501 (pop-to-buffer (custom-get-fresh-buffer name))
1502 (custom-buffer-create-internal options description)))
1504 (defcustom custom-reset-button-menu nil
1508 :group 'custom-buffer)
1510 (defcustom custom-buffer-verbose-help t
1513 :group 'custom-buffer)
1516 "Exit current Custom buffer according to `custom-buffer-done-kill'."
1518 (quit-window custom-buffer-done-kill))
1520 (defvar custom-button nil
1523 (defvar custom-button-mouse nil
1526 (defvar custom-button-pressed nil
1529 (defcustom custom-raised-buttons (not (equal (face-valid-attribute-values :box)
1535 :group 'custom-buffer
1537 (custom-set-default variable value)
1538 (setq custom-button
1539 (if value 'custom-button 'custom-button-unraised))
1540 (setq custom-button-mouse
1541 (if value 'custom-button-mouse 'highlight))
1542 (setq custom-button-pressed
1544 'custom-button-pressed
1545 'custom-button-pressed-unraised))))
1547 (defun custom-buffer-create-internal (options &optional description)
1548 (custom-mode)
1549 (if custom-buffer-verbose-help
1557 (if custom-raised-buttons
1568 (widget-create 'custom-manual
1574 (widget-create 'custom-manual
1588 (if (not custom-buffer-verbose-help)
1591 (widget-create 'custom-manual
1595 (when (or custom-file user-init-file)
1604 (if custom-reset-button-menu
1612 (custom-reset event))))
1626 (when (or custom-file user-init-file)
1637 (if custom-buffer-done-kill
1644 (setq custom-options
1649 :custom-state 'unknown
1650 :tag (custom-unlispify-tag-name
1661 :tag (custom-unlispify-tag-name
1673 (unless (eq custom-buffer-style 'tree)
1674 (mapc 'custom-magic-reset custom-options))
1691 (pop-to-buffer (custom-get-fresh-buffer name)))
1692 (custom-mode)
1697 (if custom-raised-buttons
1702 (if custom-browse-only-groups
1722 (let ((custom-buffer-style 'tree))
1723 (widget-create 'custom-group
1724 :custom-last t
1725 :custom-state 'unknown
1726 :tag (custom-unlispify-tag-name group)
1731 (define-widget 'custom-browse-visibility 'item
1734 :action 'custom-browse-visibility-action)
1736 (defun custom-browse-visibility-action (widget &rest ignore)
1737 (let ((custom-buffer-style 'tree))
1738 (custom-toggle-parent widget)))
1740 (define-widget 'custom-browse-group-tag 'custom-group-link
1744 :action 'custom-browse-group-tag-action)
1746 (defun custom-browse-group-tag-action (widget &rest ignore)
1750 (define-widget 'custom-browse-variable-tag 'custom-group-link
1754 :action 'custom-browse-variable-tag-action)
1756 (defun custom-browse-variable-tag-action (widget &rest ignore)
1760 (define-widget 'custom-browse-face-tag 'custom-group-link
1764 :action 'custom-browse-face-tag-action)
1766 (defun custom-browse-face-tag-action (widget &rest ignore)
1770 (defconst custom-browse-alist '((" " "space")
1776 (defun custom-browse-insert-prefix (prefix)
1786 (name (nth 1 (assoc entry custom-browse-alist))))
1800 (widget-put (get 'item 'widget-type) :custom-show t)
1802 :custom-show (lambda (widget value)
1809 (widget-put (get 'menu-choice 'widget-type) :custom-show t)
1811 ;;; The `custom-manual' Widget.
1813 (define-widget 'custom-manual 'info-link
1816 :keymap custom-mode-link-map
1818 :button-face 'custom-link
1823 ;;; The `custom-magic' Widget.
1825 (defgroup custom-magic-faces nil
1827 :group 'custom-faces
1828 :group 'custom-buffer)
1830 (defface custom-invalid '((((class color))
1835 :group 'custom-magic-faces)
1837 (put 'custom-invalid-face 'face-alias 'custom-invalid)
1839 (defface custom-rogue '((((class color))
1844 :group 'custom-magic-faces)
1846 (put 'custom-rogue-face 'face-alias 'custom-rogue)
1848 (defface custom-modified '((((min-colors 88) (class color))
1855 :group 'custom-magic-faces)
1857 (put 'custom-modified-face 'face-alias 'custom-modified)
1859 (defface custom-set '((((min-colors 88) (class color))
1866 :group 'custom-magic-faces)
1868 (put 'custom-set-face 'face-alias 'custom-set)
1870 (defface custom-changed '((((min-colors 88) (class color))
1877 :group 'custom-magic-faces)
1879 (put 'custom-changed-face 'face-alias 'custom-changed)
1881 (defface custom-themed '((((min-colors 88) (class color))
1888 :group 'custom-magic-faces)
1890 (defface custom-saved '((t (:underline t)))
1892 :group 'custom-magic-faces)
1894 (put 'custom-saved-face 'face-alias 'custom-saved)
1896 (defconst custom-magic-alist
1904 (invalid "x" custom-invalid "\
1906 (modified "*" custom-modified "\
1909 (set "+" custom-set "\
1912 (changed ":" custom-changed "\
1915 (saved "!" custom-saved "\
1918 (themed "o" custom-themed "\
1921 (rogue "@" custom-rogue "\
1967 (defcustom custom-magic-show 'long
1973 :group 'custom-buffer)
1975 (defcustom custom-magic-show-hidden '(option face)
1977 The value should be a list with the custom categories where the State
1981 :group 'custom-buffer)
1983 (defcustom custom-magic-show-button nil
1986 :group 'custom-buffer)
1988 (define-widget 'custom-magic 'default
1994 :value-create 'custom-magic-value-create
2000 :custom-state)
2003 (defun custom-magic-value-create (widget)
2006 (state (widget-get parent :custom-state))
2008 (entry (assq state custom-magic-alist))
2011 (category (widget-get parent :custom-category))
2015 (form (widget-get parent :custom-form))
2021 (when (and custom-magic-show
2023 (memq category custom-magic-show-hidden)))
2026 (not (and (eq custom-buffer-style 'links)
2027 (> (widget-get parent :custom-level) 1))))
2028 (insert-char ?\ (* custom-buffer-indent
2029 (widget-get parent :custom-level))))
2041 (if (eq custom-magic-show 'long)
2048 (put-text-property start (point) 'face 'custom-state))
2051 (not (and (eq custom-buffer-style 'links)
2052 (> (widget-get parent :custom-level) 1))))
2053 (insert-char ?\ (* custom-buffer-indent
2054 (widget-get parent :custom-level))))
2055 (when custom-magic-show-button
2056 (when custom-magic-show
2075 (defun custom-magic-reset (widget)
2076 "Redraw the :custom-magic property of WIDGET."
2077 (let ((magic (widget-get widget :custom-magic)))
2080 ;;; The `custom' Widget.
2082 (defface custom-button
2088 "Face for custom buffer buttons if `custom-raised-buttons' is non-nil."
2090 :group 'custom-faces)
2092 (put 'custom-button-face 'face-alias 'custom-button)
2094 (defface custom-button-mouse
2100 "Mouse face for custom buffer buttons if `custom-raised-buttons' is non-nil."
2102 :group 'custom-faces)
2104 (defface custom-button-unraised
2106 "Face for custom buffer buttons if `custom-raised-buttons' is nil."
2108 :group 'custom-faces)
2110 (setq custom-button
2111 (if custom-raised-buttons 'custom-button 'custom-button-unraised))
2113 (setq custom-button-mouse
2114 (if custom-raised-buttons 'custom-button-mouse 'highlight))
2116 (defface custom-button-pressed
2122 "Face for pressed custom buttons if `custom-raised-buttons' is non-nil."
2124 :group 'custom-faces)
2126 (put 'custom-button-pressed-face 'face-alias 'custom-button-pressed)
2128 (defface custom-button-pressed-unraised
2129 '((default :inherit custom-button-unraised)
2132 "Face for pressed custom buttons if `custom-raised-buttons' is nil."
2134 :group 'custom-faces)
2136 (setq custom-button-pressed
2137 (if custom-raised-buttons
2138 'custom-button-pressed
2139 'custom-button-pressed-unraised))
2141 (defface custom-documentation '((t nil))
2143 :group 'custom-faces)
2145 (put 'custom-documentation-face 'face-alias 'custom-documentation)
2147 (defface custom-state '((((class color)
2155 :group 'custom-faces)
2157 (put 'custom-state-face 'face-alias 'custom-state)
2159 (defface custom-link
2163 :group 'custom-faces)
2165 (define-widget 'custom 'default
2168 :convert-widget 'custom-convert-widget
2169 :notify 'custom-notify
2170 :custom-prefix ""
2171 :custom-level 1
2172 :custom-state 'hidden
2180 (defun custom-convert-widget (widget)
2186 (widget-put widget :tag (custom-unlispify-tag-name (car args)))
2190 (defun custom-notify (widget &rest args)
2192 (let ((state (widget-get widget :custom-state)))
2195 (widget-put widget :custom-state 'modified))
2196 (custom-magic-reset widget)
2199 (defun custom-redraw (widget)
2208 (custom-redraw-magic widget))
2218 (defun custom-redraw-magic (widget)
2221 (let ((magic (widget-get widget :custom-magic)))
2225 (custom-group-state-update widget)))
2230 (defun custom-show (widget value)
2232 (let ((show (widget-get widget :custom-show)))
2240 (defun custom-load-widget (widget)
2242 (custom-load-symbol (widget-value widget)))
2244 (defun custom-unloaded-symbol-p (symbol)
2247 (loads (get symbol 'custom-loads))
2262 (defun custom-unloaded-widget-p (widget)
2264 (custom-unloaded-symbol-p (widget-value widget)))
2266 (defun custom-toggle-hide (widget)
2268 (custom-load-widget widget)
2269 (let ((state (widget-get widget :custom-state)))
2273 (widget-put widget :custom-state 'unknown))
2276 (widget-put widget :custom-state 'hidden)))
2277 (custom-redraw widget)
2280 (defun custom-toggle-parent (widget &rest ignore)
2282 (custom-toggle-hide (widget-get widget :parent)))
2284 (defun custom-add-see-also (widget &optional prefix)
2288 (links (get symbol 'custom-links))
2301 :button-face 'custom-link
2316 (defun custom-add-parent-links (widget &optional initial-string)
2327 (when (member (list name type) (get symbol 'custom-group))
2330 widget 'custom-group-link
2331 :tag (custom-unlispify-tag-name symbol)
2335 (and (null (get name 'custom-links)) ;No links of its own.
2339 'custom-group-link)
2341 (get (car parents) 'custom-links))))
2348 :button-face 'custom-link
2367 ;;; The `custom-comment' Widget.
2370 (defface custom-comment '((((type tty))
2383 :group 'custom-faces)
2385 (put 'custom-comment-face 'face-alias 'custom-comment)
2388 (defface custom-comment-tag
2397 :group 'custom-faces)
2399 (put 'custom-comment-tag-face 'face-alias 'custom-comment-tag)
2401 (define-widget 'custom-comment 'string
2405 :sample-face 'custom-comment-tag-face
2406 :value-face 'custom-comment-face
2408 :create 'custom-comment-create)
2410 (defun custom-comment-create (widget)
2420 (defun custom-comment-hide (widget)
2424 ;; the global custom one
2425 (defun custom-comment-show (widget)
2427 (custom-redraw widget)
2430 (defun custom-comment-invisible-p (widget)
2435 ;;; The `custom-variable' Widget.
2439 (defface custom-variable-tag
2451 :group 'custom-faces)
2453 (put 'custom-variable-tag-face 'face-alias 'custom-variable-tag)
2455 (defface custom-variable-button '((t (:underline t :weight bold)))
2457 :group 'custom-faces)
2459 (put 'custom-variable-button-face 'face-alias 'custom-variable-button)
2461 (defcustom custom-variable-default-form 'edit
2465 :group 'custom-buffer
2468 (defun custom-variable-documentation (variable)
2482 (define-widget 'custom-variable 'custom
2486 :documentation-property #'custom-variable-documentation
2487 :custom-category 'option
2488 :custom-state nil
2489 :custom-menu 'custom-variable-menu-create
2490 :custom-form nil ; defaults to value of `custom-variable-default-form'
2491 :value-create 'custom-variable-value-create
2492 :action 'custom-variable-action
2493 :custom-set 'custom-variable-set
2494 :custom-save 'custom-variable-save
2495 :custom-reset-current 'custom-redraw
2496 :custom-reset-saved 'custom-variable-reset-saved
2497 :custom-reset-standard 'custom-variable-reset-standard
2498 :custom-standard-value 'custom-variable-standard-value)
2500 (defun custom-variable-type (symbol)
2502 If SYMBOL has a `custom-type' property, use that.
2503 Otherwise, look up symbol in `custom-guess-type-alist'."
2504 (let* ((type (or (get symbol 'custom-type)
2506 (custom-guess-type symbol))
2508 (options (get symbol 'custom-options))
2516 (defun custom-variable-value-create (widget)
2518 (custom-load-widget widget)
2519 (unless (widget-get widget :custom-form)
2520 (widget-put widget :custom-form custom-variable-default-form))
2523 (form (widget-get widget :custom-form))
2524 (state (widget-get widget :custom-state))
2527 (type (custom-variable-type symbol))
2529 (get (or (get symbol 'custom-get) 'default-value))
2530 (prefix (widget-get widget :custom-prefix))
2531 (last (widget-get widget :custom-last))
2537 ((custom-show type value)
2547 (cond ((eq custom-buffer-style 'tree)
2550 widget 'custom-browse-variable-tag)
2559 :sample-face 'custom-variable-tag-face
2567 :action 'custom-toggle-parent
2571 ;; In lisp mode edit the saved value when possible.
2577 (custom-quote (funcall get symbol)))
2579 (custom-quote (widget-get conv :value))))))
2586 :action 'custom-toggle-parent
2592 :button-face 'custom-variable-button-face
2599 ;; Edit mode.
2609 :action 'custom-tag-action
2611 :mouse-down-action 'custom-tag-mouse-down-action
2612 :button-face 'custom-variable-button-face
2613 :sample-face 'custom-variable-tag-face
2622 :action 'custom-toggle-parent
2630 (unless (eq custom-buffer-style 'tree)
2635 widget 'custom-magic nil)))
2636 (widget-put widget :custom-magic magic)
2653 widget 'custom-comment
2661 (widget-put widget :custom-form form)
2665 (widget-put widget :custom-state state)
2666 (custom-variable-state-set widget))
2669 (when (eq (widget-get widget :custom-level) 1)
2670 (custom-add-parent-links widget))
2671 (custom-add-see-also widget)))))
2673 (defun custom-tag-action (widget &rest args)
2678 (defun custom-tag-mouse-down-action (widget &rest args)
2683 (defun custom-variable-state-set (widget)
2686 (get (or (get symbol 'custom-get) 'default-value))
2710 (car (custom-variable-theme-value
2723 ;; custom, but it was set to the standard
2737 (widget-put widget :custom-state state)))
2739 (defun custom-variable-standard-value (widget)
2742 (defvar custom-variable-menu
2743 `(("Set for Current Session" custom-variable-set
2745 (eq (widget-get widget :custom-state) 'modified)))
2746 ,@(when (or custom-file user-init-file)
2747 '(("Save for Future Sessions" custom-variable-save
2749 (memq (widget-get widget :custom-state)
2751 ("Undo Edits" custom-redraw
2754 (memq (widget-get widget :custom-state) '(modified changed)))))
2755 ("Reset to Saved" custom-variable-reset-saved
2759 (memq (widget-get widget :custom-state)
2761 ,@(when (or custom-file user-init-file)
2762 '(("Erase Customization" custom-variable-reset-standard
2765 (memq (widget-get widget :custom-state)
2767 ("Set to Backup Value" custom-variable-reset-backup
2771 ("Add Comment" custom-comment-show custom-comment-invisible-p)
2773 ("Show Current Value" custom-variable-edit
2775 (eq (widget-get widget :custom-form) 'lisp)))
2776 ("Show Saved Lisp Expression" custom-variable-edit-lisp
2778 (eq (widget-get widget :custom-form) 'edit))))
2779 "Alist of actions for the `custom-variable' widget.
2782 menu is selected, and FILTER is a predicate which takes a `custom-variable'
2786 (defun custom-variable-action (widget &optional event)
2787 "Show the menu for `custom-variable' WIDGET.
2789 (if (eq (widget-get widget :custom-state) 'hidden)
2790 (custom-toggle-hide widget)
2791 (unless (eq (widget-get widget :custom-state) 'modified)
2792 (custom-variable-state-set widget))
2793 (custom-redraw-magic widget)
2796 (custom-unlispify-tag-name
2798 (custom-menu-filter custom-variable-menu
2804 (defun custom-variable-edit (widget)
2806 (widget-put widget :custom-state 'unknown)
2807 (widget-put widget :custom-form 'edit)
2808 (custom-redraw widget))
2810 (defun custom-variable-edit-lisp (widget)
2812 (widget-put widget :custom-state 'unknown)
2813 (widget-put widget :custom-form 'lisp)
2814 (custom-redraw widget))
2816 (defun custom-variable-set (widget)
2818 (let* ((form (widget-get widget :custom-form))
2819 (state (widget-get widget :custom-state))
2822 (set (or (get symbol 'custom-set) 'set-default))
2835 (custom-comment-hide comment-widget))
2836 (custom-variable-backup-value widget)
2837 (custom-push-theme 'theme-value symbol 'user
2838 'set (custom-quote (widget-value child)))
2847 (custom-comment-hide comment-widget))
2848 (custom-variable-backup-value widget)
2849 (custom-push-theme 'theme-value symbol 'user
2850 'set (custom-quote (widget-value child)))
2852 (put symbol 'customized-value (list (custom-quote val)))
2855 (custom-variable-state-set widget)
2856 (custom-redraw-magic widget)))
2858 (defun custom-variable-save (widget)
2860 (let* ((form (widget-get widget :custom-form))
2861 (state (widget-get widget :custom-state))
2864 (set (or (get symbol 'custom-set) 'set-default))
2877 (custom-comment-hide comment-widget))
2879 (custom-push-theme 'theme-value symbol 'user
2880 'set (custom-quote (widget-value child)))
2888 (custom-comment-hide comment-widget))
2890 (list (custom-quote (widget-value child))))
2891 (custom-push-theme 'theme-value symbol 'user
2892 'set (custom-quote (widget-value child)))
2898 (custom-save-all)
2899 (custom-variable-state-set widget)
2900 (custom-redraw-magic widget)))
2902 (defun custom-variable-reset-saved (widget)
2908 (set (or (get symbol 'custom-set) 'set-default))
2913 (custom-variable-backup-value widget)
2914 (custom-push-theme 'theme-value symbol 'user 'set (car-safe value))
2922 (widget-put widget :custom-state 'unknown)
2924 (custom-redraw widget)))
2926 (defun custom-variable-reset-standard (widget)
2934 (custom-variable-backup-value widget)
2939 (custom-push-theme 'theme-value symbol 'user 'reset)
2940 (custom-theme-recalc-variable symbol)
2944 (custom-save-all))
2945 (widget-put widget :custom-state 'unknown)
2947 (custom-redraw widget)))
2949 (defun custom-variable-backup-value (widget)
2953 (get (or (get symbol 'custom-get) 'default-value))
2954 (type (custom-variable-type symbol))
2961 (defun custom-variable-reset-backup (widget)
2967 (set (or (get symbol 'custom-set) 'set-default))
2973 (custom-variable-backup-value widget)
2974 (custom-push-theme 'theme-value symbol 'user 'set value)
2982 (custom-variable-state-set widget)
2984 (custom-redraw widget)))
2986 ;;; The `custom-face-edit' Widget.
2988 (define-widget 'custom-face-edit 'checklist
2994 :value-to-internal 'custom-face-edit-fix-value
2997 (custom-face-edit-fix-value widget value)))
2998 :convert-widget 'custom-face-edit-convert-widget
3005 custom-face-attributes))
3007 (defun custom-face-edit-fix-value (widget value)
3032 (defun custom-face-edit-convert-widget (widget)
3038 :deactivate 'custom-face-edit-deactivate
3039 :activate 'custom-face-edit-activate
3040 :delete 'custom-face-edit-delete))
3044 (defun custom-face-edit-deactivate (widget)
3047 (let ((tag (custom-face-edit-attribute-tag widget))
3059 (defun custom-face-edit-activate (widget)
3073 (defun custom-face-edit-delete (widget)
3088 (defun custom-face-edit-attribute-tag (widget)
3094 (setq tag (custom-face-edit-attribute-tag (pop children))))
3097 ;;; The `custom-display' Widget.
3099 (define-widget 'custom-display 'menu-choice
3179 (custom-face-edit :inline t :format "%n%v"))))))
3181 ;;; The `custom-face' Widget.
3183 (defface custom-face-tag
3186 :group 'custom-faces)
3188 (put 'custom-face-tag-face 'face-alias 'custom-face-tag)
3190 (defcustom custom-face-default-form 'selected
3195 :group 'custom-buffer
3198 (define-widget 'custom-face 'custom
3200 :sample-face 'custom-face-tag-face
3203 :value-create 'custom-face-value-create
3204 :action 'custom-face-action
3205 :custom-category 'face
3206 :custom-form nil ; defaults to value of `custom-face-default-form'
3207 :custom-set 'custom-face-set
3208 :custom-save 'custom-face-save
3209 :custom-reset-current 'custom-redraw
3210 :custom-reset-saved 'custom-face-reset-saved
3211 :custom-reset-standard 'custom-face-reset-standard
3212 :custom-standard-value 'custom-face-standard-value
3213 :custom-menu 'custom-face-menu-create)
3215 (define-widget 'custom-face-all 'editable-list
3221 :args '((group :format "%v" custom-display custom-face-edit)))
3223 (defconst custom-face-all (widget-convert 'custom-face-all)
3224 "Converted version of the `custom-face-all' widget.")
3226 (define-widget 'custom-display-unselected 'item
3228 :match 'custom-display-unselected-match)
3230 (defun custom-display-unselected-match (widget value)
3234 (define-widget 'custom-face-selected 'group
3239 (custom-face-edit :tag " Default\n Attributes"))
3242 (group custom-display-unselected sexp))
3244 (custom-face-edit :tag " Overriding\n Attributes"))
3251 (group custom-display-unselected sexp))
3253 (custom-face-edit :tag "\n Attributes"))
3260 (defconst custom-face-selected (widget-convert 'custom-face-selected)
3261 "Converted version of the `custom-face-selected' widget.")
3263 (defun custom-filter-face-spec (spec filter-index &optional default-filter)
3266 `custom-face-attributes' at which the appropriate filter function can be
3283 (or (nth filter-index (assq attr custom-face-attributes))
3295 (defun custom-pre-filter-face-spec (spec)
3298 (custom-filter-face-spec spec 2))
3300 (defun custom-post-filter-face-spec (spec)
3302 (custom-filter-face-spec spec 3))
3304 (defun custom-face-value-create (widget)
3310 (state (widget-get widget :custom-state))
3312 (is-last (widget-get widget :custom-last))
3313 (prefix (widget-get widget :custom-prefix)))
3316 (cond ((eq custom-buffer-style 'tree)
3319 widget 'custom-browse-face-tag)
3327 (if (eq custom-buffer-style 'face)
3345 :action 'custom-toggle-parent
3351 widget 'custom-magic nil)))
3352 (widget-put widget :custom-magic magic)
3363 widget 'custom-comment
3370 (when (eq (widget-get widget :custom-level) 1)
3371 (custom-add-parent-links widget))
3372 (custom-add-see-also widget))
3378 (custom-load-widget widget)
3379 (unless (widget-get widget :custom-form)
3380 (widget-put widget :custom-form custom-face-default-form))
3386 (list (list t (custom-face-attributes-get
3388 (form (widget-get widget :custom-form))
3395 (setq spec (custom-pre-filter-face-spec spec))
3399 (widget-apply custom-face-selected
3402 'custom-face-selected)
3404 (widget-apply custom-face-all
3406 'custom-face-all)
3411 (custom-face-state-set widget)
3416 (defvar custom-face-menu
3417 `(("Set for Current Session" custom-face-set)
3418 ,@(when (or custom-file user-init-file)
3419 '(("Save for Future Sessions" custom-face-save)))
3420 ("Undo Edits" custom-redraw
3422 (memq (widget-get widget :custom-state) '(modified changed))))
3423 ("Reset to Saved" custom-face-reset-saved
3427 ,@(when (or custom-file user-init-file)
3428 '(("Erase Customization" custom-face-reset-standard
3432 ("Add Comment" custom-comment-show custom-comment-invisible-p)
3434 ("For Current Display" custom-face-edit-selected
3436 (not (eq (widget-get widget :custom-form) 'selected))))
3437 ("For All Kinds of Displays" custom-face-edit-all
3439 (not (eq (widget-get widget :custom-form) 'all))))
3440 ("Show Lisp Expression" custom-face-edit-lisp
3442 (not (eq (widget-get widget :custom-form) 'lisp)))))
3443 "Alist of actions for the `custom-face' widget.
3446 menu is selected, and FILTER is a predicate which takes a `custom-face'
3450 (defun custom-face-edit-selected (widget)
3452 (widget-put widget :custom-state 'unknown)
3453 (widget-put widget :custom-form 'selected)
3454 (custom-redraw widget))
3456 (defun custom-face-edit-all (widget)
3458 (widget-put widget :custom-state 'unknown)
3459 (widget-put widget :custom-form 'all)
3460 (custom-redraw widget))
3462 (defun custom-face-edit-lisp (widget)
3464 (widget-put widget :custom-state 'unknown)
3465 (widget-put widget :custom-form 'lisp)
3466 (custom-redraw widget))
3468 (defun custom-face-state-set (widget)
3504 (widget-put widget :custom-state state)))
3506 (defun custom-face-action (widget &optional event)
3507 "Show the menu for `custom-face' WIDGET.
3509 (if (eq (widget-get widget :custom-state) 'hidden)
3510 (custom-toggle-hide widget)
3514 (custom-unlispify-tag-name symbol))
3515 (custom-menu-filter custom-face-menu
3521 (defun custom-face-set (widget)
3525 (value (custom-post-filter-face-spec (widget-value child)))
3531 (custom-comment-hide comment-widget))
3533 (custom-push-theme 'theme-face symbol 'user 'set value)
3541 (custom-face-state-set widget)
3542 (custom-redraw-magic widget)))
3544 (defun custom-face-save (widget)
3548 (value (custom-post-filter-face-spec (widget-value child)))
3554 (custom-comment-hide comment-widget))
3555 (custom-push-theme 'theme-face symbol 'user 'set value)
3561 (unless (eq (widget-get widget :custom-state) 'standard)
3567 (custom-save-all)
3568 (custom-face-state-set widget)
3569 (custom-redraw-magic widget)))
3572 (define-obsolete-function-alias 'custom-face-save-command 'custom-face-save
3575 (defun custom-face-reset-saved (widget)
3586 (custom-push-theme 'theme-face symbol 'user 'set value)
3592 (custom-face-state-set widget)
3593 (custom-redraw-magic widget)))
3595 (defun custom-face-standard-value (widget)
3598 (defun custom-face-reset-standard (widget)
3610 (custom-push-theme 'theme-face symbol 'user 'reset)
3612 (custom-theme-recalc-face symbol)
3616 (custom-save-all))
3619 (custom-pre-filter-face-spec
3620 (list (list t (custom-face-attributes-get
3624 (custom-face-state-set widget)
3625 (custom-redraw-magic widget)))
3683 :convert-widget 'custom-hook-convert-widget
3686 (defun custom-hook-convert-widget (widget)
3702 ;;; The `custom-group-link' Widget.
3704 (define-widget 'custom-group-link 'link
3706 :button-face 'custom-link
3710 :keymap custom-mode-link-map
3712 :action 'custom-group-link-action)
3714 (defun custom-group-link-action (widget &rest ignore)
3717 ;;; The `custom-group' Widget.
3719 (defcustom custom-group-tag-faces nil
3724 and so forth. The remaining group tags are shown with `custom-group-tag'."
3726 :group 'custom-faces)
3728 (defface custom-group-tag-1
3740 :group 'custom-faces)
3742 (put 'custom-group-tag-face-1 'face-alias 'custom-group-tag-1)
3744 (defface custom-group-tag
3756 :group 'custom-faces)
3758 (put 'custom-group-tag-face 'face-alias 'custom-group-tag)
3760 (define-widget 'custom-group 'custom
3763 :sample-face-get 'custom-group-sample-face-get
3766 :value-create 'custom-group-value-create
3767 :action 'custom-group-action
3768 :custom-category 'group
3769 :custom-set 'custom-group-set
3770 :custom-save 'custom-group-save
3771 :custom-reset-current 'custom-group-reset-current
3772 :custom-reset-saved 'custom-group-reset-saved
3773 :custom-reset-standard 'custom-group-reset-standard
3774 :custom-menu 'custom-group-menu-create)
3776 (defun custom-group-sample-face-get (widget)
3778 (or (nth (1- (widget-get widget :custom-level)) custom-group-tag-faces)
3779 'custom-group-tag))
3781 (define-widget 'custom-group-visibility 'visibility
3783 :create 'custom-group-visibility-create)
3785 (defun custom-group-visibility-create (widget)
3791 (defun custom-group-members (symbol groups-only)
3792 "Return SYMBOL's custom group members.
3795 (get symbol 'custom-group)
3797 (dolist (entry (get symbol 'custom-group))
3798 (when (eq (nth 1 entry) 'custom-group)
3802 (defun custom-group-value-create (widget)
3804 (unless (eq (widget-get widget :custom-state) 'hidden)
3805 (custom-load-widget widget))
3806 (let* ((state (widget-get widget :custom-state))
3807 (level (widget-get widget :custom-level))
3809 (prefix (widget-get widget :custom-prefix))
3813 (members (custom-group-members symbol
3814 (and (eq custom-buffer-style 'tree)
3815 custom-browse-only-groups))))
3816 (cond ((and (eq custom-buffer-style 'tree)
3818 (or members (custom-unloaded-widget-p widget)))
3819 (custom-browse-insert-prefix prefix)
3821 widget 'custom-browse-visibility
3828 widget 'custom-browse-group-tag)
3832 ((and (eq custom-buffer-style 'tree)
3834 (custom-browse-insert-prefix prefix)
3839 widget 'custom-browse-group-tag)
3843 ((eq custom-buffer-style 'tree)
3844 (custom-browse-insert-prefix prefix)
3847 (custom-browse-insert-prefix prefix)
3852 widget 'custom-browse-group-tag)
3857 widget 'custom-browse-visibility
3864 widget 'custom-browse-group-tag)
3869 (let* ((members (custom-sort-items members
3870 custom-browse-sort-alphabetically
3871 custom-browse-order-groups))
3872 (prefixes (widget-get widget :custom-prefixes))
3873 (custom-prefix-list (custom-prefix-add symbol prefixes))
3874 (extra-prefix (if (widget-get widget :custom-last)
3885 :tag (custom-unlispify-tag-name (nth 0 entry))
3886 :custom-prefixes custom-prefix-list
3887 :custom-level (1+ level)
3888 :custom-last (null members)
3890 :custom-prefix prefix)
3897 (unless (eq custom-buffer-style 'links)
3898 (insert-char ?\ (* custom-buffer-indent (1- level)))
3906 (if (eq custom-buffer-style 'links)
3908 widget 'custom-group-link
3913 widget 'custom-group-visibility
3915 :action 'custom-toggle-parent
3921 widget 'custom-magic nil)))
3922 (widget-put widget :custom-magic magic)
3927 (if (and (eq custom-buffer-style 'links) (> level 1))
3936 (if (custom-add-parent-links widget
3940 (insert-char ?\ (* custom-buffer-indent (1- level)))
3948 (unless (eq custom-buffer-style 'links)
3953 :action 'custom-toggle-parent
3961 (* custom-buffer-indent level)))
3965 widget 'custom-magic
3968 (widget-put widget :custom-magic magic)
3978 (insert-char ?\ custom-buffer-indent)
3979 (custom-add-parent-links widget)))
3980 (custom-add-see-also widget
3981 (make-string (* custom-buffer-indent level)
3985 (let* ((members (custom-sort-items members
3986 custom-buffer-sort-alphabetically
3987 custom-buffer-order-groups))
3988 (prefixes (widget-get widget :custom-prefixes))
3989 (custom-prefix-list (custom-prefix-add symbol prefixes))
4002 :tag (custom-unlispify-tag-name
4004 :custom-prefixes custom-prefix-list
4005 :custom-level (1+ level)
4011 (mapc 'custom-magic-reset children)
4014 (custom-group-state-update widget)
4018 (insert-char ?\ (* custom-buffer-indent (1- level)))
4020 (insert-char ?- (- 75 (current-column) (* custom-buffer-indent level)))
4023 (defvar custom-group-menu
4024 `(("Set for Current Session" custom-group-set
4026 (eq (widget-get widget :custom-state) 'modified)))
4027 ,@(when (or custom-file user-init-file)
4028 '(("Save for Future Sessions" custom-group-save
4030 (memq (widget-get widget :custom-state) '(modified set))))))
4031 ("Undo Edits" custom-group-reset-current
4033 (memq (widget-get widget :custom-state) '(modified))))
4034 ("Reset to Saved" custom-group-reset-saved
4036 (memq (widget-get widget :custom-state) '(modified set))))
4037 ,@(when (or custom-file user-init-file)
4038 '(("Erase Customization" custom-group-reset-standard
4040 (memq (widget-get widget :custom-state) '(modified set saved)))))))
4041 "Alist of actions for the `custom-group' widget.
4044 menu is selected, and FILTER is a predicate which takes a `custom-group'
4048 (defun custom-group-action (widget &optional event)
4049 "Show the menu for `custom-group' WIDGET.
4051 (if (eq (widget-get widget :custom-state) 'hidden)
4052 (custom-toggle-hide widget)
4055 (custom-unlispify-tag-name
4057 (custom-menu-filter custom-group-menu
4063 (defun custom-group-set (widget)
4067 (when (eq (widget-get child :custom-state) 'modified)
4068 (widget-apply child :custom-set)))
4071 (defun custom-group-save (widget)
4075 (when (memq (widget-get child :custom-state) '(modified set))
4076 (widget-apply child :custom-save)))
4079 (defun custom-group-reset-current (widget)
4083 (when (eq (widget-get child :custom-state) 'modified)
4084 (widget-apply child :custom-reset-current)))
4087 (defun custom-group-reset-saved (widget)
4091 (when (memq (widget-get child :custom-state) '(modified set))
4092 (widget-apply child :custom-reset-saved)))
4095 (defun custom-group-reset-standard (widget)
4099 (when (memq (widget-get child :custom-state)
4101 (widget-apply child :custom-reset-standard)))
4104 (defun custom-group-state-update (widget)
4106 (unless (eq (widget-get widget :custom-state) 'hidden)
4109 (widget-get child :custom-state))
4111 (magics custom-magic-alist)
4120 (widget-put widget :custom-state found)))
4121 (custom-magic-reset widget))
4124 ;;; Reading and writing the custom file.
4127 (defcustom custom-file nil
4137 \(setq custom-file \"~/.emacs-custom.el\")
4138 \(load custom-file)
4144 previous custom file \(usually your init file) for the
4145 forms `(custom-set-variables ...)' and `(custom-set-faces ...)',
4146 and copy them (whichever ones you find) to the new custom file.
4152 `custom-set-variables' and `custom-set-faces' forms already
4154 the old custom file. You should do that manually if that is what you
4158 and hence will not set `custom-file' to that file either."
4168 (defun custom-file ()
4171 (or custom-file
4187 (defun custom-save-all ()
4188 "Save all customizations in `custom-file'."
4189 (when (and (null custom-file) init-file-had-error)
4191 (let* ((filename (custom-file))
4193 (if recentf-mode
4196 (recentf-expand-file-name (custom-file)))
4202 (unless (eq major-mode 'emacs-lisp-mode)
4203 (emacs-lisp-mode))
4205 (custom-save-variables)
4206 (custom-save-faces))
4224 (custom-push-theme 'theme-face symbol 'user 'set value)
4228 (custom-push-theme 'theme-value symbol 'user 'set value)
4236 ;; We really should update all custom buffers here.
4237 (custom-save-all))
4240 ;; Editing the custom file contents in a buffer.
4242 (defun custom-save-delete (symbol)
4281 (defun custom-save-variables ()
4282 "Save all customized variables in `custom-file'."
4284 (custom-save-delete 'custom-set-variables)
4299 (princ "(custom-set-variables
4300 ;; custom-set-variables was added by Custom.
4307 (requests (get symbol 'custom-requests))
4308 (now (and (not (custom-variable-p symbol))
4355 (defun custom-save-faces ()
4356 "Save all customized faces in `custom-file'."
4358 (custom-save-delete 'custom-reset-faces)
4359 (custom-save-delete 'custom-set-faces)
4375 (princ "(custom-set-faces
4376 ;; custom-set-faces was added by Custom.
4384 (and (not (custom-facep symbol))
4415 (defcustom custom-menu-nesting 2
4416 "Maximum nesting in custom menus."
4418 :group 'custom-menu)
4420 (defun custom-face-menu-create (widget symbol)
4422 (vector (custom-unlispify-menu-entry symbol)
4426 (defun custom-variable-menu-create (widget symbol)
4428 (let ((type (get symbol 'custom-type)))
4431 (if (and type (widget-get type :custom-menu))
4432 (widget-apply type :custom-menu symbol)
4433 (vector (custom-unlispify-menu-entry symbol)
4439 :custom-menu (lambda (widget symbol)
4440 (vector (custom-unlispify-menu-entry symbol)
4445 (defun custom-group-menu-create (widget symbol)
4447 `( ,(custom-unlispify-menu-entry symbol t)
4449 (let* ((menu (custom-menu-create ',symbol)))
4453 (defun custom-menu-create (symbol)
4457 (item (vector (custom-unlispify-menu-entry symbol)
4460 (if (and (or (not (boundp 'custom-menu-nesting))
4461 (>= custom-menu-nesting 0))
4463 (custom-load-symbol symbol)
4464 (< (length (get symbol 'custom-group)) widget-menu-max-size)))
4465 (let ((custom-prefix-list (custom-prefix-add symbol
4466 custom-prefix-list))
4467 (members (custom-sort-items (get symbol 'custom-group)
4468 custom-menu-sort-alphabetically
4469 custom-menu-order-groups)))
4470 `(,(custom-unlispify-menu-entry symbol t)
4477 :custom-menu (nth 0 entry)))
4491 (let ((menu (custom-menu-create ',symbol)))
4509 (easy-menu-define Custom-mode-menu
4510 custom-mode-map
4521 (defvar custom-field-keymap
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)
4528 (widget-put (get 'editable-field 'widget-type) :keymap custom-field-keymap)
4541 (defcustom custom-mode-hook nil
4542 "Hook called when entering Custom mode."
4544 :group 'custom-buffer )
4546 (defun custom-state-buffer-message (widget)
4547 (if (eq (widget-get (widget-get widget :parent) :custom-state) 'modified)
4550 (defun custom-mode ()
4551 "Major mode for editing customization buffers.
4558 \\<custom-field-keymap>\
4560 \\<custom-mode-map>\
4570 Entry to this mode calls the value of `custom-mode-hook'
4573 (setq major-mode 'custom-mode
4574 mode-name "Custom")
4575 (use-local-map custom-mode-map)
4576 (easy-menu-add Custom-mode-menu)
4577 (make-local-variable 'custom-options)
4578 (make-local-variable 'custom-local-buffer)
4580 (setq widget-documentation-face 'custom-documentation)
4582 (setq widget-button-face custom-button)
4590 (set (make-local-variable 'widget-button-pressed-face) custom-button-pressed)
4591 (set (make-local-variable 'widget-mouse-face) custom-button-mouse)
4595 (when custom-raised-buttons
4600 (add-hook 'widget-edit-functions 'custom-state-buffer-message nil t)
4601 (run-mode-hooks 'custom-mode-hook))
4603 (put 'custom-mode 'mode-class 'special)