Current File : //usr/local/share/emacs/27.2/lisp/cus-edit.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\3031 \300\304!0\202 \210\202 \210\3051# \300\306!0\202' \210\202( \210\307\310\311\312#\210\307\310\313\314#\210\315\316\310\317#\210\320\321\322\323\324\325%\210\320\326\322\327\330\321%\210\320\331\322\332\330\321%\210\320\333\322\334\330\321%\210\320\335\322\336\330\321%\210\320\337\322\340\330\321\330\335&\210\320\341\322\342\330\321%\210\320\343\322\344\345\346\330\331&\210\320\347\322\350\330\326%\210\320\351\322\352\324\353\330\326&\210\320\354\322\355\330\321%\210\320\356\322\357\345\360\330\321&\210\320\361\322\362\330\354%\210\320\363\322\364\330\321%\210\320\365\322\366\330\363%\210\320\367\322\370\324\371\330\365\330\372& \210\320\373\322\374\324\375\324\376\330\365& \210\320\377\322\201@ \330\363%\210\320\201A \322\201B \330\321%\210\320\201C \322\201D \330\201A %\210\320\201E \322\201F \330\201A %\210\320\201G \322\201H \324\201I \330\201A &\210\320\201J \322\201K \330\201A %\210\320\372\322\201L \330\321%\210\320\201M \322\201N \330\372%\210\320\201O \322\201P \330\372%\210\320\201Q \322\201R \330\372%\210\320\201S \322\201T \345\201U \330\372&\210\320\201V \322\201W \330\321%\210\320\201X \322\201Y \330\201V %\210\320\201Z \322\201[ \330\201V %\210\320\201\\ \322\201] \330\201V %\210\320\201^ \322\201_ \324\201` \330\201V \330\326& \210\320\201a \322\201b \330\201V %\210\320\201c \322\201d \330\201V %\210\320\201e \322\201f \324\201g \330\337&\210\320\201h \322\201i \330\321%\210\320\201j \322\201k \330\321%\210\320\201l \322\201m \330\321%\210\320\201n \322\201o \330\321%\210\320\316\201p \201q \201r \201s \330\201j &\210\320\201t \322\201u \330\316\330\201h &\210\320\201v \322\201w \201r \201s \330\316&\210\320\201x \322\201y \201r \201s \330\316&\210\320\201z \322\201{ \201r \201s \330\316&\210\320\201| \322\201} \345\201~ \330\201Q &\210\320\201 \322\201\200 \324\201\201 \330\326&\210\320\201\202 \322\201\203 \330\201V %\210\320\201\204 \322\201\205 \330\326%\210\320\201\206 \322\201\207 \330\201V %\210\320\201\210 \322\201\211 \330\361%\210\320\201\212 \322\201\213 \330\201V %\210\320\201\214 \322\201\215 \330\201V %\210\320\201\216 \322\201\217 \330\201Q %\210\320\201\220 \322\201\221 \330\372%\210\320\201\222 \322\201\223 \330\201V %\210\320\201\224 \322\201\225 \330\201V %\210\320\201\226 \322\201\227 \330\201V %\210\320\201\230 \322\201\231 \330\333%\210\320\201\232 \322\201\233 \330\361%\210\320\201\234 \322\201\235 \330\201^ %\210\320\201\236 \322\201\237 \324\201\240 \330\201V &\207" [require cus-face wid-edit (error) cus-load (error) cus-start put custom-define-hook custom-type hook standard-value (nil) custom-add-to-group customize custom-variable custom-declare-group emacs nil "Customization of the One True Editor." :link (custom-manual "(emacs)Top") editing "Basic text editing facilities." :group convenience "Convenience features for faster editing." files "Support for editing files." wp "Support for editing text files.\nUse group `text' for this instead. This group is deprecated." text "Support for editing text files." data "Support for editing binary data files." abbrev "Abbreviation handling, typing shortcuts, macros." :tag "Abbreviations" matching "Various sorts of searching and matching." emulations "Emulations of other editors." (custom-manual "(emacs)Emulation") external "Interfacing to external utilities." comm "Communications, networking, and remote access to files." "Communication" processes "Process, subshell, compilation, and job control support." programming "Support for programming in other languages." languages "Modes for editing programming languages." lisp "Lisp support, including Emacs Lisp." (custom-group-link :tag "Font Lock Faces group" font-lock-faces) development c "Support for the C language and related languages." (custom-group-link :tag "Font Lock Faces group" font-lock-faces) (custom-manual "(ccmode)") tools "Programming tools." applications "Applications written in Emacs." calendar "Calendar and time management support." mail "Modes for electronic-mail handling." news "Reading and posting to newsgroups." (custom-manual "(gnus)") games "Games, jokes and amusements." "Support for further development of Emacs." docs "Support for Emacs documentation." extensions "Emacs Lisp language extensions." internal "Code for Emacs internals, build process, defaults." maint "Maintenance aids for the Emacs development group." "Maintenance" environment "Fitting Emacs with its environment." hardware "Support for interfacing with miscellaneous hardware." terminals "Support for terminal types." unix "Interfaces, assistants, and emulators for UNIX features." i18n "Internationalization and alternate character-set support." (custom-manual "(emacs)International") x "The X Window system." frames "Support for Emacs frames and window systems." tex "Code related to the TeX formatter." (custom-group-link :tag "Font Lock Faces group" font-lock-faces) faces "Support for multiple fonts." help "Support for Emacs help systems." multimedia "Non-textual support, specifically images and sound." local "Code local to your site." ((widgets custom-group)) "Customization of the Customization support." :prefix "custom-" custom-faces "Faces used by customize." custom-browse "Control customize browser." custom-buffer "Control customize buffers." custom-menu "Control customize menus." alloc "Storage allocation and gc for GNU Emacs Lisp interpreter." "Storage Allocation" undo "Undoing changes in buffers." (custom-manual "(emacs)Undo") mode-line "Contents of the mode line." editing-basics "Most basic editing facilities." display "How characters are displayed in buffers." execute "Executing external commands." installation "The Emacs installation." dired "Directory editing." limits "Internal Emacs limits." debug "Debugging Emacs itself." keyboard "Input from the keyboard." menu "Input from the menus." dnd "Handling data from drag and drop." auto-save "Preventing accidental loss of data." processes-basics "Basic stuff dealing with processes." mule "MULE Emacs internationalization." windows "Windows within a frame." (custom-manual "(emacs)Windows")] 10)
#@27 Keymap for `Custom-mode'.
(defvar custom-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\313#\210\303\315\316#\210\303\317\320#\210\303\321\322#\210\303\323\324#\210\303\325\326#\210\303\327\330#\210\211\207" [widget-keymap make-keymap set-keymap-parent define-key [remap self-insert-command] Custom-no-edit "
" Custom-newline " " scroll-up-command [33554464] scroll-down-command "" "" Custom-set "" Custom-save "q" Custom-buffer-done "u" Custom-goto-parent "n" widget-forward "p" widget-backward] 5) (#$ . 6543))
#@42 Local keymap for links in `Custom-mode'.
(defvar custom-mode-link-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\211\207" [custom-mode-map make-keymap set-keymap-parent define-key [down-mouse-2] nil [down-mouse-1] mouse-drag-region [mouse-2] widget-move-and-invoke] 5) (#$ . 7146))
#@62 Keymap used inside editable fields in customization buffers.
(defvar custom-field-keymap (byte-code "\301!\302\303\304#\210\302\305\306#\210\211\207" [widget-field-keymap copy-keymap define-key "" Custom-set "" Custom-save] 5) (#$ . 7475))
(byte-code "\301\302\303N\304#\207" [custom-field-keymap widget-put editable-field widget-type :keymap] 4)
#@204 If REGEXP is a string, split it to a list at `\|'.
You can get the original back from the result with:
(mapconcat \='identity result "\|")
IF REGEXP is not a string, return it unchanged.
(fn REGEXP)
(defalias 'custom-split-regexp-maybe #[257 "\211;\203\n \300\301\"\207\207" [split-string "\\\\|"] 4 (#$ . 7837)])
#@117 Prompt for a custom variable, defaulting to the variable at point.
Return a list suitable for use in `interactive'.
(defalias 'custom-variable-prompt #[0 "\302 \2119\205 \303!\205 \304!\305\306\307\203 \310\311\"\202 \312 \303\305\306\211&\262\211\313\232\203: 9\205= \202= \314!)C\207" [enable-recursive-minibuffers obarray variable-at-point custom-variable-p symbol-name t nil completing-read format "Customize variable (default %s): " "Customize variable: " "" intern] 11 (#$ . 8163)])
#@191 Convert MENU to the form used by `widget-choose'.
MENU should be in the same format as `custom-variable-menu'.
WIDGET is the widget to apply the filter entries of MENU on.
(fn MENU WIDGET)
(defalias 'custom-menu-filter #[514 "\300\211\211\211\211\203? @\262@\262A@\262\3018\262A\262\211\203- \211!\2037 BB\262\202 B\262\202 \237\207" [nil 2] 9 (#$ . 8675)])
#@64 List of prefixes that should be ignored by `custom-unlispify'.
(defvar custom-prefix-list nil (#$ . 9066))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\306\315\310\311& \207" [custom-declare-variable custom-unlispify-menu-entries funcall function #[0 "\300\207" [t] 1] "Display menu entries as words instead of symbols if non-nil." :group custom-menu :type boolean custom-unlispify-remove-prefixes #[0 "\300\207" [nil] 1] "Non-nil means remove group prefixes from option names in buffer.\nDiscarding prefixes often leads to confusing names for options\nand faces in Customize buffers, so do not set this to a non-nil\nvalue unless you are sure you know what it does." custom-buffer] 10)
#@68 Convert SYMBOL into a menu entry.
(fn SYMBOL &optional NO-SUFFIX)
(defalias 'custom-unlispify-menu-entry #[513 "\204 \303!\207\304N\203 \211\203 \304N\207\304N\305P\207r\306\307!q\210\310 \210\311p\"\210eb\210 \203Y \n\312\203W @\262\313`G\\\314#\203P \312\262e`|\210\2023 A\262\2023 \266eb\210\315\316\312\314#\203k \317\320!\210\202\\ \321ed\"\210\211\204z db\210\305c\210\322 )\207" [custom-unlispify-menu-entries custom-unlispify-remove-prefixes custom-prefix-list symbol-name custom-tag "..." get-buffer-create " *Custom-Work*" erase-buffer princ nil search-forward t re-search-forward "[-:/]+" replace-match " " capitalize-region buffer-string] 8 (#$ . 9809)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable custom-unlispify-tag-names funcall function #[0 "\300\207" [t] 1] "Display tag names as words instead of symbols if non-nil." :group custom-buffer :type boolean] 8)
#@48 Convert SYMBOL into a menu entry.
(fn SYMBOL)
(defalias 'custom-unlispify-tag-name #[257 "\302\303\")\207" [custom-unlispify-tag-names custom-unlispify-menu-entries custom-unlispify-menu-entry t] 4 (#$ . 10753)])
#@63 Add SYMBOL to list of ignored PREFIXES.
(fn SYMBOL PREFIXES)
(defalias 'custom-prefix-add #[514 "\300N\206 \301!\302PB\207" [custom-prefix symbol-name "-"] 4 (#$ . 10976)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\207" [custom-declare-variable custom-guess-name-alist funcall function #[0 "\300\207" [(("-p\\'" boolean) ("-flag\\'" boolean) ("-hook\\'" hook) ("-face\\'" face) ("-file\\'" file) ("-function\\'" function) ("-functions\\'" (repeat function)) ("-list\\'" (repeat sexp)) ("-alist\\'" (alist :key-type sexp :value-type sexp)))] 1] "Alist of (MATCH TYPE).\n\nMATCH should be a regexp matching the name of a symbol, and TYPE should\nbe a widget suitable for editing the value of that symbol. The TYPE\nof the first entry where MATCH matches the name of the symbol will be\nused.\n\nThis is used for guessing the type of variables not declared with\ncustomize." :type (repeat (group (regexp :tag "Match") (sexp :tag "Type"))) :group custom-buffer custom-guess-doc-alist #[0 "\300\207" [(("\\`\\*?Non-nil " boolean))] 1] "Alist of (MATCH TYPE).\n\nMATCH should be a regexp matching a documentation string, and TYPE\nshould be a widget suitable for editing the value of a variable with\nthat documentation string. The TYPE of the first entry where MATCH\nmatches the name of the symbol will be used.\n\nThis is used for guessing the type of variables not declared with\ncustomize." (repeat (group (regexp :tag "Match") (sexp :tag "Type")))] 8)
#@199 Guess a widget suitable for editing the value of SYMBOL.
This is done by matching SYMBOL with `custom-guess-name-alist' and
if that fails, the doc string with `custom-guess-doc-alist'.
(fn SYMBOL)
(defalias 'custom-guess-type #[257 "\303!\304\211\203. @\262A\262@\304\305\306#)\266\203\203 A@\262\304\262\202 \211\204f \307\310\305#\n\203d \211\203d \211@\262\211A\262@\304\305\306#)\266\203\203< A@\262\304\262\202< \266\207" [custom-guess-name-alist inhibit-changing-match-data custom-guess-doc-alist symbol-name nil t string-match documentation-property variable-documentation] 14 (#$ . 12505)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\300\316\302\303\317DD\320\306\307\310\311&\210\300\321\302\303\322DD\323\306\307\310\324\325\326& \210\300\327\302\303\330DD\314\306\331\310\324&\210\300\332\302\303\333DD\334\306\307\310\335&\210\300\336\302\303\337DD\314\306\340\310\335&\207" [custom-declare-variable custom-browse-sort-alphabetically funcall function #[0 "\300\207" [nil] 1] "If non-nil, sort customization group alphabetically in `custom-browse'." :type boolean :group custom-browse custom-browse-order-groups #[0 "\300\207" [nil] 1] "If non-nil, order group members within each customization group.\nIf `first', order groups before non-groups.\nIf `last', order groups after non-groups." (choice (const first) (const last) (const :tag "none" nil)) custom-browse-only-groups #[0 "\300\207" [nil] 1] "If non-nil, show group members only within each customization group." custom-buffer-sort-alphabetically #[0 "\300\207" [t] 1] "Whether to sort customization groups alphabetically in Custom buffer." custom-buffer :version "24.1" custom-buffer-order-groups #[0 "\300\207" [last] 1] (choice (const first) (const last) (const :tag "none" nil)) custom-menu-sort-alphabetically #[0 "\300\207" [nil] 1] "If non-nil, sort each customization group alphabetically in menus." custom-menu custom-menu-order-groups #[0 "\300\207" [first] 1] (choice (const first) (const last) (const :tag "none" nil))] 10)
#@318 Return a sorted copy of ITEMS.
ITEMS should be a list of `custom-group' properties.
If SORT-ALPHABETICALLY non-nil, sort alphabetically.
If ORDER-GROUPS is `first' order groups before non-groups, if `last' order
groups after non-groups, if nil do not order groups at all.
(fn ITEMS SORT-ALPHABETICALLY ORDER-GROUPS)
(defalias 'custom-sort-items #[771 "\300\301!\302\303\304\305\306\"\307\"\310\311%\"\207" [sort copy-sequence make-byte-code 514 "A@A@@@\301\204 \300\205G \231\202G \302=\2034 \302=\203. \300\205G \231\202G \301\303=\202G \302=\203@ \301\304=\202G \300\205G \231\207" vconcat vector [custom-group first last] 8 "\n\n(fn A B)"] 12 (#$ . 14621)])
(defvar custom-commands '((" Apply " Custom-set t "Apply settings (for the current session only)." "index" "Apply") (" Apply and Save " Custom-save (or custom-file user-init-file) "Apply settings and save for future sessions." "save" "Save") (" Undo Edits " Custom-reset-current t "Restore customization buffer to reflect existing settings." "refresh" "Undo") (" Reset Customizations " Custom-reset-saved t "Undo any settings applied only for the current session." "undo" "Reset") (" Erase Customizations " Custom-reset-standard (or custom-file user-init-file) "Un-customize settings in this and future sessions." "delete" "Uncustomize") (" Help for Customize " Custom-help t "Get help for using Customize." "help" "Help") (" Exit " Custom-buffer-done t "Exit Customize." "exit" "Exit")))
#@58 Read the node on Easy Customization in the Emacs manual.
(defalias 'Custom-help #[0 "\300\301!\207" [info "(emacs)Easy Customization"] 2 (#$ . 16097) nil])
#@206 Alist of actions for the `Reset' button.
The key is a string containing the name of the action, the value is a
Lisp function taking the widget as an element which will be called
when the action is chosen.
(defvar custom-reset-menu '(("Undo Edits in Customization Buffer" . Custom-reset-current) ("Revert This Session's Customizations" . Custom-reset-saved) ("Erase Customizations" . Custom-reset-standard)) (#$ . 16260))
#@46 Customization widgets in the current buffer.
(defvar custom-options nil (#$ . 16687))
#@325 Call function FUN on all widgets in `custom-options'.
If there is more than one widget, ask user for confirmation using
the query string QUERY, using `y-or-n-p' if STRONG-QUERY is nil,
and `yes-or-no-p' otherwise. Return non-nil if the functionality
has been executed, nil otherwise.
(fn FUN QUERY &optional STRONG-QUERY)
(defalias 'custom-command-apply #[770 "G\301U\203 @\211@\262\302>\204 \211\203 \303\202 \304!\203' \305\"\210\306\207\307\310!\210\311\207" [custom-options 1 (custom-variable custom-face) yes-or-no-p y-or-n-p mapc t message "Aborted" nil] 6 (#$ . 16780)])
#@80 Set the current value of all edited settings in the buffer.
(fn &rest IGNORE)
(defalias 'Custom-set #[128 "\300\301\302\"\207" [custom-command-apply #[257 "\300\301\"\302=\205
\303\304\"\207" [widget-get :custom-state modified widget-apply :custom-set] 4 "\n\n(fn CHILD)"] "Set all values according to this buffer? "] 4 (#$ . 17376) nil])
#@211 Set all edited settings, then save all settings that have been set.
If a setting was edited and set before, this saves it. If a
setting was merely edited before, this sets it then saves it.
(fn &rest IGNORE)
(defalias 'Custom-save #[128 "\301\302\303\304#\205 \305 \210\211\205 \211@\306\307\"\210A\266\202\202\f \262\207" [custom-options custom-command-apply #[257 "\300\301\"\302>\205
\303\304\"\207" [widget-get :custom-state (modified set changed rogue) widget-apply :custom-mark-to-save] 4 "\n\n(fn CHILD)"] "Save all settings in this buffer? " t custom-save-all widget-apply :custom-state-set-and-redraw] 6 (#$ . 17726) nil])
#@59 Select item from reset menu.
(fn WIDGET &optional EVENT)
(defalias 'custom-reset #[513 "\302\303\304 #\211\205
\211 )\207" [completion-ignore-case custom-reset-menu t widget-choose "Reset settings"] 6 (#$ . 18375)])
#@90 Reset all edited settings in the buffer to show their current values.
(fn &rest IGNORE)
(defalias 'Custom-reset-current #[128 "\300\301\302\"\207" [custom-command-apply #[257 "\300\301\"\302>\205
\303\304\"\207" [widget-get :custom-state (modified changed) widget-apply :custom-reset-current] 4 "\n\n(fn WIDGET)"] "Reset all settings' buffer text to show current values? "] 4 (#$ . 18601) nil])
#@137 Reset all edited or set settings in the buffer to their saved value.
This also shows the saved values in the buffer.
(fn &rest IGNORE)
(defalias 'Custom-reset-saved #[128 "\300\301\302\"\207" [custom-command-apply #[257 "\300\301\"\302>\205
\303\304\"\207" [widget-get :custom-state (modified set changed rogue) widget-apply :custom-reset-saved] 4 "\n\n(fn WIDGET)"] "Reset all settings (current values and buffer text) to saved values? "] 4 (#$ . 19007) nil])
(defvar custom-reset-standard-variables-list nil)
(defvar custom-reset-standard-faces-list nil)
#@56 Save settings and redraw after erasing customizations.
(defalias 'custom-reset-standard-save-and-update #[0 "\203\n \302=\203 \205{ \303=?\205{ \304 \210\211\2036 \211@\211\305=\204/ \306\307\310#\210\311!\210A\266\202\202 \210 \211\205y \211@\211\305=\204r \312!\313\314\"@\313\315\"\316\317\320#\210\321\322\305\323\320\"DC!\"\210\321\324\"\210\325!\210\326!\266A\266\202\2028 \262\207" [custom-reset-standard-variables-list custom-reset-standard-faces-list (t) (t) custom-save-all t widget-put :custom-state unknown custom-redraw widget-value widget-get :children :comment-widget put face-comment nil widget-value-set custom-pre-filter-face-spec custom-face-attributes-get "" custom-face-state-set custom-redraw-magic] 12 (#$ . 19574)])
#@279 Erase all customizations (either current or saved) in current buffer.
The immediate result is to restore them to their standard values.
This operation eliminates any saved values for the group members,
making them as if they had never been customized at all.
(fn &rest IGNORE)
(defalias 'Custom-reset-standard #[128 "\302\303\304\305\306\307#\205 \310 *\207" [custom-reset-standard-faces-list custom-reset-standard-variables-list (t) (t) custom-command-apply #[257 "\300\301\"\203 \302\301\"\205 \300\303\"\304>\205 \302\305\"\207" [widget-get :custom-standard-value widget-apply :custom-state (modified set changed saved rogue) :custom-mark-to-reset-standard] 4 "\n\n(fn WIDGET)"] "The settings will revert to their default values, in this\nand future sessions. Really erase customizations? " t custom-reset-standard-save-and-update] 5 (#$ . 20344) nil])
#@831 Prompt for a variable and a value and return them as a list.
PROMPT-VAR is the prompt for the variable, and PROMPT-VAL is the
prompt for the value. The %s escape in PROMPT-VAL is replaced with
the name of the variable.
If the variable has a `variable-interactive' property, that is used as if
it were the arg to `interactive' (which see) to interactively read the value.
If the variable has a `custom-type' property, it must be a widget and the
`:prompt-value' property of that widget will be used for reading the value.
If the variable also has a `custom-get' property, that is used for finding
the current value of the variable, otherwise `symbol-value' is used.
If optional COMMENT argument is non-nil, also prompt for a comment and return
it as the third element in the list.
(fn PROMPT-VAR PROMPT-VAL &optional COMMENT)
(defalias 'custom-prompt-variable #[770 "\301!\302\303DD\211\304N\305N\306\"<\204 C\262\203/ \307\310\311\312D\313BBB!\202T \203Q \314\315!\205H \316N\206E \317!\315!?$\202T \320!\266\203\203f \321\322\323N\"E\202i D)\207" [minibuffer-help-form read-variable describe-variable quote variable-interactive custom-type format call-interactively lambda (arg) interactive (arg) widget-prompt-value boundp custom-get symbol-value eval-minibuffer read-string "Comment: " variable-comment] 13 (#$ . 21219)])
#@473 Set VARIABLE to VALUE, and return VALUE. VALUE is a Lisp object.
If VARIABLE has a `variable-interactive' property, that is used as if
it were the arg to `interactive' (which see) to interactively read the value.
If VARIABLE has a `custom-type' property, it must be a widget and the
`:prompt-value' property of that widget will be used for reading the value.
If given a prefix (or a COMMENT argument), also prompt for a comment.
(fn VARIABLE VALUE &optional COMMENT)
(defalias 'customize-set-value #[770 "\211\300\230\203 \301\302\303#\210\202 \211\203 \301\302#\210L\207" ["" put variable-comment nil] 7 (#$ . 22587) (custom-prompt-variable "Set variable: " "Set %s to value: " current-prefix-arg)])
#@598 Set the default for VARIABLE to VALUE, and return VALUE.
VALUE is a Lisp object.
If VARIABLE has a `custom-set' property, that is used for setting
VARIABLE, otherwise `set-default' is used.
If VARIABLE has a `variable-interactive' property, that is used as if
it were the arg to `interactive' (which see) to interactively read the value.
If VARIABLE has a `custom-type' property, it must be a widget and the
`:prompt-value' property of that widget will be used for reading the value.
If given a prefix (or a COMMENT argument), also prompt for a comment.
(fn VARIABLE VALUE &optional COMMENT)
(defalias 'customize-set-variable #[770 "\300!\210\301\302\303\304\305!%\210\306N\206 \307\"\210\310\311\305!C#\210\211\312\230\2038 \310\313\314#\210\310\315\314#\210\202H \211\203H \310\313#\210\310\315#\210\207" [custom-load-symbol custom-push-theme theme-value user set custom-quote custom-set set-default put customized-value "" variable-comment nil customized-variable-comment] 10 (#$ . 23308) (custom-prompt-variable "Set variable: " "Set customized value for %s to: " current-prefix-arg)])
#@603 Set the default for VARIABLE to VALUE, and save it for future sessions.
Return VALUE.
If VARIABLE has a `custom-set' property, that is used for setting
VARIABLE, otherwise `set-default' is used.
If VARIABLE has a `variable-interactive' property, that is used as if
it were the arg to `interactive' (which see) to interactively read the value.
If VARIABLE has a `custom-type' property, it must be a widget and the
`:prompt-value' property of that widget will be used for reading the value.
If given a prefix (or a COMMENT argument), also prompt for a comment.
(fn VARIABLE VALUE &optional COMMENT)
(defalias 'customize-save-variable #[770 "\300N\206 \301\"\210\302\303\304!C#\210\305\306\307\310\304!%\210\211\311\230\2034 \302\312\313#\210\302\314\313#\210\202D \211\203D \302\312#\210\302\314#\210\302\315\313#\210\302\316\313#\210\317\320!\203\\ \321 \210\202e \322\323\"\210L\210\207" [custom-set set-default put saved-value custom-quote custom-push-theme theme-value user set "" variable-comment nil saved-variable-comment customized-value customized-variable-comment custom-file t custom-save-all message "Setting `%s' temporarily since \"emacs -q\" would overwrite customizations"] 10 (#$ . 24427) (custom-prompt-variable "Set and save variable: " "Set and save value for %s as: " current-prefix-arg)])
#@354 Add ELTS to LIST-VAR and save for future sessions, safely.
ELTS should be a list. This function adds each entry to the
value of LIST-VAR using `add-to-list'.
If Emacs is initialized, call `customize-save-variable' to save
the resulting list value now. Otherwise, add an entry to
`after-init-hook' to save it after initialization.
(fn LIST-VAR ELTS)
(defalias 'customize-push-and-save #[514 "\211\211\203 \211@\302\"\210A\266\202\202 \210\203\" \303\304\305!\")\207\306\307\310\311\312\313\314\"\315\"\316$\"\207" [after-init-time coding-system-for-read add-to-list nil customize-save-variable eval add-hook after-init-hook make-byte-code 0 "\302\300\301\"\207" vconcat vector [customize-push-and-save] 3] 11 (#$ . 25769)])
#@244 Select a customization buffer which you can use to set user options.
User options are structured into "groups".
Initially the top-level group `Emacs' and its immediate subgroups
are shown; the contents of those subgroups are initially hidden.
(defalias 'customize #[0 "\300\301!\207" [customize-group emacs] 2 (#$ . 26516) nil])
#@214 Customize options related to a major or minor mode.
By default the current major mode is used. With a prefix
argument or if the current major mode has no known group, prompt
for the MODE to customize.
(fn MODE)
(defalias 'customize-mode #[257 "\300\301!!\207" [customize-group custom-group-of-mode] 4 (#$ . 26852) (byte-code "\304\305!\211\203 \n\204 \2020 \306\307\203 \310\311\"\202 \312 \305\313\314\211\205- \315!&!)\266\202C\207" [major-mode completion-regexp-list current-prefix-arg obarray ("-mode\\'") custom-group-of-mode intern completing-read format "Mode (default %s): " "Mode: " t nil symbol-name] 12)])
(defalias 'customize-read-group #[0 "\302\303\304 \305\302$)\207" [completion-ignore-case obarray t completing-read "Customize group (default emacs): " #[257 "\211\300N\203
\211\301N?\206 \211\302N\207" [custom-loads custom-autoload custom-group] 3 "\n\n(fn SYMBOL)"]] 5])
#@145 Customize GROUP, which must be a customization group.
If OTHER-WINDOW is non-nil, display in another window.
(fn &optional GROUP OTHER-WINDOW)
(defalias 'customize-group #[512 ";\203 \300\230\203 \301\262\202 \302!\262\303\304\305!\"\306!\204: \203* \307\202+ \310\311DC\312\305!P#\202G \203D \313!\202G \314!\207" ["" emacs intern format "*Customize Group: %s*" custom-unlispify-tag-name get-buffer custom-buffer-create-other-window custom-buffer-create custom-group " for group " switch-to-buffer-other-window pop-to-buffer-same-window] 9 (#$ . 27769) (byte-code "\300 C\207" [customize-read-group] 1)])
#@96 Customize GROUP, which must be a customization group, in another window.
(fn &optional GROUP)
(defalias 'customize-group-other-window #[256 "\300\301\"\207" [customize-group t] 4 (#$ . 28400) (byte-code "\300 C\207" [customize-read-group] 1)])
(defalias 'customize-variable 'customize-option)
#@61 Customize SYMBOL, which must be a user option.
(fn SYMBOL)
(defalias 'customize-option #[257 "\211\204 \300\301!\210\302!\303\304DC\305\306\307!\"\"\210=?\205$ \310\311#\207" [error "No variable specified" indirect-variable custom-buffer-create custom-variable format "*Customize Option: %s*" custom-unlispify-tag-name message "`%s' is an alias for `%s'"] 8 (#$ . 28701) (custom-variable-prompt)])
(defalias 'customize-variable-other-window 'customize-option-other-window)
#@117 Customize SYMBOL, which must be a user option.
Show the buffer in another window, but don't select it.
(fn SYMBOL)
(defalias 'customize-option-other-window #[257 "\211\204 \300\301!\210\302!\303\304DC\305\306\307!\"\"\210=?\205$ \310\311#\207" [error "No variable specified" indirect-variable custom-buffer-create-other-window custom-variable format "*Customize Option: %s*" custom-unlispify-tag-name message "`%s' is an alias for `%s'"] 8 (#$ . 29190) (custom-variable-prompt)])
#@70 Version for `customize-changed-options' to refer back to by default.
(defvar customize-changed-options-previous-release "26.3" (#$ . 29685))
#@1253 Alist mapping versions of a package to Emacs versions.
We use this for packages that have their own names, but are released
as part of Emacs itself.
Each elements looks like this:
(PACKAGE (PVERSION . EVERSION)...)
Here PACKAGE is the name of a package, as a symbol. After
PACKAGE come one or more elements, each associating a
package version PVERSION with the first Emacs version
EVERSION in which it (or a subsequent version of PACKAGE)
was first released. Both PVERSION and EVERSION are strings.
PVERSION should be a string that this package used in
the :package-version keyword for `defcustom', `defgroup',
and `defface'.
For example, the MH-E package updates this alist as follows:
(add-to-list \='customize-package-emacs-version-alist
\='(MH-E ("6.0" . "22.1") ("6.1" . "22.1")
("7.0" . "22.1") ("7.1" . "22.1")
("7.2" . "22.1") ("7.3" . "22.1")
("7.4" . "22.1") ("8.0" . "22.1")))
The value of PACKAGE needs to be unique and it needs to match the
PACKAGE value appearing in the :package-version keyword. Since
the user might see the value in an error message, a good choice is
the official name of the package, such as MH-E or Gnus.
(defvar customize-package-emacs-version-alist nil (#$ . 29834))
(defalias 'customize-changed 'customize-changed-options)
#@405 Customize all settings whose meanings have changed in Emacs itself.
This includes new user options and faces, and new customization
groups, as well as older options and faces whose meanings or
default values have changed since the previous major Emacs
release.
With argument SINCE-VERSION (a string), customize all settings
that were added or redefined since that version.
(fn &optional SINCE-VERSION)
(defalias 'customize-changed-options #[256 "\211C\211\242\302\232\203 \211\303\240\210\202* \3041 \305\242!\2470\202 \210\303\204* \306\307\310\242D\"\210\211\242\2043 \211\240\210\311\301\312\303#\210 \211\203e \211@\313\242@\"\203^ \211A\211\203] \211@\314\301\"\210A\266\202\202K \210A\266\202\202: \210\315\301!\210\311\301\312\303#\210\303C\316\317\320\321\322\323\"\324\"\325\326%!\210\211\242\203\225 \327\330\242\331\332#\333\"\202\232 \334\335\242\"\262\207" [customize-changed-options-previous-release custom-versions-load-alist "" nil (error) read signal wrong-type-argument numberp put custom-loads customize-version-lessp custom-add-load custom-load-symbol mapatoms make-byte-code 257 "\211\302N\211\203 \303\"\206 \304N\211\205O \305\300\242\"\205O \306N\204) \307N\2032 \301\306D\301\242B\240\210\310!\203A \301\311D\301\242B\240\210\312!\205O \301\313D\301\242B\240\207" vconcat vector [custom-package-version customize-package-emacs-version custom-version customize-version-lessp custom-group group-documentation custom-variable-p custom-variable custom-facep custom-face] 6 "\n\n(fn SYMBOL)" custom-buffer-create custom-sort-items t first "*Customize Changed Options*" user-error "No user option defaults have been changed since Emacs %s"] 11 (#$ . 31214) (byte-code "\301\302\303\"!C\207" [customize-changed-options-previous-release read-from-minibuffer format "Customize options changed, since version (default %s): "] 4)])
#@274 Return the Emacs version in which SYMBOL's meaning last changed.
PACKAGE-VERSION has the form (PACKAGE . VERSION). We use
`customize-package-emacs-version-alist' to find the version of
Emacs that is associated with version VERSION of PACKAGE.
(fn SYMBOL PACKAGE-VERSION)
(defalias 'customize-package-emacs-version #[514 "\302\211<\204 \303\304\"\210\2028 @ \236\211\262\2030 \305A\"A\211\2048 \303\306A\307$\210\2028 \303\310@A#\210)\207" [emacs-version customize-package-emacs-version-alist nil message "Invalid package-version value for %s" assoc "%s version %s not found in %s" "customize-package-emacs-version-alist" "Package %s version %s lists no corresponding Emacs version"] 9 (#$ . 33101)])
#@26
(fn VERSION1 VERSION2)
(defalias 'customize-version-lessp #[514 "\211\247\203\n \300!\262\301\211\211\211\302\303\"\210\304\305\306\"\206 \307!\262\304\305\310\"\206+ \307!\262\302\303\"\210\304\305\306\"\206> \307!\262\304\305\310\"\206K \307!\262W\206] U\205] W\207" [prin1-to-string nil string-match "\\([0-9]+\\)\\(\\.\\([0-9]+\\)\\)?" read match-string 1 "0" 3] 10 (#$ . 33823)])
#@372 Customize FACE, which should be a face name or nil.
If FACE is nil, customize all faces. If FACE is actually a
face-alias, customize the face it is aliased to.
If OTHER-WINDOW is non-nil, display in another window.
Interactively, when point is on text which has a face specified,
suggest to customize that face, if it's customizable.
(fn &optional FACE OTHER-WINDOW)
(defalias 'customize-face #[512 "\300\235\203\n \301 \262<\203 A\204 @\262\211\203 \302\202! \303<\2035 \211\304\305\306\"\307\310#\311\"\202X \312N\203@ \312N\262\313!\204K \314\315\"\210\211\316DC\317\320\321!\"\"\207" [(nil "") face-list custom-buffer-create-other-window custom-buffer-create custom-sort-items mapcar #[257 "\211\300D\207" [custom-face] 3 "\n\n(fn S)"] t nil "*Customize Faces*" face-alias facep user-error "Invalid face %S" custom-face format "*Customize Face: %s*" custom-unlispify-tag-name] 9 (#$ . 34242) (byte-code "\300\301\302\303\211\"\206\n \304\303#C\207" [read-face-name "Customize face" face-at-point t "all faces"] 5)])
#@270 Show customization buffer for face FACE in other window.
If FACE is actually a face-alias, customize the face it is aliased to.
Interactively, when point is on text which has a face specified,
suggest to customize that face, if it's customizable.
(fn &optional FACE)
(defalias 'customize-face-other-window #[256 "\300\301\"\207" [customize-face t] 4 (#$ . 35293) (byte-code "\300\301\302\303\211\"\206\n \304\303#C\207" [read-face-name "Customize face" face-at-point t "all faces"] 5)])
#@172 List of options and faces set in this session but not saved.
Each entry is of the form (SYMBOL TYPE), where TYPE is one of the
symbols `custom-face' or `custom-variable'.
(defalias 'custom-unsaved-options #[0 "\300C\301\302\303\304\305\306!\307\"\310\311%!\210\211\242\207" [nil mapatoms make-byte-code 257 "\211\301N\204\f \211\302N\203 \303!\203 \300\304D\300\242B\240\210\211\305N\204' \211\306N\2055 \307!\2055 \300\310D\300\242B\240\207" vconcat vector [customized-face customized-face-comment custom-facep custom-face customized-value customized-variable-comment boundp custom-variable] 4 "\n\n(fn SYMBOL)"] 8 (#$ . 35790)])
(defalias 'customize-customized 'customize-unsaved)
#@68 Customize all options and faces set in this session but not saved.
(defalias 'customize-unsaved #[0 "\300 \211\204\f \301\302!\202 \303\304\305\306#\307\"\207" [custom-unsaved-options error "No user options are set but unsaved" custom-buffer-create custom-sort-items t nil "*Customize Unsaved*"] 6 (#$ . 36487) nil])
#@58 Customize all user variables modified outside customize.
(defalias 'customize-rogue #[0 "\300C\301\302\303\304\305\306!\307\"\310\311%!\210\211\242\204 \312\313!\202& \314\315\242\316\300#\317\"\207" [nil mapatoms make-byte-code 257 "\211\301N\206 \211\302N\206 \211\303N\211\205- \304!\205- \305@!\306!\232?\205- \300\307D\300\242B\240\207" vconcat vector [customized-value saved-value standard-value default-boundp eval default-value custom-variable] 5 "\n\n(fn SYMBOL)" user-error "No rogue user options" custom-buffer-create custom-sort-items t "*Customize Rogue*"] 8 (#$ . 36812) nil])
#@40 Customize all saved options and faces.
(defalias 'customize-saved #[0 "\300C\301\302\303\304\305\306!\307\"\310\311%!\210\211\242\204 \312\313!\202& \314\315\242\316\300#\317\"\207" [nil mapatoms make-byte-code 257 "\211\301N\204\f \211\302N\203 \303!\203 \300\304D\300\242B\240\210\211\305N\204' \211\306N\2055 \307!\2055 \300\310D\300\242B\240\207" vconcat vector [saved-face saved-face-comment custom-facep custom-face saved-value saved-variable-comment boundp custom-variable] 4 "\n\n(fn SYMBOL)" user-error "No saved user options" custom-buffer-create custom-sort-items t "*Customize Saved*"] 8 (#$ . 37419) nil])
#@483 Customize loaded options, faces and groups matching PATTERN.
PATTERN can be a word, a list of words (separated by spaces),
or a regexp (using some regexp special characters). If it is a word,
search for matches for that word as a substring. If it is a list of
words, search for matches for any two (or more) of those words.
If TYPE is `options', include only options.
If TYPE is `faces', include only faces.
If TYPE is `groups', include only groups.
(fn PATTERN &optional TYPE)
(defalias 'customize-apropos #[513 "\301\302!\210\211\303>\204 \304\305\306!\"\210\307!\210\310C\311\312\313\314\315\316\"\317\"\320\321%!\210\211\242\204> \304\322\2048 \323\202; \306!#\210\324\325\242\326#\327\"\207" [custom-buffer-order-groups require apropos (nil options faces groups) error "Invalid setting type %s" symbol-name apropos-parse-pattern nil mapatoms make-byte-code 257 "\n\304!\305\306\307#)\266\203\205d \300\310>\203' \211\311N\203' \301\311D\301\242B\240\210\300\312>\203< \313!\203< \301\314D\301\242B\240\210\300\315>\205d \316!\205d \317!=\205d \211\320N\204\\ \321!\205d \301\322D\301\242B\240\207" vconcat vector [apropos-regexp inhibit-changing-match-data symbol-name nil t string-match (nil groups) custom-group (nil faces) custom-facep custom-face (nil options) boundp indirect-variable saved-value custom-variable-p custom-variable] 8 "\n\n(fn SYMBOL)" "No customizable %s matching %s" "group, face, or option" custom-buffer-create custom-sort-items t "*Customize Apropos*"] 11 (#$ . 38055) (byte-code "\300\301!\302D\207" [apropos-read-pattern "symbol" nil] 2)])
#@91 Customize all loaded customizable options matching REGEXP.
(fn REGEXP &optional IGNORED)
(defalias 'customize-apropos-options #[513 "\300\301\"\207" [customize-apropos options] 5 (#$ . 39663) (byte-code "\300\301!C\207" [apropos-read-pattern "options"] 2)])
#@58 Customize all loaded faces matching REGEXP.
(fn REGEXP)
(defalias 'customize-apropos-faces #[257 "\300\301\"\207" [customize-apropos faces] 4 (#$ . 39929) (byte-code "\300\301!C\207" [apropos-read-pattern "faces"] 2)])
#@59 Customize all loaded groups matching REGEXP.
(fn REGEXP)
(defalias 'customize-apropos-groups #[257 "\300\301\"\207" [customize-apropos groups] 4 (#$ . 40156) (byte-code "\300\301!C\207" [apropos-read-pattern "groups"] 2)])
#@147 Prompt user to customize any unsaved customization options.
Return non-nil if user chooses to customize, for use in
`kill-emacs-query-functions'.
(defalias 'custom-prompt-customize-unsaved-options #[0 "\300 \205 \301\302!\205 \303 \205 \304?\207" [custom-unsaved-options yes-or-no-p "Some customized options have not been saved; Examine? " customize-unsaved t] 2 (#$ . 40388)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\316\317\310\311& \210\300\320\302\303\321DD\322\306\323\310\311&\207" [custom-declare-variable custom-buffer-style funcall function #[0 "\300\207" [links] 1] "Control the presentation style for customization buffers.\nThe value should be a symbol, one of:\n`brackets': groups nest within each other with big horizontal brackets.\n`links': groups have links to subgroups.\n`tree': display groups as trees." :type (radio (const brackets) (const links) (const tree)) :group custom-buffer custom-buffer-done-kill #[0 "\300\207" [nil] 1] "Non-nil means exiting a Custom buffer should kill it." boolean :version "22.1" custom-buffer-indent #[0 "\300\207" [3] 1] "Number of spaces to indent nested groups." integer] 10)
#@195 Get a fresh new buffer with name NAME.
If the buffer already exist, clean it up to be like new.
Beware: it's not quite like new. Good enough for custom, but maybe
not for everybody.
(fn NAME)
(defalias 'custom-get-fresh-buffer #[257 "\300!\211\203 \301\302\"\203 \303!\210\304\262\211\204 \305!\202I r\211q\210\306 \210\307\310!\210\311 \211@A\244\211\203B \211@\312!\210A\266\202\2021 \266\313 \210)\211\207" [get-buffer buffer-local-value buffer-file-name kill-buffer nil get-buffer-create kill-all-local-variables run-hooks kill-buffer-hook overlay-lists delete-overlay erase-buffer] 7 (#$ . 41585)])
#@291 Create a buffer containing OPTIONS.
Optional NAME is the name of the buffer.
OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
SYMBOL is a customization option, and WIDGET is a widget for editing
that option.
DESCRIPTION is unused.
(fn OPTIONS &optional NAME DESCRIPTION)
(defalias 'custom-buffer-create #[769 "\300\301\206 \302!!\210\303!\207" [pop-to-buffer-same-window custom-get-fresh-buffer "*Customization*" custom-buffer-create-internal] 6 (#$ . 42210)])
#@368 Create a buffer containing OPTIONS, and display it in another window.
The result includes selecting that window.
Optional NAME is the name of the buffer.
OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
SYMBOL is a customization option, and WIDGET is a widget for editing
that option.
DESCRIPTION is unused.
(fn OPTIONS &optional NAME DESCRIPTION)
(defalias 'custom-buffer-create-other-window #[769 "\204 \300\262\301\302!!\210\303!\207" ["*Customization*" switch-to-buffer-other-window custom-get-fresh-buffer custom-buffer-create-internal] 6 (#$ . 42700)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\311&\207" [custom-declare-variable custom-reset-button-menu funcall function #[0 "\300\207" [t] 1] "If non-nil, only show a single reset button in customize buffers.\nThis button will have a menu with all three reset operations." :type boolean :group custom-buffer :version "24.3" custom-buffer-verbose-help #[0 "\300\207" [t] 1] "If non-nil, include explanatory text in the customization buffer."] 10)
#@87 Exit current Custom buffer according to `custom-buffer-done-kill'.
(fn &rest IGNORE)
(defalias 'Custom-buffer-done #[128 "\301!\207" [custom-buffer-done-kill quit-window] 3 (#$ . 43800) nil])
#@49 Face used for buttons in customization buffers.
(defvar custom-button nil (#$ . 44000))
#@55 Mouse face used for buttons in customization buffers.
(defvar custom-button-mouse nil (#$ . 44094))
#@57 Face used for pressed buttons in customization buffers.
(defvar custom-button-pressed nil (#$ . 44200))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\317\312\313\320\321& \207" [custom-declare-variable custom-search-field funcall function #[0 "\300\207" [t] 1] "If non-nil, show a search field in Custom buffers." :type boolean :version "24.1" :group custom-buffer custom-raised-buttons #[0 "\300\301!\302\232?\207" [face-valid-attribute-values :box (("unspecified" . unspecified))] 2] "If non-nil, indicate active buttons in a raised-button style.\nOtherwise use brackets." "21.1" :set #[514 "\303\"\210\211\203
\300\202 \304\211\203 \301\202 \305\211\203! \302\202\" \306\211\207" [custom-button custom-button-mouse custom-button-pressed custom-set-default custom-button-unraised highlight custom-button-pressed-unraised] 5 "\n\n(fn VARIABLE VALUE)"]] 12)
#@38
(fn OPTIONS &optional DESCRIPTION)
(defalias 'custom-buffer-create-internal #[513 "\306 \210\206 \n\2033 \211\204 \307\310\311!!\210\307\312!\210\313\314\315\316\317$\210\307\320!\210\313\314\315\321\322\323\324&\210\307\325!\210\307\326!\210 \203` \307\326!\210\327\313\330\331\332\322\333\334&\307\335!\210\336\337\315\340\322\333\341&\210\307\326!\266\n\203h \307\342!\210\343\f
\203\222 \313\337\315\344\322\345\346\347\333\350& \210\351\211A\262\242\"\210\351\211A\262\242\"\210\202\332 \351\211A\262\242\"\210\351\211A\262\242\"\210\307\326!\210\351\211A\262\242\"\210\351\211A\262\242\"\210\351\211A\262\242\"\210\307\352!\210\211A\262\351\211A\262\242\"\210\266\307\353!\266\354\355!\210\356 \210G\357U\203\366 \360\361\"\202\362CG\360\363\364\365\366\367\"\370\"\371\372%\"\266\202@h\373=\204\307\326!\210\354\374!\210A\375=\204+\376\377@\"\210\354\201B !\210\201C \210\201D \210eb\210\354\201E !\207" [custom-file user-init-file custom-buffer-verbose-help custom-search-field custom-commands custom-reset-button-menu Custom-mode widget-insert format-message "Custom settings cannot be saved; maybe you started Emacs with `-q'.\n" "For help using this buffer, see " widget-create custom-manual :tag "Easy Customization" "(emacs)Easy Customization" " in the " "Emacs manual" :help-echo "Read the Emacs manual." "(emacs)Top" "." "\n" "Search for custom items.\nYou can enter one or more words separated by spaces,\nor a regular expression." editable-field :size 40 :action #[513 "\300\301\302!!!\207" [customize-apropos split-string widget-value] 6 "\n\n(fn WIDGET &optional EVENT)"] " " widget-create-child-and-convert push-button " Search " #[513 "\300\301\302\303\304\"!!!\207" [customize-apropos split-string widget-value widget-get :parent] 8 "\n\n(fn WIDGET &optional EVENT)"] "\nOperate on all settings in this buffer:\n" #[1542 "\300\301!\210\302!\205 \303\304\305\306\307 &\207" [widget-insert " " eval widget-create push-button :tag :help-echo :action] 14 "\n\n(fn TAG ACTION ACTIVE HELP ICON LABEL)"] " Revert... " "Show a menu with reset operations." :mouse-down-action ignore custom-reset apply " " "\n\n" message "Creating customization items..." buffer-disable-undo 1 mapcar #[257 "\300A@\301\302\303\304\305\306@!\307 @& \207" [widget-create :documentation-shown t :custom-state unknown :tag custom-unlispify-tag-name :value] 11 "\n\n(fn ENTRY)"] 0 make-byte-code 257 "\302\303\304\305\300\242_\301\"\"\210\306A@\307\310@!\311@%\300\211\242T\240\210h\312=\204( \313\314!\210\313\314!\210\207" vconcat vector [message "Creating customization items ...%2d%%" floor 100.0 widget-create :tag custom-unlispify-tag-name :value 10 widget-insert "\n"] 7 "\n\n(fn ENTRY)" 10 "Creating customization items ...done" tree mapc custom-magic-reset custom-options custom-buffer-style "Creating customization setup..." widget-setup buffer-enable-undo "Creating customization setup...done"] 15 (#$ . 45134)])
#@74 Create a tree browser for the customize hierarchy.
(fn &optional GROUP)
(defalias 'customize-browse #[256 "\211\204 \303\262\304\305\306!!\266\307 \210\310\311\312\203 \313\202 \314\"!\210 \203, \310\315!\210\202] \310\316!\210\317\320\321\322\323\324\325\326&\210\310\327!\210\317\320\321\322\323\330\325\331&\210\310\332!\210\317\320\321\322\323\333\325\334&\210\310\335!\210\336\317\337\340\341\342\343\323\344!\345 & \210)\346 \210eb\207" [custom-raised-buttons custom-browse-only-groups custom-buffer-style emacs "*Customize Browser*" pop-to-buffer-same-window custom-get-fresh-buffer Custom-mode widget-insert format "%s buttons; type RET or click mouse-1\non a button to invoke its action.\nInvoke [+] to expand a group, and [-] to collapse an expanded group.\n" "Raised text indicates" "Square brackets indicate" "Invoke the [Group] button below to edit that item in another window.\n\n" "Invoke the " widget-create item :format "%t" :tag "[Group]" :tag-glyph "folder" ", " "[Face]" "face" ", and " "[Option]" "option" " buttons below to edit that\nitem in another window.\n\n" tree custom-group :custom-last t :custom-state unknown custom-unlispify-tag-name :value widget-setup] 11 (#$ . 48132) nil])
(define-widget 'custom-browse-visibility 'item "Control visibility of items in the customize tree browser." :format "%[[%t]%]" :action 'custom-browse-visibility-action)
#@28
(fn WIDGET &rest IGNORE)
(defalias 'custom-browse-visibility-action #[385 "\301\302!)\207" [custom-buffer-style tree custom-toggle-parent] 4 (#$ . 49532)])
(define-widget 'custom-browse-group-tag 'custom-group-link "Show parent in other window when activated." :tag "Group" :tag-glyph "folder" :action 'custom-browse-group-tag-action)
#@28
(fn WIDGET &rest IGNORE)
(defalias 'custom-browse-group-tag-action #[385 "\300\301\"\302\303!!\207" [widget-get :parent customize-group-other-window widget-value] 6 (#$ . 49877)])
(define-widget 'custom-browse-variable-tag 'custom-group-link "Show parent in other window when activated." :tag "Option" :tag-glyph "option" :action 'custom-browse-variable-tag-action)
#@28
(fn WIDGET &rest IGNORE)
(defalias 'custom-browse-variable-tag-action #[385 "\300\301\"\302\303!!\207" [widget-get :parent customize-variable-other-window widget-value] 6 (#$ . 50253)])
(define-widget 'custom-browse-face-tag 'custom-group-link "Show parent in other window when activated." :tag "Face" :tag-glyph "face" :action 'custom-browse-face-tag-action)
#@28
(fn WIDGET &rest IGNORE)
(defalias 'custom-browse-face-tag-action #[385 "\300\301\"\302\303!!\207" [widget-get :parent customize-face-other-window widget-value] 6 (#$ . 50623)])
(defconst custom-browse-alist '((" " "space") (" | " "vertical") ("-\\ " "top") (" |-" "middle") (" `-" "bottom")))
#@29 Insert PREFIX.
(fn PREFIX)
(defalias 'custom-browse-insert-prefix #[257 "\211c\207" [] 2 (#$ . 50929)])
(byte-code "\301\302\303\304#\210\305\306\307N\310\311#\210\305\312\307N\310\313#\210\305\314\307N\310\311#\210\315\316\317\320\321\322\323\324\325\326\327\330\331\332\331\333\334&\210\335\336\337\340\341\342\341\343&\210\344\345\346\347\341\336%\210\344\350\351\352\341\336%\210\344\353\354\355\341\336%\210\344\356\357\360\341\336%\210\344\361\362\363\341\336%\210\344\364\365\366\341\336%\210\344\367\370\371\341\336%\207" [custom-mode-link-map make-obsolete custom-browse-insert-prefix insert "27.1" widget-put item widget-type :custom-show t editable-field #[514 "\301!\302\303\304\305#)\266\203\203 \303\202# \211G\306V\203\" \303\202# \304\207" [inhibit-changing-match-data pp-to-string "\n" nil t string-match 40] 10 "\n\n(fn WIDGET VALUE)"] menu-choice define-widget custom-manual info-link "Link to the manual entry for this customization option." :help-echo "Read the manual entry for this option." :keymap :follow-link mouse-face :button-face custom-link :mouse-face highlight :pressed-face :tag "Manual" custom-declare-group custom-magic-faces nil "Faces used by the magic button." :group custom-faces custom-buffer custom-declare-face custom-invalid ((((class color)) :foreground "yellow1" :background "red1") (t :weight bold :slant italic :underline t)) "Face used when the customize item is invalid." custom-rogue ((((class color)) :foreground "pink" :background "black") (t :underline t)) "Face used when the customize item is not defined for customization." custom-modified ((((min-colors 88) (class color)) :foreground "white" :background "blue1") (((class color)) :foreground "white" :background "blue") (t :slant italic)) "Face used when the customize item has been modified." custom-set ((((min-colors 88) (class color)) :foreground "blue1" :background "white") (((class color)) :foreground "blue" :background "white") (t :slant italic)) "Face used when the customize item has been set." custom-changed ((((min-colors 88) (class color)) :foreground "white" :background "blue1") (((class color)) :foreground "white" :background "blue") (t :slant italic)) "Face used when the customize item has been changed." custom-themed ((((min-colors 88) (class color)) :foreground "white" :background "blue1") (((class color)) :foreground "white" :background "blue") (t :slant italic)) "Face used when the customize item has been set by a theme." custom-saved ((t :underline t)) "Face used when the customize item has been saved."] 18)
#@1190 Alist of customize option states.
Each entry is of the form (STATE MAGIC FACE ITEM-DESC [ GROUP-DESC ]), where
STATE is one of the following symbols:
nil
For internal use, should never occur.
`unknown'
For internal use, should never occur.
`hidden'
This item is not being displayed.
`invalid'
This item is modified, but has an invalid form.
`modified'
This item is modified, and has a valid form.
`set'
This item has been set but not saved.
`changed'
The current value of this item has been changed outside Customize.
`saved'
This item is marked for saving.
`rogue'
This item has no customization information.
`themed'
This item was set by an enabled Custom theme.
`standard'
This item is unchanged from the standard setting.
MAGIC is a string used to present that state.
FACE is a face used to present the state.
ITEM-DESC is a string describing the state for options.
GROUP-DESC is a string describing the state for groups. If this is
left out, ITEM-DESC will be used.
The string %c in either description will be replaced with the
category of the item. These are `group', `option', and `face'.
The list should be sorted most significant first.
(defconst custom-magic-alist '((nil "#" underline "UNINITIALIZED, you should not see this.") (unknown "?" italic "UNKNOWN, you should not see this.") (hidden "-" default "HIDDEN, invoke \"Show\" in the previous line to show." "group now hidden, invoke \"Show\", above, to show contents.") (invalid "x" custom-invalid "INVALID, the displayed value cannot be set.") (modified "*" custom-modified "EDITED, shown value does not take effect until you set or save it." "something in this group has been edited but not set.") (set "+" custom-set "SET for current session only." "something in this group has been set but not saved.") (changed ":" custom-changed "CHANGED outside Customize." "something in this group has been changed outside customize.") (saved "!" custom-saved "SAVED and set." "something in this group has been set and saved.") (themed "o" custom-themed "THEMED." "visible group members are set by enabled themes.") (rogue "@" custom-rogue "NO CUSTOMIZATION DATA; not intended to be customized." "something in this group is not prepared for customization.") (standard " " nil "STANDARD." "visible group members are all at standard values.")) (#$ . 53497))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\300\316\302\303\317DD\320\306\321\310\311&\210\322\323\324\325\326\327\330\331\332\333\334\333\335\336\337\340&\207" [custom-declare-variable custom-magic-show funcall function #[0 "\300\207" [long] 1] "If non-nil, show textual description of the state.\nIf `long', show a full-line description, not just one word." :type (choice (const :tag "no" nil) (const long) (other :tag "short" short)) :group custom-buffer custom-magic-show-hidden #[0 "\300\207" [(option face)] 1] "Control whether the State button is shown for hidden items.\nThe value should be a list with the custom categories where the State\nbutton should be visible. Possible categories are `group', `option',\nand `face'." (set (const group) (const option) (const face)) custom-magic-show-button #[0 "\300\207" [nil] 1] "Show a \"magic\" button indicating the state of each customization option." boolean define-widget custom-magic default "Show and manipulate state for a customization option." :format "%v" :action widget-parent-action :notify ignore :value-get :value-create custom-magic-value-create :value-delete widget-children-value-delete] 16)
#@31
(fn WIDGET &optional EVENT)
(defalias 'widget-magic-mouse-down-action #[513 "\300\211\211\301\"\301\"\302\"\303=?\207" [widget-get :parent :custom-state hidden] 7 (#$ . 57088)])
#@55 Create compact status report for WIDGET.
(fn WIDGET)
(defalias 'custom-magic-value-create #[257 "\306\307\"\306\310\"\211\311=\236\211A@\3128\306\313\"\211\314=\203% \3158\206( \3168\306\317\"\320\311=?\205G\321\322\"\203O \323\324\"\325!\323\312\"Q\262\2026 \203\321 \203^ \n>\203\321 \326c\210\314=\203\202 \327=\203w \306\n\330\"\324V\204\202 \331\332\f\306
\330\"_\"\210\333 \334\335\336\337
\203\222 \340\202\223 \341\342\343\344\345\346\347\350\351&B\262\352c\210` \353=\203\261 c\210\202\267 \325\n!c\210\354\267\202\306 \355c\210\202\306 \356c\210\357`\360\361$\266\362c\210\314=\203\362 \327=\203\347 \306\n\330\"\324V\204\362 \331\332\f\306
\330\"_\"\210
\203A \203 \306\n\363\"\211\203\331\332\"\210\210\333 \334\346\347\364\n\342\365\344\365\335\366\337\203\"\340\202#\341\350\367>\2033\370\371Q\2028\372\373Q&B\262\374c\210\375 \376#\207" [custom-magic-alist custom-magic-show custom-magic-show-hidden custom-buffer-style custom-buffer-indent custom-magic-show-button widget-get :parent :custom-state hidden 2 :custom-category group 4 3 :custom-form nil string-match "\\`\\(.*\\)%c\\(.*\\)\\'" match-string 1 symbol-name " " links :custom-level insert-char 32 widget-create-child-and-convert choice-item :help-echo "Change the state of this item." :format "%t" "%[%t%]" :button-prefix widget-push-button-prefix :button-suffix widget-push-button-suffix :mouse-down-action widget-magic-mouse-down-action :tag " State " ": " long #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (lisp 189 mismatch 195)) " (lisp)" " (mismatch)" put-text-property face custom-state "\n" :indent :button-face "" "Change the state." (lisp mismatch) "(" ")" "[" "]" " " widget-put :children] 30 (#$ . 57275)])
#@76 Redraw the :custom-magic property of WIDGET.
(fn WIDGET &optional BUFFER)
(defalias 'custom-magic-reset #[513 "\300\301\"\211\205 r\206 pq\210\302\303!\")\207" [widget-get :custom-magic widget-value-set widget-value] 7 (#$ . 59086)])
(byte-code "\304\301\305\306\307\310\311\312&\210\304\302\313\314\307\315\311\312&\210\304\316\317\320\307\315\311\312&\210\203) \301\202* \316\2033 \302\2024 \321\304\303\322\323\307\310\311\312&\210\304\324\325\326\307\315\311\312&\210\203S \303\202T \324\304\327\330\331\311\312%\210\304\332\333\334\311\312%\210\304\335\336\337\307\315\311\312&\210\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\361\363\364\365\366\367\370\371\372&\207" [custom-raised-buttons custom-button custom-button-mouse custom-button-pressed custom-declare-face ((((type x w32 ns) (class color)) :box (:line-width 2 :style released-button) :background "lightgrey" :foreground "black")) "Face for custom buffer buttons if `custom-raised-buttons' is non-nil." :version "21.1" :group custom-faces ((((type x w32 ns) (class color)) :box (:line-width 2 :style released-button) :background "grey90" :foreground "black") (t :inverse-video t)) "Mouse face for custom buffer buttons if `custom-raised-buttons' is non-nil." "22.1" custom-button-unraised ((t :inherit underline)) "Face for custom buffer buttons if `custom-raised-buttons' is nil." highlight ((((type x w32 ns) (class color)) :box (:line-width 2 :style pressed-button) :background "lightgrey" :foreground "black") (t :inverse-video t)) "Face for pressed custom buttons if `custom-raised-buttons' is non-nil." custom-button-pressed-unraised ((default :inherit custom-button-unraised) (((class color) (background light)) :foreground "magenta4") (((class color) (background dark)) :foreground "violet")) "Face for pressed custom buttons if `custom-raised-buttons' is nil." custom-documentation ((t nil)) "Face used for documentation strings in customization buffers." custom-state ((((class color) (background dark)) :foreground "lime green") (((class color) (background light)) :foreground "dark green")) "Face used for State descriptions in the customize buffer." custom-link ((t :inherit link)) "Face for links in customization buffers." define-widget custom default "Customize a user option." :format "%v" :convert-widget custom-convert-widget :notify custom-notify :custom-prefix "" :custom-level 1 :custom-state hidden :documentation-property widget-subclass-responsibility :value-create :value-delete widget-children-value-delete :value-get widget-value-value-get :validate widget-children-validate :match #[514 "\2119\207" [] 3 "\n\n(fn WIDGET VALUE)"]] 28)
#@63 Initialize :value and :tag from :args in WIDGET.
(fn WIDGET)
(defalias 'custom-convert-widget #[257 "\300\301\"\211\203# \302\303\304\305@##\210\302\306\307@!#\210\302\301\310#\210\210\207" [widget-get :args widget-put :value widget-apply :value-to-internal :tag custom-unlispify-tag-name nil] 9 (#$ . 61772)])
#@48 Keep track of changes.
(fn WIDGET &rest ARGS)
(defalias 'custom-notify #[385 "\300\301\"\211\302=?\205% \211\303>\204 \304\301\302#\210\305\306\307\310p%\210\311\312#\207" [widget-get :custom-state modified (nil unknown hidden) widget-put run-with-idle-timer 0.0 nil custom-magic-reset apply widget-default-notify] 9 (#$ . 62098)])
#@51 Redraw WIDGET with current settings.
(fn WIDGET)
(defalias 'custom-redraw #[257 "\300e`\"i`\301\302\303\"!\301\302\304\"!\212\305\306!\"\210\307!\210)Y\205M X\205M \3101K eb\210\311V\203A S\202B y\210\312!0\202M \210\313\207" [count-lines marker-position widget-get :from :to widget-value-set widget-value custom-redraw-magic (error) 0 move-to-column nil] 10 (#$ . 62444)])
#@57 Redraw WIDGET state with current settings.
(fn WIDGET)
(defalias 'custom-redraw-magic #[257 "\211\203+ \300\301\"\211\203$ \302\303!\"\210\300\304\"\211\262\203' \305!\210\202' \306\262\210\202 \307 \207" [widget-get :custom-magic widget-value-set widget-value :group custom-group-state-update nil widget-setup] 6 (#$ . 62842)])
#@77 Non-nil if WIDGET should be shown with VALUE by default.
(fn WIDGET VALUE)
(defalias 'custom-show #[514 "\300\301\"\302!\203 \211\"\202 \211\207" [widget-get :custom-show functionp] 6 (#$ . 63186)])
(make-obsolete 'custom-show "this widget type is no longer supported." "24.1")
#@48 Load all dependencies for WIDGET.
(fn WIDGET)
(defalias 'custom-load-widget #[257 "\300\301!!\207" [custom-load-symbol widget-value] 4 (#$ . 63477)])
#@85 Return non-nil if the dependencies of SYMBOL have not yet been loaded.
(fn SYMBOL)
(defalias 'custom-unloaded-symbol-p #[257 "\301\302N\301\203? @\262A\262\2119\203\" \303!\204 \304\262\202 \305\"\204 \305\306!\"\2039 \307\301!\210\202 \304\262\202 \207" [load-history nil custom-loads featurep t assoc locate-library message] 7 (#$ . 63635)])
#@85 Return non-nil if the dependencies of WIDGET have not yet been loaded.
(fn WIDGET)
(defalias 'custom-unloaded-widget-p #[257 "\300\301!!\207" [custom-unloaded-symbol-p widget-value] 4 (#$ . 64005)])
#@43 Toggle visibility of WIDGET.
(fn WIDGET)
(defalias 'custom-toggle-hide #[257 "\300!\210\301\302\"\211\303\267\202 \304\305!\210\202* \306\302\307#\210\202* \306\310\311#\210\306\302\312#\210\313!\210\314 \207" [custom-load-widget widget-get :custom-state #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (invalid 14 modified 14 set 14 hidden 21)) error "There are unsaved changes" widget-put unknown :documentation-shown nil hidden custom-redraw widget-setup] 6 (#$ . 64212)])
#@66 Toggle visibility of parent of WIDGET.
(fn WIDGET &rest IGNORE)
(defalias 'custom-toggle-parent #[385 "\300\301\302\"!\207" [custom-toggle-hide widget-get :parent] 6 (#$ . 64739)])
#@116 Add `See also ...' to WIDGET if there are any links.
Insert PREFIX first if non-nil.
(fn WIDGET &optional PREFIX)
(defalias 'custom-add-see-also #[513 "\300\301\"\211\302N\211G\303V\300\304\"\300\305\"\205o \211\203! \306\307\"\210\203( c\210\310c\210\203i \311@\312\313\314\315\316\315&B\262A\262\204N \317c\210\202+ A\204c \203] \320c\210\202+ \321c\210\202+ \322c\210\202+ \323\304#\207" [widget-get :value custom-links 2 :buttons :indent insert-char 32 "See also " widget-create-child-and-convert :button-face custom-link :mouse-face highlight :pressed-face ".\n" ", and " " and " ", " widget-put] 16 (#$ . 64929)])
#@236 Add "Parent groups: ..." to WIDGET if the group has parents.
The value is non-nil if any parents were found.
If INITIAL-STRING is non-nil, use that rather than "Parent groups:".
(fn WIDGET &optional INITIAL-STRING DOC-INITIAL-STRING)
(defalias 'custom-add-parent-links #[769 "\300!\211@\262\301\302\"C`\303C\206 \304c\210\305\306\307\310\311\312
\n%\313\"\314\315%!\210\211\242\203; \316c\210\202? `|\210\317\302\242#\210\211\242\207" [widget-value widget-get :buttons nil "Groups:" mapatoms make-byte-code 257 "\301\302D\305N\235\205$ \306c\210\303\307\300\310\311\312!%\303\242B\240\210\304\304\242B\240\207" vconcat vector [custom-group " " widget-create-child-and-convert custom-group-link :tag custom-unlispify-tag-name] 8 "\n\n(fn SYMBOL)" "\n" widget-put] 19 (#$ . 65580)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\306\307%\210\313\301\314\315\316\317\320\321\322\310\323\301\324\325\326\327&\207" [custom-declare-face custom-comment ((((type tty)) :background "yellow3" :foreground "black") (((class grayscale color) (background light)) :background "gray85") (((class grayscale color) (background dark)) :background "dim gray") (t :slant italic)) "Face used for comments on variables or faces." :version "21.1" :group custom-faces custom-comment-tag ((((class color) (background dark)) :foreground "gray80") (((class color) (background light)) :foreground "blue4") (((class grayscale) (background light)) :foreground "DimGray" :weight bold :slant italic) (((class grayscale) (background dark)) :foreground "LightGray" :weight bold :slant italic) (t :weight bold)) "Face used for the comment tag on variables or faces." define-widget string "User comment." :tag "Comment" :help-echo "Edit a comment here." :sample-face :value-face :shown nil :create custom-comment-create] 16)
#@15
(fn WIDGET)
(defalias 'custom-comment-create #[257 "\300!\301\232\302\211\303\"\304\"\204 \211\204 \305!\202& \306\307\310 #\210\306\311\310 #\207" [widget-value "" widget-get :parent :comment-shown widget-default-create widget-put :from point-marker :to] 6 (#$ . 67423)])
#@15
(fn WIDGET)
(defalias 'custom-comment-hide #[257 "\300\301\302\"\303\304#\207" [widget-put widget-get :parent :comment-shown nil] 5 (#$ . 67711)])
#@70 Show the comment editable field that belongs to WIDGET.
(fn WIDGET)
(defalias 'custom-comment-show #[257 "\300\301\"@\300\302\"\303\304\305#\210\211@\262\306=\203= \211@\262\307=\2032 \303\302\305\310!DC#\210\202F \303\302\310!#\210\202F \303\302\310!C#\210\311!\210\303\302#\210\312 \207" [widget-get :children :shown-value widget-put :comment-shown t custom-face custom-face-edit widget-value custom-redraw widget-setup] 9 (#$ . 67867)])
#@15
(fn WIDGET)
(defalias 'custom-comment-invisible-p #[257 "\300\301\302\"!\211\303\232\205 \301\304\"?\207" [widget-value widget-get :comment-widget "" :comment-shown] 5 (#$ . 68331)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\306\307%\210\300\313\314\315\306\307%\210\316\317\320\321\322DD\323\324\325\306\326\304\327& \207" [custom-declare-face custom-variable-obsolete ((((class color) (background dark)) :foreground "light blue") (((min-colors 88) (class color) (background light)) :foreground "blue1") (((class color) (background light)) :foreground "blue") (t :slant italic)) "Face used for obsolete variables." :version "27.1" :group custom-faces custom-variable-tag ((((class color) (background dark)) :foreground "light blue" :weight bold) (((min-colors 88) (class color) (background light)) :foreground "blue1" :weight bold) (((class color) (background light)) :foreground "blue" :weight bold) (t :weight bold)) "Face used for unpushable variable tags." custom-variable-button ((t :underline t :weight bold)) "Face used for pushable variable tags." custom-declare-variable custom-variable-default-form funcall function #[0 "\300\207" [edit] 1] "Default form of displaying variable values." :type (choice (const edit) (const lisp)) custom-buffer "20.3"] 10)
#@248 Return documentation of VARIABLE for use in Custom buffer.
Normally just return the docstring. But if VARIABLE automatically
becomes buffer local when set, append a message to that effect.
Also append any obsolescence information.
(fn VARIABLE)
(defalias 'custom-variable-documentation #[257 "\300\301\302\303\304#\305!\2033 \306!\203/ \307\310!r\211q\210\311\312\313\314\315!\316\"\317$\216\305!*\262\2033 \320\2024 \321\322N\211@\203f \323\3178\205J \300\324\3178\";\203U \325P\202b \203a \326\327@\"\202b \330Q\202g \321\266\202$\207" [format "%s%s%s" documentation-property variable-documentation t local-variable-if-set-p local-variable-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\nThis variable automatically becomes buffer-local when set outside Custom.\nHowever, setting it through Custom sets the default value." "" byte-obsolete-variable "\n\nThis variable is obsolete" " since %s" ";\n" format-message ";\nuse `%s' instead." "."] 12 (#$ . 69633)])
(define-widget 'custom-variable 'custom "A widget for displaying a Custom variable.\nThe following properties have special meanings for this widget:\n\n:hidden-states should be a list of widget states for which the\n widget's initial contents are to be hidden.\n\n:custom-form should be a symbol describing how to display and\n edit the variable---either `edit' (using edit widgets),\n `lisp' (as a Lisp sexp), or `mismatch' (should not happen);\n if nil, use the return value of `custom-variable-default-form'.\n\n:shown-value, if non-nil, should be a list whose `car' is the\n variable value to display in place of the current value.\n\n:custom-style describes the widget interface style; nil is the\n default style, while `simple' means a simpler interface that\n inhibits the magic custom-state widget." :format "%v" :help-echo "Set or reset this variable." :documentation-property 'custom-variable-documentation :custom-category 'option :custom-state nil :custom-menu 'custom-variable-menu-create :custom-form nil :value-create 'custom-variable-value-create :action 'custom-variable-action :hidden-states '(standard) :custom-set 'custom-variable-set :custom-mark-to-save 'custom-variable-mark-to-save :custom-reset-current 'custom-redraw :custom-reset-saved 'custom-variable-reset-saved :custom-reset-standard 'custom-variable-reset-standard :custom-mark-to-reset-standard 'custom-variable-mark-to-reset-standard :custom-standard-value 'custom-variable-standard-value :custom-state-set-and-redraw 'custom-variable-state-set-and-redraw)
#@253 Return a widget suitable for editing the value of SYMBOL.
If SYMBOL has a `custom-type' property, use that.
Otherwise, try matching SYMBOL against `custom-guess-name-alist' and
try matching its doc string against `custom-guess-doc-alist'.
(fn SYMBOL)
(defalias 'custom-variable-type #[257 "\211\300N\206 \211\301N\204 \302!\206 \303\304N<\203! \305!\202# C\2031 \211\306\307DA\"\241\210\207" [custom-type standard-value custom-guess-type sexp custom-options copy-sequence append :options] 8 (#$ . 72246)])
#@59 Here is where you edit the variable's value.
(fn WIDGET)
(defalias 'custom-variable-value-create #[257 "\302!\210\303\304\"\204 \305\304#\210\303\306\"\303\307\"\303\304\"\303\310\"\303\311\"\312!\313!\314N\2062 \315\303 \316\"\303\n\317\"\303 \320\"\303\f\321\"\211\203O \211@\202b \322 !\203] !\202b \303\310\"\262\303
\323\"\206{ \324 \"\303\325\">\205{ \326 \327N\204\222 \330 \"\203\217 \331\202\220 \326\262\331=\203\244 \332\333#\204\244 \334\262\f \335=\203\323 \203\263 \336\202\264 \337\261\210\340\341\"B\262\342\n\343\261\210\305\306#\210\202\f\326=\203\340\344\345\346\347\350\351\352\353\354\355\356\357\360\361&B\262\342c\210\340\362\363\364\365\203\366\202\367\311\370&\nB\262\202\f \371>\203}\340\344\345\372\351\352\355\373\347\350\353\354\357\360\374&B\262\342c\210\322 !\203H\375\f!!\202O\375\303 \310\"!\376\f!\377\261\210\340\201@ \201A \201B \363\201C \311\376!\370\310\f&\fB\262\210\202\f\340\344\345\201D \351\352\355\373\347\350\353\354\357\360\374&B\262\342c\210\303 \363\"\361\211\201E \201F \"\204\264\201G \201H !\210\201I \201J \211\225#\262\201I \201J \225\"\262\340\362\363\357\201K \345\201L \201M \201N \201A \201O \365\203\357\366\202\360\367&B\262\340
\363\310 &B\262\266 \335=?\205\353h\201P =\204!\201Q \343!\210\201R =\204A\340\201S \361#\305\201T #\210\211B\262\210\305\306#\210\305\201U \201V #\210\201R =\203b\326=\204m\201W \201X \344#\210\326=\204\242\n\201Y N\340\201Z \370\310\206\213\201[ &\305\201\\ #\210\201] C\"\262\266\305\304#\210\305\307#\210\326=\203\302\305\323#\210\202\311\201^ !\210\326=?\205\353\303\201_ \"\201` =\203\345\201a !\210\201b !\207" [custom-variable-default-form custom-buffer-style custom-load-widget widget-get :custom-form widget-put :buttons :children :value :tag custom-variable-type widget-convert custom-get default-value :custom-prefix :custom-last :custom-style :shown-value default-boundp :custom-state custom-variable-state :hidden-states hidden byte-obsolete-variable custom-show unknown widget-apply :match mismatch tree " `--- " " |--- " widget-create-child-and-convert custom-browse-variable-tag " " "\n" custom-visibility :help-echo "Show the value of this option." :on-glyph "down" :on "Hide" :off-glyph "right" :off "Show Value" :action custom-toggle-hide-variable nil item :format "%{%t%} " :sample-face custom-variable-obsolete custom-variable-tag :parent (lisp mismatch) "Hide the value of this option." "Show" t custom-quote symbol-name ": " sexp :button-face custom-variable-button-face "%v" "Hide or show this option." string-match ":" error "Bad format" substring 0 custom-tag-action "Change value of this option." :mouse-down-action custom-tag-mouse-down-action custom-variable-button 10 widget-insert simple custom-magic :custom-magic :documentation-indent 3 widget-add-documentation-string-button :visibility-widget variable-comment custom-comment "" :comment-widget append custom-variable-state-set :custom-level 1 custom-add-parent-links custom-add-see-also] 34 (#$ . 72770)])
#@286 Toggle the visibility of a `custom-variable' parent widget.
By default, this signals an error if the parent has unsaved
changes. If the parent has a `simple' :custom-style property,
the present value is saved to its :shown-value property instead.
(fn VISIBILITY-WIDGET &rest IGNORE)
(defalias 'custom-toggle-hide-variable #[385 "\300\301\"\211\211@\262\302=\204 \303\304!\210\305!\210\300\306\"\211\307=\203) \310\306\311#\210\202Y \211\312>\203M \300\313\"\314=\203I \310\315\316\300\317\"\242!C#\210\202M \303\320!\210\310\321\322#\210\310\306\307#\210\323!\210\324 \262\207" [widget-get :parent custom-variable error "Invalid widget type" custom-load-widget :custom-state hidden widget-put unknown (invalid modified set) :custom-style simple :shown-value widget-value :children "There are unsaved changes" :documentation-shown nil custom-redraw widget-setup] 11 (#$ . 75969)])
#@73 Pass :action to first child of WIDGET's parent.
(fn WIDGET &rest ARGS)
(defalias 'custom-tag-action #[385 "\300\301\302\211\303\"\304\"@\305$\207" [apply widget-apply widget-get :parent :children :action] 8 (#$ . 76871)])
#@84 Pass :mouse-down-action to first child of WIDGET's parent.
(fn WIDGET &rest ARGS)
(defalias 'custom-tag-mouse-down-action #[385 "\300\301\302\211\303\"\304\"@\305$\207" [apply widget-apply widget-get :parent :children :mouse-down-action] 8 (#$ . 77102)])
#@220 Return the state of SYMBOL if its value is VAL.
If SYMBOL has a non-nil `custom-get' property, it overrides VAL.
Possible return values are `standard', `saved', `set', `themed',
`changed', and `rogue'.
(fn SYMBOL VAL)
(defalias 'custom-variable-state #[514 "\300N\206 \301\302!\203 \211!\202 \303N\304\211\305N\262\306N\262\204- \211\203P \3071A \310@!\232\205= \2320\202E \210\202L \203L \311\202\361 \312\202\361 \313N\262\314N\262\204d \211\203\303 \3151{ \232\205w \310\316 !@!\2320\202 \210\202\277 \203\277 @@\317=\203\216 \320\202\361 @@\312=\203\273 \3211\254 ?\205\250 \310\322N@!\2320\202\260 \210\202\267 \203\267 \323\202\361 \312\202\361 \324\202\361 \312\202\361 \322N\211\262\203\360 \3251\341 \310@!\232\205\335 \304=0\202\345 \210\202\354 \203\354 \323\202\361 \312\202\361 \326\207" [custom-get default-value default-boundp variable-comment nil customized-value customized-variable-comment (error) eval set changed theme-value saved-variable-comment (error) custom-variable-theme-value user saved (error) standard-value standard themed (error) rogue] 11 (#$ . 77367)])
#@330 Non-nil if the variable value of WIDGET has been modified.
WIDGET should be a custom-variable widget, whose first child is the widget
that holds the value.
Modified means that the widget that holds the value has been edited by the user
in a customize buffer.
To check for other states, call `custom-variable-state'.
(fn WIDGET)
(defalias 'custom-variable-modified-p #[257 "\30028 \301\302\"\211\303N\206 \304\305!\203( \3061 \211!0\202* \210\307\300\310\"\202* J\211\311\301\312\"@!\232?\266\2030\207" [get-error widget-get :value custom-get default-value default-boundp (error) throw t widget-value :children] 9 (#$ . 78505)])
#@228 Set the state of WIDGET to STATE.
If STATE is nil, the new state is computed by `custom-variable-modified-p' if
WIDGET has been edited in the Custom buffer, or by `custom-variable-state'
otherwise.
(fn WIDGET &optional STATE)
(defalias 'custom-variable-state-set #[513 "\300\301\206 \302!\203 \303\202 \304\305!\305\306\307\"@!\"#\207" [widget-put :custom-state custom-variable-modified-p modified custom-variable-state widget-value widget-get :children] 11 (#$ . 79149)])
#@15
(fn WIDGET)
(defalias 'custom-variable-standard-value #[257 "\300!\301N\207" [widget-value standard-value] 3 (#$ . 79639)])
#@390 Alist of actions for the `custom-variable' widget.
Each entry has the form (NAME ACTION FILTER) where NAME is the name of
the menu entry, ACTION is the function to call on the widget when the
menu is selected, and FILTER is a predicate which takes a `custom-variable'
widget as an argument, and returns non-nil if ACTION is valid on that
widget. If FILTER is nil, ACTION is always valid.
(defvar custom-variable-menu (byte-code "\302\303\204\n \205 \304\305\204 \205 \306\307$B\207" [custom-file init-file-user ("Set for Current Session" custom-variable-set (lambda (widget) (eq (widget-get widget :custom-state) 'modified))) append (("Save for Future Sessions" custom-variable-save (lambda (widget) (memq (widget-get widget :custom-state) '(modified set changed rogue))))) (("Undo Edits" custom-redraw (lambda (widget) (and (default-boundp (widget-value widget)) (memq (widget-get widget :custom-state) '(modified changed))))) ("Revert This Session's Customization" custom-variable-reset-saved (lambda (widget) (memq (widget-get widget :custom-state) '(modified set changed rogue))))) (("Erase Customization" custom-variable-reset-standard (lambda (widget) (and (get (widget-value widget) 'standard-value) (memq (widget-get widget :custom-state) '(modified set changed saved rogue)))))) (("Set to Backup Value" custom-variable-reset-backup (lambda (widget) (get (widget-value widget) 'backup-value))) ("---" ignore ignore) ("Add Comment" custom-comment-show custom-comment-invisible-p) ("---" ignore ignore) ("Show Current Value" custom-variable-edit (lambda (widget) (eq (widget-get widget :custom-form) 'lisp))) ("Show Saved Lisp Expression" custom-variable-edit-lisp (lambda (widget) (eq (widget-get widget :custom-form) 'edit))))] 6) (#$ . 79773))
#@119 Show the menu for `custom-variable' WIDGET.
Optional EVENT is the location for the menu.
(fn WIDGET &optional EVENT)
(defalias 'custom-variable-action #[513 "\302\303\"\304=\203
\305!\207\302\303\"\306=\204 \307!\210\310!\210\311\312\313\314\302\315\"!P\316 \"#\211\2056 \211!)\207" [completion-ignore-case custom-variable-menu widget-get :custom-state hidden custom-toggle-hide modified custom-variable-state-set custom-redraw-magic t widget-choose "Operation on " custom-unlispify-tag-name :value custom-menu-filter] 8 (#$ . 81541)])
#@36 Edit value of WIDGET.
(fn WIDGET)
(defalias 'custom-variable-edit #[257 "\300\301\302#\210\300\303\304#\210\305!\207" [widget-put :custom-state unknown :custom-form edit custom-redraw] 5 (#$ . 82096)])
#@67 Edit the Lisp representation of the value of WIDGET.
(fn WIDGET)
(defalias 'custom-variable-edit-lisp #[257 "\300\301\302#\210\300\303\304#\210\305!\207" [widget-put :custom-state unknown :custom-form lisp custom-redraw] 5 (#$ . 82308)])
#@77 Set the current value for the variable being edited by WIDGET.
(fn WIDGET)
(defalias 'custom-variable-set #[257 "\300\301\"\300\302\"\300\303\"@\304!\211\305N\206 \306\300\307\"\304!\310\311=\203. \312\313!\210\202\324 \314\315\"\211\262\203J \300\316\"b\210\317\320\300\321\"\"\210\202\324 \322>\203\224 \323\232\203^ \310\262\324!\210\325 !\210\326\327\330\331\332\304\f!!%\210\333\304 !\211\262!\"\210\334\335C#\210\334\336#\210\334\337#\210\202\324 \323\232\203\241 \310\262\324!\210\325 !\210\326\327\330\331\332\304\f!!%\210\304!\211\262\"\210\334\335\332!C#\210\334\336#\210\334\337#\210\340 !\210\341 !\207" [widget-get :custom-form :custom-state :children widget-value custom-set set-default :comment-widget nil hidden user-error "Cannot set hidden variable" widget-apply :validate :from error "%s" :error (lisp mismatch) "" custom-comment-hide custom-variable-backup-value custom-push-theme theme-value user set custom-quote eval put customized-value variable-comment customized-variable-comment custom-variable-state-set custom-redraw-magic] 17 (#$ . 82556)])
#@75 Set value and mark for saving the variable edited by WIDGET.
(fn WIDGET)
(defalias 'custom-variable-mark-to-save #[257 "\300\301\"\300\302\"\300\303\"@\304!\211\305N\206 \306\300\307\"\304!\310\311=\203. \312\313!\210\202\314 \314\315\"\211\262\203L \300\316\"b\210\317\320\300\321\"#\210\202\314 \322>\203\221 \323\232\203` \310\262\324!\210\325\326\304 !C#\210\327\330\331\332\333\304\f!!%\210\334\304 !!\"\210\325\335#\210\325\336#\210\202\314 \323\232\203\236 \310\262\324!\210\325\326\333\304\n!!C#\210\327\330\331\332\333\304\f!!%\210\304!\"\210\325\335#\210\325\336#\210\325\337\310#\210\325\340\310#\207" [widget-get :custom-form :custom-state :children widget-value custom-set set-default :comment-widget nil hidden user-error "Cannot set hidden variable" widget-apply :validate :from error "Saving %s: %s" :error (lisp mismatch) "" custom-comment-hide put saved-value custom-push-theme theme-value user set custom-quote eval variable-comment saved-variable-comment customized-value customized-variable-comment] 17 (#$ . 83688)])
#@84 Set state of variable widget WIDGET and redraw with current settings.
(fn WIDGET)
(defalias 'custom-variable-state-set-and-redraw #[257 "\300!\210\301!\207" [custom-variable-state-set custom-redraw-magic] 3 (#$ . 84786)])
(put 'custom-variable-state-set-and-redraw 'byte-optimizer 'byte-compile-inline-expand)
#@62 Save value of variable edited by widget WIDGET.
(fn WIDGET)
(defalias 'custom-variable-save #[257 "\300!\210\301 \210\211\302!\210\303!\207" [custom-variable-mark-to-save custom-save-all custom-variable-state-set custom-redraw-magic] 4 (#$ . 85105)])
#@290 Restore the value of the variable being edited by WIDGET.
If there is a saved value, restore it; otherwise reset to the
uncustomized (themed or standard) value.
Update the widget to show that value. The value that was current
before this operation becomes the backup value.
(fn WIDGET)
(defalias 'custom-variable-reset-saved #[257 "\300!\211\301N\302N\303\304!\210\204 \204 \305\306\307\310$\210\2022 \242\262\305\306\307\311%\210\312\313#\210\3141N \315N\206= \316\317\206H \320N@!\"0\202R \210\202S \210\312\321\303#\210\312\322\303#\210\323\324\325#\210\326!\207" [widget-value saved-value saved-variable-comment nil custom-variable-backup-value custom-push-theme theme-value user reset set put variable-comment (error) custom-set set-default eval standard-value customized-value customized-variable-comment widget-put :custom-state unknown custom-redraw] 11 (#$ . 85367)])
#@186 Mark to restore standard setting for the variable edited by widget WIDGET.
If `custom-reset-standard-variables-list' is nil, save, reset and
redraw the widget immediately.
(fn WIDGET)
(defalias 'custom-variable-mark-to-reset-standard #[257 "\301!\211\302N\203 \303!\210\202 \304\305\"\210\306\307\310#\210\306\311\310#\210\306\312\310#\210\313\314\315\316$\210\317!\210\203V \211\320N\204B \211\321N\203V \306\320\310#\210\306\321\310#\210B\211\202z \211\320N\204b \211\321N\203q \306\320\310#\210\306\321\310#\210\322 \210\323\324\325#\210\326!\207" [custom-reset-standard-variables-list widget-value standard-value custom-variable-backup-value user-error "No standard setting known for %S" put variable-comment nil customized-value customized-variable-comment custom-push-theme theme-value user reset custom-theme-recalc-variable saved-value saved-variable-comment custom-save-all widget-put :custom-state unknown custom-redraw] 7 (#$ . 86277)])
#@308 Restore standard setting for the variable edited by WIDGET.
This operation eliminates any saved setting for the variable,
restoring it to the state of a variable that has never been customized.
The value that was current before this operation
becomes the backup value, so you can get it again.
(fn WIDGET)
(defalias 'custom-variable-reset-standard #[257 "\301\302!)\207" [custom-reset-standard-variables-list nil custom-variable-mark-to-reset-standard] 3 (#$ . 87253)])
#@131 Back up the current value for WIDGET's variable.
The backup value is kept in the car of the `backup-value' property.
(fn WIDGET)
(defalias 'custom-variable-backup-value #[257 "\300!\211\301N\206\n \302\303!\304!\305!\203 !\202 \306\307\"\310\311C#\207" [widget-value custom-get default-value custom-variable-type widget-convert default-boundp widget-get :value put backup-value] 10 (#$ . 87733)])
#@226 Restore the backup value for the variable being edited by WIDGET.
The value that was current before this operation
becomes the backup value, so you can use this operation repeatedly
to switch between two values.
(fn WIDGET)
(defalias 'custom-variable-reset-backup #[257 "\300!\211\301N\206\n \302\303N\304\305\"\300!\203< \306!\210\307\310\311\312%\210\31314 @\"0\2028 \210\202B \210\202B \314\315\"\210\316\317\320@!C#\210\316\321#\210\316\322#\210\323!\210\324!\207" [widget-value custom-set set-default backup-value widget-get :comment-widget custom-variable-backup-value custom-push-theme theme-value user set (error) user-error "No backup value for %s" put customized-value custom-quote variable-comment customized-variable-comment custom-variable-state-set custom-redraw] 12 (#$ . 88149)])
(byte-code "\301\302\303\304\305\302\306\302\307\310\306\310\311\312\313\312&\210\314\302\315\316\317\320\321\322&\210\301\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\"&\207" [custom-face-attributes define-widget custom-visibility visibility "Show or hide a documentation string." :button-face :pressed-face :mouse-face highlight :on-glyph nil :off-glyph custom-declare-face ((t :height 0.8 :inherit link)) "Face for the `custom-visibility' widget." :version "23.1" :group custom-faces custom-face-edit checklist "Widget for editing face attributes.\nThe following properties have special meanings for this widget:\n\n:value is a plist of face attributes.\n\n:default-face-attributes, if non-nil, is a plist of defaults for\nface attributes (as specified by a `default' defface entry)." :format "%v" :extra-offset 3 :button-args (:help-echo "Control whether this attribute has any effect.") :value-to-internal custom-face-edit-fix-value :match #[514 "\300\301\"\"\207" [widget-checklist-match custom-face-edit-fix-value] 7 "\n\n(fn WIDGET VALUE)"] :value-create custom-face-edit-value-create :convert-widget custom-face-edit-convert-widget :args mapcar #[257 "\300\301\302\303\304A@\303\"\305\306\307\310 @\257A@\257\207" [group :inline t :sibling-args widget-get const :format "" :value] 11 "\n\n(fn ATT)"]] 22)
#@15
(fn WIDGET)
(defalias 'custom-face-edit-value-create #[257 "\300\301\302\"\"\301\303\"\301\304\"\301\305\"\300\301\306\"\"\307\310\311\312 \"\204' \313c\210\314\315\301 \316\"\"\210\204< \204< \203i \211\203e \211@\211\236\206M \211\236\262\204W \203^ \317 #\210A\266\202\202= \210\202r \320\321\322\323#\313\261\210\301\324\"\211\203\204 \314\315\301\n\324\"\"\210\210\325\326\327\330\331\332\333\332\334\335\336\337\340\341\342\307\343\307\344\345\346\347&B\262\313c\210\350\305#\210\350\351\301\n\351\"\237#\207" [widget-checklist-match-find widget-get :value :args :show-all-attributes :buttons :default-face-attributes nil looking-back "^ *" line-beginning-position 10 insert-char 32 :extra-offset widget-checklist-add-item propertize "-- Empty face --" face shadow :indent widget-create-child-and-convert visibility :help-echo "Show or hide all face attributes." :button-face custom-visibility :pressed-face :mouse-face highlight :on "Hide Unused Attributes" :off "Show All Attributes" :on-glyph :off-glyph :always-active t :action custom-face-edit-value-visibility-action widget-put :children] 31 (#$ . 90341)])
#@28
(fn WIDGET &rest IGNORE)
(defalias 'custom-face-edit-value-visibility-action #[385 "\300\301\"\302\303\300\303\"?#\210\304!\207" [widget-get :parent widget-put :show-all-attributes custom-redraw] 9 (#$ . 91508)])
#@131 Ignoring WIDGET, convert :bold and :italic in VALUE to new form.
Also change :reverse-video to :inverse-video.
(fn WIDGET VALUE)
(defalias 'custom-face-edit-fix-value #[514 "\300!\207" [custom-fix-face-spec] 4 (#$ . 91734)])
#@55 Convert :args as widget types in WIDGET.
(fn WIDGET)
(defalias 'custom-face-edit-convert-widget #[257 "\300\301\302\303\304\301\"\"#\210\207" [widget-put :args mapcar #[257 "\300\301\302\303\304\305\306&\207" [widget-convert :deactivate custom-face-edit-deactivate :activate custom-face-edit-activate :delete custom-face-edit-delete] 9 "\n\n(fn ARG)"] widget-get] 9 (#$ . 91967)])
#@53 Converted version of the `custom-face-edit' widget.
(defconst custom-face-edit (widget-convert 'custom-face-edit) (#$ . 92360))
#@71 Make face widget WIDGET inactive for user modifications.
(fn WIDGET)
(defalias 'custom-face-edit-deactivate #[257 "\302\303\"?\205: \304!\305\302\306\"!\307!\310\211\212b\210\311!\210\312\313\314\315\316#\317\261\210\320\303`ZBB#+\266\203\207" [inhibit-modification-hooks inhibit-read-only widget-get :inactive custom-face-edit-attribute-tag copy-marker :from widget-value t widget-default-delete ": " propertize "--" face shadow "\n" widget-put] 11 (#$ . 92494)])
#@69 Make face widget WIDGET active for user modifications.
(fn WIDGET)
(defalias 'custom-face-edit-activate #[257 "\302\303\"\304\211\211:\205/ \212\211A@b\210``AA\\|\210\305\303\306#\210\307\310\"\210\311@\"\210\312 )*\207" [inhibit-modification-hooks inhibit-read-only widget-get :inactive t widget-put nil widget-apply :create widget-value-set widget-setup] 6 (#$ . 92981)])
#@45 Remove WIDGET from the buffer.
(fn WIDGET)
(defalias 'custom-face-edit-delete #[257 "\302\303\"\304\211\211\204 \305!\202# \211A@A@AA\\|\210\306\303\307#*\207" [inhibit-modification-hooks inhibit-read-only widget-get :inactive t widget-default-delete widget-put nil] 6 (#$ . 93370)])
#@79 Return the first :tag property in WIDGET or one of its children.
(fn WIDGET)
(defalias 'custom-face-edit-attribute-tag #[257 "\300\301\"\211\302\232\204 \211\206* \300\303\"\204' \211\203' \304\211A\262\242!\262\202 \262\207" [widget-get :tag "" :children custom-face-edit-attribute-tag] 6 (#$ . 93669)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313& \210\314\315\316\317\320\321%\210\322\323\324\325\326DD\327\330\331\320\332\333\334& \207" [define-widget custom-display menu-choice "Select a display type." :tag "Display" :value t :help-echo "Specify frames where the face attributes should be used." :args ((const :tag "all" t) (const :tag "defaults" default) (checklist :tag "specific display" :offset 0 :extra-offset 9 :args ((group :sibling-args (:help-echo "Only match the specified window systems.") (const :format "Type: " type) (checklist :inline t :offset 0 (const :format "X " :sibling-args (:help-echo "The X11 Window System.") x) (const :format "W32 " :sibling-args (:help-echo "MS Windows.") w32) (const :format "NS " :sibling-args (:help-echo "GNUstep or Macintosh OS Cocoa interface.") ns) (const :format "DOS " :sibling-args (:help-echo "Plain MS-DOS.") pc) (const :format "TTY%n" :sibling-args (:help-echo "Plain text terminals.") tty))) (group :sibling-args (:help-echo "Only match the frames with the specified color support.") (const :format "Class: " class) (checklist :inline t :offset 0 (const :format "Color " :sibling-args (:help-echo "Match color frames.") color) (const :format "Grayscale " :sibling-args (:help-echo "Match grayscale frames.") grayscale) (const :format "Monochrome%n" :sibling-args (:help-echo "Match frames with no color support.") mono))) (group :sibling-args (:help-echo "The minimum number of colors the frame should support.") (const :format "" min-colors) (integer :tag "Minimum number of colors")) (group :sibling-args (:help-echo "Only match frames with the specified intensity.") (const :format "Background brightness: " background) (checklist :inline t :offset 0 (const :format "Light " :sibling-args (:help-echo "Match frames with light backgrounds.") light) (const :format "Dark\n" :sibling-args (:help-echo "Match frames with dark backgrounds.") dark))) (group :sibling-args (:help-echo "Only match frames that support the specified face attributes.") (const :format "Supports attributes:" supports) (custom-face-edit :inline t :format "%n%v"))))) custom-declare-face custom-face-tag ((t :inherit custom-variable-tag)) "Face used for face tags." :group custom-faces custom-declare-variable custom-face-default-form funcall function #[0 "\300\207" [selected] 1] "Default form of displaying face definition." :type (choice (const all) (const selected) (const lisp)) custom-buffer :version "20.3"] 12)
#@67 Return documentation of FACE for use in Custom buffer.
(fn FACE)
(defalias 'custom-face-documentation #[257 "\300\301\302!\303N\304N\203' \211\203' \300\305;\203! \300\306\"\202\" \307#\202( \307\266\202#\207" [format "%s%s" face-documentation face-alias obsolete-face "\nThis face is obsolete%s; use `%s' instead.\n" " since %s" ""] 11 (#$ . 96460)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343&#\210\300\344\345\346\347\350\351\352\353\354\355\356\357\360&
\207" [define-widget custom-face custom "Widget for customizing a face.\nThe following properties have special meanings for this widget:\n\n:value is the face name (a symbol).\n\n:custom-form should be a symbol describing how to display and\n edit the face attributes---either `selected' (attributes for\n selected display only), `all' (all attributes), `lisp' (as a\n Lisp sexp), or `mismatch' (should not happen); if nil, use\n the return value of `custom-face-default-form'.\n\n:custom-style describes the widget interface style; nil is the\n default style, while `simple' means a simpler interface that\n inhibits the magic custom-state widget.\n\n:sample-indent, if non-nil, is the number of columns to which to\n indent the face sample (an integer).\n\n:shown-value, if non-nil, is the face spec to display as the value\n of the widget, instead of the current face spec." :sample-face custom-face-tag :help-echo "Set or reset this face." :documentation-property custom-face-documentation :value-create custom-face-value-create :action custom-face-action :custom-category face :custom-form nil :custom-set custom-face-set :custom-mark-to-save custom-face-mark-to-save :custom-reset-current custom-redraw :custom-reset-saved custom-face-reset-saved :custom-reset-standard custom-face-reset-standard :custom-mark-to-reset-standard custom-face-mark-to-reset-standard :custom-standard-value custom-face-standard-value :custom-state-set-and-redraw custom-face-state-set-and-redraw :custom-menu custom-face-menu-create custom-face-all editable-list "An editable list of display specifications and attributes." :entry-format "%i %d %v" :insert-button-args (:help-echo "Insert new display specification here.") :append-button-args (:help-echo "Append new display specification here.") :delete-button-args (:help-echo "Delete this display specification.") :args ((group :format "%v" custom-display custom-face-edit))] 36)
#@52 Converted version of the `custom-face-all' widget.
(defconst custom-face-all (widget-convert 'custom-face-all) (#$ . 98972))
#@312 Return a canonicalized version of SPEC.
FILTER-INDEX is the index in the entry for each attribute in
`custom-face-attributes' at which the appropriate filter function can be
found, and DEFAULT-FILTER is the filter to apply for attributes that
don't specify one.
(fn SPEC FILTER-INDEX &optional DEFAULT-FILTER)
(defalias 'custom-filter-face-spec #[770 "\300\301\302\303\304\305\"\306\"\307\310%\"\207" [mapcar make-byte-code 257 "\211@A@<\203 A@\202 A\303\203C \211A\262\242\211A\262\242\300\n\2368\206+ \301\211\2035 \211!\2026 \211B\262B\266\205\202 D\207" vconcat vector [custom-face-attributes nil] 10 "\n\n(fn ENTRY)"] 11 (#$ . 99104)])
#@122 Return SPEC changed as necessary for editing by the face customization widget.
SPEC must be a full face spec.
(fn SPEC)
(defalias 'custom-pre-filter-face-spec #[257 "\300\301\"\207" [custom-filter-face-spec 2] 4 (#$ . 99778)])
#@80 Return the customized SPEC in a form suitable for setting the face.
(fn SPEC)
(defalias 'custom-post-filter-face-spec #[257 "\300\301\"\207" [custom-filter-face-spec 3] 4 (#$ . 100013)])
#@99 Return a face spec corresponding to WIDGET.
WIDGET should be a `custom-face' widget.
(fn WIDGET)
(defalias 'custom-face-widget-to-spec #[257 "\211\211@\262\300=\204 \301\302!\210\303\304\"@\305\211@\262\306=\203' \307\310!DC\202* \310!!\207" [custom-face error "Invalid widget" widget-get :children custom-post-filter-face-spec custom-face-edit t widget-value] 6 (#$ . 100208)])
#@13
(fn FACE)
(defalias 'custom-face-get-current-spec #[257 "\211\300N\206 \211\301N\206 \211\302N\206 \303\304\305 \"DC\305 \306\307\"#\266\203\2045 \303\310\305 \"DC\262\311!\207" [customized-face saved-face face-defface-spec t custom-face-attributes-get selected-frame face-attr-match-p face-spec-choose face-attr-construct custom-pre-filter-face-spec] 10 (#$ . 100601)])
#@282 Toggle the visibility of a `custom-face' parent widget.
By default, this signals an error if the parent has unsaved
changes. If the parent has a `simple' :custom-style property,
the present value is saved to its :shown-value property instead.
(fn VISIBILITY-WIDGET &rest IGNORE)
(defalias 'custom-toggle-hide-face #[385 "\300\301\"\211\211@\262\302=\204 \303\304!\210\305!\210\300\306\"\211\307=\203) \310\306\311#\210\202S \211\312>\203G \300\313\"\314=\203C \310\315\316!#\210\202G \303\317!\210\310\320\321#\210\310\306\307#\210\322!\210\323 \262\207" [widget-get :parent custom-face error "Invalid widget type" custom-load-widget :custom-state hidden widget-put unknown (invalid modified set) :custom-style simple :shown-value custom-face-widget-to-spec "There are unsaved changes" :documentation-shown nil custom-redraw widget-setup] 9 (#$ . 100994)])
#@70 Create a list of the display specifications for WIDGET.
(fn WIDGET)
(defalias 'custom-face-value-create #[257 "\306\307\"\306\310\"\306\311\"\206 \312!\306\313\"\314=\306\315\"\316\317=\203R \306\320\"\306\321\"\2034 \322\2025 \323\261\210\324\325\"B\262\326\327\261\210\330\307#\202\\`\324\331\332\333\334\335\336\337\340\341\342\343\344\345?&B\262\326\261\210\346`#\266\347=\203\204 \326\202\231 \350\316\351\352#)\266\203\203\230 \353\202\231 \354c\210\306\355\"\316\211\203\257 iX\203\257 \211j\210)\210\324\356\357\360\361\306
\362\"\211\203\307 \363!\202\311 \262\311\364&B\262\327c\210\306\315\"\365=\204\365 \324\366\316#\330\367#\210\211B\262\210\330\307#\210\203\365=\204:\330\370\371#\210\372\373\331#\210\204:\374N\324\375\376 \310\206*\377&\330 \201@ #\210\211B\266\203h\201A =\204E\327c\210?\205\\\201B !\210\306\201C \"\204d\330\201C #\210\306\362\"\206q\201D !\306\201C \"\306 \201E \"\316\211\211\211\211\262\242\242\201F =\203\232\211A\262\242\262\203\326<\203\326\204\326@\262<\203\317\201G @\201H \"\203\317\201I \f\201J A@#\203\317\262A\262\202\232\201K =\203 \204\347\203 \203\365\201L \201M \"\210\324\304\310A@\201N A@&\202B\201O =\204*\201I
\201J \n#\203*\324\305\310 $\202B\2038\201L \201M \"\210\324\201P \310 $\262\211 B\262 \330\201Q #\210\201R !\266\210\207" [custom-buffer-style inhibit-changing-match-data indent-tabs-mode custom-face-default-form custom-face-edit custom-face-all widget-get :buttons :value :tag prin1-to-string :custom-state hidden :custom-style nil tree :custom-prefix :custom-last " `--- " " |--- " widget-create-child-and-convert custom-browse-face-tag " " "\n" widget-put custom-visibility :help-echo "Hide or show this face." :on "Hide" :off "Show" :on-glyph "down" :off-glyph "right" :action custom-toggle-hide-face widget-specify-sample face "face\\'" t string-match ":" " face: " :sample-indent item :format "[%{%t%}]" :sample-face :shown-value face-spec-choose "sample" simple custom-magic :custom-magic :documentation-indent 3 widget-add-documentation-string-button :visibility-widget face-comment custom-comment :parent "" :comment-widget 10 custom-load-widget :custom-form custom-face-get-current-spec :indent default face-spec-set-match-display selected-frame widget-apply :match selected insert-char 32 :default-face-attributes lisp sexp :children custom-face-state-set] 24 (#$ . 101872)])
#@382 Alist of actions for the `custom-face' widget.
Each entry has the form (NAME ACTION FILTER) where NAME is the name of
the menu entry, ACTION is the function to call on the widget when the
menu is selected, and FILTER is a predicate which takes a `custom-face'
widget as an argument, and returns non-nil if ACTION is valid on that
widget. If FILTER is nil, ACTION is always valid.
(defvar custom-face-menu (byte-code "\302\303\204\n \205 \304\305\204 \205 \306\307$B\207" [custom-file init-file-user ("Set for Current Session" custom-face-set) append (("Save for Future Sessions" custom-face-save)) (("Undo Edits" custom-redraw (lambda (widget) (memq (widget-get widget :custom-state) '(modified changed)))) ("Revert This Session's Customization" custom-face-reset-saved (lambda (widget) (memq (widget-get widget :custom-state) '(modified set changed))))) (("Erase Customization" custom-face-reset-standard (lambda (widget) (get (widget-value widget) 'face-defface-spec)))) (("---" ignore ignore) ("Add Comment" custom-comment-show custom-comment-invisible-p) ("---" ignore ignore) ("For Current Display" custom-face-edit-selected (lambda (widget) (not (eq (widget-get widget :custom-form) 'selected)))) ("For All Kinds of Displays" custom-face-edit-all (lambda (widget) (not (eq (widget-get widget :custom-form) 'all)))) ("Show Lisp Expression" custom-face-edit-lisp (lambda (widget) (not (eq (widget-get widget :custom-form) 'lisp)))))] 6) (#$ . 104420))
#@63 Edit selected attributes of the value of WIDGET.
(fn WIDGET)
(defalias 'custom-face-edit-selected #[257 "\300\301\302#\210\300\303\304#\210\305!\207" [widget-put :custom-state unknown :custom-form selected custom-redraw] 5 (#$ . 105890)])
#@58 Edit all attributes of the value of WIDGET.
(fn WIDGET)
(defalias 'custom-face-edit-all #[257 "\300\301\302#\210\300\303\304#\210\305!\207" [widget-put :custom-state unknown :custom-form all custom-redraw] 5 (#$ . 106139)])
#@67 Edit the Lisp representation of the value of WIDGET.
(fn WIDGET)
(defalias 'custom-face-edit-lisp #[257 "\300\301\302#\210\300\303\304#\210\305!\207" [widget-put :custom-state unknown :custom-form lisp custom-redraw] 5 (#$ . 106373)])
#@119 Return the current state of the face FACE.
This is one of `set', `saved', `changed', `themed', or `rogue'.
(fn FACE)
(defalias 'custom-face-state #[257 "\211\300N\301N\204 \302N\203 \302N\232\203 \303\202t \304\202t \305N\204+ \306N\203W \306N\232\2047 \304\202t \307N@@\310=\203E \311\202t \307N@@\304=\203S \304\202t \312\202t \313N\203s \211\203e \304\202t \307N\203o \312\202t \314\202t \315\211\315=\204\204 \316N\203\204 \304\202\205 \211\207" [face-comment customized-face customized-face-comment set changed saved-face saved-face-comment theme-face user saved themed face-defface-spec standard rogue face-modified] 5 (#$ . 106619)])
#@194 Set the state of WIDGET, a custom-face widget.
If the user edited the widget, set the state to modified. If not, the new
state is one of the return values of `custom-face-state'.
(fn WIDGET)
(defalias 'custom-face-state-set #[257 "\300!\301\302\303!\304\305\306\"#\266\203\203 \307!\202 \310#\207" [widget-value widget-put :custom-state custom-face-widget-to-spec nil face-attr-match-p face-spec-choose custom-face-state modified] 13 (#$ . 107284)])
#@115 Show the menu for `custom-face' WIDGET.
Optional EVENT is the location for the menu.
(fn WIDGET &optional EVENT)
(defalias 'custom-face-action #[513 "\302\303\"\304=\203
\305!\207\306\302\307\"\310\311\312!P\313 \"#\211\205' \211!)\207" [completion-ignore-case custom-face-menu widget-get :custom-state hidden custom-toggle-hide t :value widget-choose "Operation on " custom-unlispify-tag-name custom-menu-filter] 8 (#$ . 107755)])
#@62 Make the face attributes in WIDGET take effect.
(fn WIDGET)
(defalias 'custom-face-set #[257 "\300!\301!\302\303\"\300!\211\304\232\203 \305\262\306!\210\307\310\311\312%\210\313\314#\210\315\316#\210\315\317#\210\320!\210\321!\207" [widget-value custom-face-widget-to-spec widget-get :comment-widget "" nil custom-comment-hide custom-push-theme theme-face user set face-spec-set customized-face put face-comment customized-face-comment custom-face-state-set custom-redraw-magic] 11 (#$ . 108204)])
#@57 Mark for saving the face edited by WIDGET.
(fn WIDGET)
(defalias 'custom-face-mark-to-save #[257 "\300!\301!\302\303\"\300!\302\304\"\305=\306\232\203 \307\262\310!\210\311\312\313\314%\210\315\2035 \316\2026 \317#\210\320\321#\210\320\322\307#\210\320\323#\207" [widget-value custom-face-widget-to-spec widget-get :comment-widget :custom-state standard "" nil custom-comment-hide custom-push-theme theme-face user set face-spec-set reset saved-face put face-comment customized-face-comment saved-face-comment] 12 (#$ . 108728)])
#@80 Set state of face widget WIDGET and redraw with current settings.
(fn WIDGET)
(defalias 'custom-face-state-set-and-redraw #[257 "\300!\210\301!\207" [custom-face-state-set custom-redraw-magic] 3 (#$ . 109286)])
(put 'custom-face-state-set-and-redraw 'byte-optimizer 'byte-compile-inline-expand)
#@46 Save the face edited by WIDGET.
(fn WIDGET)
(defalias 'custom-face-save #[257 "\300!\210\301 \210\211\302!\210\303!\207" [custom-face-mark-to-save custom-save-all custom-face-state-set custom-redraw-magic] 4 (#$ . 109590)])
#@164 Restore WIDGET to the face's default attributes.
If there is a saved face, restore it; otherwise reset to the
uncustomized (themed or standard) face.
(fn WIDGET)
(defalias 'custom-face-reset-saved #[257 "\300!\301\302\"@\303N\304N\301\305\"\306\307\310\203 \311\202! \312%\210\313\303#\210\314\315#\210\314\316\317#\210\320\"\210\320\206C \321\"\210\322!\210\323!\207" [widget-value widget-get :children saved-face saved-face-comment :comment-widget custom-push-theme theme-face user set reset face-spec-set put face-comment customized-face-comment nil widget-value-set "" custom-face-state-set custom-redraw] 12 (#$ . 109825)])
#@15
(fn WIDGET)
(defalias 'custom-face-standard-value #[257 "\300!\301N\207" [widget-value face-defface-spec] 3 (#$ . 110486)])
#@170 Restore widget WIDGET to the face's standard attribute values.
If `custom-reset-standard-faces-list' is nil, save, reset and
redraw the widget immediately.
(fn WIDGET)
(defalias 'custom-face-mark-to-reset-standard #[257 "\301!\302\303\"@\304N\302\305\"\204 \306\307!\210\310\311\312\313$\210\314\313#\210\315\316\317#\210\315\320\317#\210\203T \321N\204@ \322N\203T \315\321\317#\210\315\322\317#\210B\211\202\211 \321N\204` \322N\203o \315\321\317#\210\315\322\317#\210\323 \210\324\325\326\327\317\"DC!\"\210\324\330\"\210\331!\210\332!\207" [custom-reset-standard-faces-list widget-value widget-get :children face-defface-spec :comment-widget user-error "No standard setting for this face" custom-push-theme theme-face user reset face-spec-set put face-comment nil customized-face-comment saved-face saved-face-comment custom-save-all widget-value-set custom-pre-filter-face-spec t custom-face-attributes-get "" custom-face-state-set custom-redraw-magic] 12 (#$ . 110620)])
#@199 Restore WIDGET to the face's standard attribute values.
This operation eliminates any saved attributes for the face,
restoring it to the state of a face that has never been customized.
(fn WIDGET)
(defalias 'custom-face-reset-standard #[257 "\301\302!)\207" [custom-reset-standard-faces-list nil custom-face-mark-to-reset-standard] 3 (#$ . 111634)])
#@49 History of input to `widget-face-prompt-value'.
(defvar widget-face-prompt-value-history nil (#$ . 111993))
(byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325$\326\324\327\330\331\332&\207" [obarray define-widget face symbol "A Lisp face name (with sample)." :format "%{%t%}: (%{sample%}) %v" :tag "Face" :value default :sample-face-get widget-face-sample-face-get :notify widget-face-notify :match #[514 "\300!\207" [facep] 4 "\n\n(fn WIDGET VALUE)"] :completions apply-partially completion-table-with-predicate facep strict :prompt-match :prompt-history widget-face-prompt-value-history :validate #[257 "\300\301!!?\205 \302\303\304\305\301!\"#\210\211\207" [facep widget-value widget-put :error format "Invalid face: %S"] 8 "\n\n(fn WIDGET)"]] 24)
#@15
(fn WIDGET)
(defalias 'widget-face-sample-face-get #[257 "\300!\301!\203
\211\202 \302\207" [widget-value facep default] 4 (#$ . 112804)])
#@78 Update the sample, and notify the parent.
(fn WIDGET CHILD &optional EVENT)
(defalias 'widget-face-notify #[770 "\300\301\302\"\303\304\305\"#\210\306#\207" [overlay-put widget-get :sample-overlay face widget-apply :sample-face-get widget-default-notify] 9 (#$ . 112955)])
(define-widget 'hook 'list "An Emacs Lisp hook." :value-to-internal #[514 "\211\203\f \2119\203\f \211C\207\207" [] 3 "\n\n(fn WIDGET VALUE)"] :match #[514 "\2119\206 \300\"\207" [widget-group-match] 5 "\n\n(fn WIDGET VALUE)"] :set #[514 "\211\211\205 \211@\300!\203 \301\"\210A\266\202\202 \207" [fboundp add-hook] 7 "\n\n(fn SYMBOL VALUE)"] :convert-widget 'custom-hook-convert-widget :tag "Hook")
#@15
(fn WIDGET)
(defalias 'custom-hook-convert-widget #[257 "\300\301\"\302\203 \303\304\305\306\307\"BBBD\202 \211C\310\311#\210\207" [widget-get :options (editable-list :inline t :entry-format "%i %d%v" (function :format " %v")) checklist :inline t mapcar #[257 "\300D\207" [function-item] 3 "\n\n(fn ENTRY)"] widget-put :args] 9 (#$ . 113651)])
(define-widget 'custom-group-link 'link "Show parent in other window when activated." :button-face 'custom-link :mouse-face 'highlight :pressed-face 'highlight :help-echo "Create customization buffer for this group." :keymap custom-mode-link-map :follow-link 'mouse-face :action 'custom-group-link-action)
#@28
(fn WIDGET &rest IGNORE)
(defalias 'custom-group-link-action #[385 "\300\301!!\207" [customize-group widget-value] 5 (#$ . 114320)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313\314\315\310\311%\210\312\316\317\320\310\311%\210\312\321\322\323\310\311%\207" [custom-declare-variable custom-group-tag-faces funcall function #[0 "\300\207" [nil] 1] "Face used for group tags.\nThe first member is used for level 1 groups, the second for level 2,\nand so forth. The remaining group tags are shown with `custom-group-tag'." :type (repeat face) :group custom-faces custom-declare-face custom-group-tag-1 ((default :weight bold :height 1.2 :inherit variable-pitch) (((class color) (background dark)) :foreground "pink") (((min-colors 88) (class color) (background light)) :foreground "red1") (((class color) (background light)) :foreground "red")) "Face for group tags." custom-group-tag ((default :weight bold :height 1.2 :inherit variable-pitch) (((class color) (background dark)) :foreground "light blue") (((min-colors 88) (class color) (background light)) :foreground "blue1") (((class color) (background light)) :foreground "blue") (t :weight bold)) "Face for low level group tags." custom-group-subtitle ((t :weight bold)) "Face for the \"Subgroups:\" subtitle in Custom buffers."] 8)
(defvar custom-group-doc-align-col 20)
(define-widget 'custom-group 'custom "Customize group." :format "%v" :sample-face-get 'custom-group-sample-face-get :documentation-property 'group-documentation :help-echo "Set or reset all members of this group." :value-create 'custom-group-value-create :action 'custom-group-action :custom-category 'group :custom-set 'custom-group-set :custom-mark-to-save 'custom-group-mark-to-save :custom-reset-current 'custom-group-reset-current :custom-reset-saved 'custom-group-reset-saved :custom-reset-standard 'custom-group-reset-standard :custom-mark-to-reset-standard 'custom-group-mark-to-reset-standard :custom-state-set-and-redraw 'custom-group-state-set-and-redraw :custom-menu 'custom-group-menu-create)
#@15
(fn WIDGET)
(defalias 'custom-group-sample-face-get #[257 "\301\302\"S8\206 \303\207" [custom-group-tag-faces widget-get :custom-level custom-group-tag] 4 (#$ . 116385)])
(define-widget 'custom-group-visibility 'visibility "An indicator and manipulator for hidden group contents." :create 'custom-group-visibility-create)
#@15
(fn WIDGET)
(defalias 'custom-group-visibility-create #[257 "\300!\211\203\n \301c\210\210\302!\207" [widget-value "--------" widget-default-create] 3 (#$ . 116718)])
#@134 Return SYMBOL's custom group members.
If GROUPS-ONLY is non-nil, return only those members that are groups.
(fn SYMBOL GROUPS-ONLY)
(defalias 'custom-group-members #[514 "\211\204 \300N\207\301\300N\211\203& \211@\211A@\300=\203 \211B\262A\266\202\202\f \210\211\237\207" [custom-group nil] 7 (#$ . 116896)])
#@83 Draw a horizontal line at point.
This works for both graphical and text displays.
(defalias 'custom-group--draw-horizontal-line #[0 "`\300c\210\301\211T\302\303$\210\304\305\211T\"\306\307\300\302\310\311\312\313\314\315\316 \317 \320 Z^EE%#\207" ["\n" put-text-property face (:underline t) overlay-put make-overlay before-string propertize (:underline t) display space :align-to + (0 . right) window-hscroll line-end-position line-beginning-position] 16 (#$ . 117219)])
#@73 Insert a customize group for WIDGET in the current buffer.
(fn WIDGET)
(defalias 'custom-group-value-create #[257 "\306\307\"\310=\204
\311!\210\306\307\"\306\312\"\306\313\"\306\314\"\315\306\316\"!\317!\320\321=\2051 \"\315\322 !!\321=\203z \310=\203z \204P \323 !\203z c\210\324 \325\316\326$B\262\327c\210\324 \330\"B\262\331\332\261\210\333 \314#\202\237\321=\203\245 G\334U\203\245 \335\261\210\324 \330\"B\262\331\332\261\210\333 \314#\202\237\321=\203lc\210G\334U\203\323 \335\261\210\324 \330\"B\262\331\332\261\210\333 \314#\202\237\324 \325\316\336$B\262\337c\210\324 \330\"B\262\331\332\261\210\333 \314#\210\340\341!\210\342\343=?\205\n #\306\n\344\"\345\" \306 \346\"\203 \347\202 \350P\351\211\203Z@\262A\262\324A@\352\316\353@!\344\f\312T\346?\354@\313&B\262\202%\333\355\356!#\210)\266\340\357!\202\237\310=\203\346\360=\203\212\324 \361\316%B\262\202\251\362\363
S_\"\210\327c\210\324 \364\365\366\367\370\310=?&B\262i@Y\203\263\371c\210\324 \372\351#\333\n\373#\210\211B\262\210\333 \314#\210\360=\203\335\333 \374@#\210\375 \376\377#\202\237\201C \210\201D =\203\201E \201F \"\203\332c\210\362\363
S_\"\210`\201G \261\210\201H \n`#\266\211\204*\201I c\210\2026\211G\201J W\2036\211c\210\360=\204[\201K c\210\324 \201L \365\201M \367\370\310=?&B\262\331c\210\332c\210\324 \372\201N \334\351%\333\n\373#\210\211B\262\210\333 \314#\210\211\203\222\211G\201J Y\203\222\375 \376\377#\210\201O \201P
\n_\363\"\"\210\340\341!\210\342\343=?\205\261AB#\306\n\344\"\345\" \343=?\205\313B\201Q =\351\211\201R \334;\203\343\201S \334GS#\262\211\211\203r\211@\201T =\204\371\201U \332!\210\211@A@ \203 \211\201T =\203 \351\262\n\201U \201V \201W \201X \201Y #!\210\211\262 \324\352\316\353!\344\f\312 T\354
&\fB\262h\201Z =\204M\201U \332!\210\266T\211\262\351\247\203b@Y\205i\201[ #\266A\266\202\202\344\210\201\\ !\266\211\237\262\201] \201^ \"\210\333\355#\210\201_ !\210)\266\332c\210\201C \207" [custom-buffer-style custom-browse-only-groups custom-browse-sort-alphabetically custom-browse-order-groups custom-prefix-list custom-buffer-indent widget-get :custom-state hidden custom-load-widget :custom-level :custom-prefix :buttons substitute-command-keys :tag widget-value custom-group-members tree widget-docstring custom-unloaded-widget-p widget-create-child-and-convert custom-browse-visibility "+" "-- " custom-browse-group-tag " " "\n" widget-put 0 "[ ]-- " "-" "-\\ " message "Creating group..." custom-sort-items emacs :custom-prefixes custom-prefix-add :custom-last " " " | " nil :group custom-unlispify-tag-name :value :children reverse "Creating group...done" links custom-group-link insert-char 32 custom-group-visibility :help-echo "Show members of this group." :action custom-toggle-parent " " custom-magic :custom-magic :documentation-indent widget-add-documentation-string-button :visibility-widget custom-visibility custom-group-doc-align-col custom-buffer-sort-alphabetically custom-buffer-order-groups custom-group--draw-horizontal-line 1 custom-add-parent-links "Parent groups:" " group: " widget-specify-sample " Group definition missing. " 50 "--------" visibility "Hide members of this group." :indent custom-add-see-also make-string last "Creating group entries..." make-progress-reporter custom-group widget-insert propertize "Subgroups:\n" face custom-group-subtitle 10 progress-reporter-do-update progress-reporter-done mapc custom-magic-reset custom-group-state-update] 34 (#$ . 117698)])
#@384 Alist of actions for the `custom-group' widget.
Each entry has the form (NAME ACTION FILTER) where NAME is the name of
the menu entry, ACTION is the function to call on the widget when the
menu is selected, and FILTER is a predicate which takes a `custom-group'
widget as an argument, and returns non-nil if ACTION is valid on that
widget. If FILTER is nil, ACTION is always valid.
(defvar custom-group-menu (byte-code "\302\303\204\n \205 \304\305\204 \205 \306#B\207" [custom-file init-file-user ("Set for Current Session" custom-group-set (lambda (widget) (eq (widget-get widget :custom-state) 'modified))) append (("Save for Future Sessions" custom-group-save (lambda (widget) (memq (widget-get widget :custom-state) '(modified set))))) (("Undo Edits" custom-group-reset-current (lambda (widget) (memq (widget-get widget :custom-state) '(modified)))) ("Revert This Session's Customizations" custom-group-reset-saved (lambda (widget) (memq (widget-get widget :custom-state) '(modified set))))) (("Erase Customization" custom-group-reset-standard (lambda (widget) (memq (widget-get widget :custom-state) '(modified set saved)))))] 5) (#$ . 121399))
#@116 Show the menu for `custom-group' WIDGET.
Optional EVENT is the location for the menu.
(fn WIDGET &optional EVENT)
(defalias 'custom-group-action #[513 "\302\303\"\304=\203
\305!\207\306\307\310\311\302\312\"!P\313 \"#\211\205% \211!)\207" [completion-ignore-case custom-group-menu widget-get :custom-state hidden custom-toggle-hide t widget-choose "Operation on " custom-unlispify-tag-name :value custom-menu-filter] 8 (#$ . 122565)])
#@57 Set changes in all modified group members.
(fn WIDGET)
(defalias 'custom-group-set #[257 "\300\301\"\211\205 \211@\300\302\"\303=\203 \304\305\"\210A\266\202\202 \207" [widget-get :children :custom-state modified widget-apply :custom-set] 6 (#$ . 123015)])
#@58 Mark all modified group members for saving.
(fn WIDGET)
(defalias 'custom-group-mark-to-save #[257 "\300\301\"\211\205 \211@\300\302\"\303>\203 \304\305\"\210A\266\202\202 \207" [widget-get :children :custom-state (modified set) widget-apply :custom-mark-to-save] 6 (#$ . 123286)])
#@81 Set state of group widget WIDGET and redraw with current settings.
(fn WIDGET)
(defalias 'custom-group-state-set-and-redraw #[257 "\300\301\"\211\205 \211@\300\302\"\303>\203 \304\305\"\210A\266\202\202 \207" [widget-get :children :custom-state (modified set) widget-apply :custom-state-set-and-redraw] 6 (#$ . 123582)])
(put 'custom-group-state-set-and-redraw 'byte-optimizer 'byte-compile-inline-expand)
#@47 Save all modified group members.
(fn WIDGET)
(defalias 'custom-group-save #[257 "\300!\210\301 \210\211\302\303\"\211\205' \211@\302\304\"\305>\203 \306\307\"\210A\266\202\202\f \207" [custom-group-mark-to-save custom-save-all widget-get :children :custom-state (modified set) widget-apply :custom-state-set-and-redraw] 7 (#$ . 124002)])
#@48 Reset all modified group members.
(fn WIDGET)
(defalias 'custom-group-reset-current #[257 "\300\301\"\211\205 \211@\300\302\"\303=\203 \304\305\"\210A\266\202\202 \207" [widget-get :children :custom-state modified widget-apply :custom-reset-current] 6 (#$ . 124353)])
#@55 Reset all modified or set group members.
(fn WIDGET)
(defalias 'custom-group-reset-saved #[257 "\300\301\"\211\205 \211@\300\302\"\303>\203 \304\305\"\210A\266\202\202 \207" [widget-get :children :custom-state (modified set) widget-apply :custom-reset-saved] 6 (#$ . 124635)])
#@63 Reset all modified, set, or saved group members.
(fn WIDGET)
(defalias 'custom-group-reset-standard #[257 "\302\303\304!\210\305 *\207" [custom-reset-standard-faces-list custom-reset-standard-variables-list (t) (t) custom-group-mark-to-reset-standard custom-reset-standard-save-and-update] 3 (#$ . 124926)])
#@71 Mark to reset all modified, set, or saved group members.
(fn WIDGET)
(defalias 'custom-group-mark-to-reset-standard #[257 "\300\301\"\211\205 \211@\300\302\"\303>\203 \304\305\"\210A\266\202\202 \207" [widget-get :children :custom-state (modified set saved) widget-apply :custom-mark-to-reset-standard] 6 (#$ . 125244)])
#@28 Update magic.
(fn WIDGET)
(defalias 'custom-group-state-update #[257 "\301\302\"\303=\204> \301\304\"\305\306\"\307\2037 @@\211\303=\204/ \211>\203/ \211\262\310\262\2023 A\262\210\202 \311\302#\266\312!\207" [custom-magic-alist widget-get :custom-state hidden :children mapcar #[257 "\300\301\"\207" [widget-get :custom-state] 4 "\n\n(fn CHILD)"] standard nil widget-put custom-magic-reset] 9 (#$ . 125579)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable custom-file funcall function #[0 "\300\207" [nil] 1] "File used for storing customization information.\nThe default is nil, which means to use your init file\nas specified by `user-init-file'. If the value is not nil,\nit should be an absolute file name.\n\nYou can set this option through Custom, if you carefully read the\nlast paragraph below. However, usually it is simpler to write\nsomething like the following in your init file:\n\n(setq custom-file \"~/.emacs-custom.el\")\n(load custom-file)\n\nNote that both lines are necessary: the first line tells Custom to\nsave all customizations in this file, but does not load it.\n\nWhen you change this variable outside Custom, look in the\nprevious custom file (usually your init file) for the\nforms `(custom-set-variables ...)' and `(custom-set-faces ...)',\nand copy them (whichever ones you find) to the new custom file.\nThis will preserve your existing customizations.\n\nIf you save this option using Custom, Custom will write all\ncurrently saved customizations, including the new one for this\noption itself, into the file you specify, overwriting any\n`custom-set-variables' and `custom-set-faces' forms already\npresent in that file. It will not delete any customizations from\nthe old custom file. You should do that manually if that is what you\nwant. You also have to put something like (load \"CUSTOM-FILE\")\nin your init file, where CUSTOM-FILE is the actual name of the\nfile. Otherwise, Emacs will not load the file when it starts up,\nand hence will not set `custom-file' to that file either." :type (choice (const :tag "Your Emacs init file" nil) (file :format "%t:%v%d" :doc "Please read entire docstring below before setting this through Custom.\nClick on \"More\" (or position point there and press RETURN)\nif only the first line of the docstring is shown.")) :group customize] 8)
#@74 Return the file name for saving customizations.
(fn &optional NO-ERROR)
(defalias 'custom-file #[256 "\203\f \204 \n\203 \211?\205 \303\304!\207\305 \206 !\207" [user-init-file custom-file init-file-had-error user-error "Saving settings from \"emacs -q\" would overwrite existing customizations" file-chase-links] 3 (#$ . 127967)])
#@43 Save all customizations in `custom-file'.
(defalias 'custom-save-all #[0 "\204\f \203\f \306\307!\210\300 \n\205 \310\311\312\300 !!\313Q B\314!\315r\316 \206/ \316 \317!))q\210\203@ \320 \262\321\322!!\210\323=\204Q \324\305!\210\316 \323 \210)\316\315\211 \325 \210\326 \210+\316 \327 \210)\203v \321!\210\330\315!\202y \331p!*\207" [custom-file init-file-had-error recentf-mode recentf-exclude find-file-visit-truename delay-mode-hooks error "Cannot save customizations; init file was not fully loaded" "\\`" regexp-quote recentf-expand-file-name "\\'" find-buffer-visiting nil t find-file-noselect buffer-file-name set-visited-file-name file-chase-links emacs-lisp-mode make-local-variable custom-save-variables custom-save-faces save-buffer set-buffer-modified-p kill-buffer major-mode print-level print-length inhibit-read-only file-precious-flag] 6 (#$ . 128313)])
#@60 Save all user options which have been set in this session.
(defalias 'customize-save-customized #[0 "\300\301!\210\302 \207" [mapatoms #[257 "\211\300N\301N\302N\303N\203' \304\305#\210\306\307\310\311%\210\304\300\312#\210\203A \304\313#\210\306\314\310\311%\210\304\301\312#\210\211\203Q \304\315#\210\304\303\312#\210\205` \304\316#\210\304\302\312#\207" [customized-face customized-value customized-face-comment customized-variable-comment put saved-face custom-push-theme theme-face user set nil saved-value theme-value saved-variable-comment saved-face-comment] 11 "\n\n(fn SYMBOL)"] custom-save-all] 2 (#$ . 129211) nil])
#@229 Delete all calls to SYMBOL from the contents of the current buffer.
Leave point at the old location of the first such call,
or (if there were none) at the end of the buffer.
This function does not save the buffer.
(fn SYMBOL)
(defalias 'custom-save-delete #[257 "eb\210\301\302!\204 m\204 \212\303\304 !\210)\305\3062L \301\302!\204 `\3071+ \310p!0\2020 \210\311\306\305\"\211<\203G \211@=\203G `|\210\204G `\262\266\202 \210\211\203V \211b\202y d\312\212db\210\313\314d\315Ze]\316#\210\317\320\305\312#\203s \321 \262)\211b)\262\207" [case-fold-search forward-comment 1 forward-sexp buffer-size nil found (end-of-file) read throw t search-backward "\n\f" 3000 move search-forward "Local Variables:" line-beginning-position] 7 (#$ . 129874)])
#@49 Save all customized variables in `custom-file'.
(defalias 'custom-save-variables #[0 "\212\302\303!\210p\304\305\306\"C\307\310\311\312\313\314\315!\316\"\317\320%!\210\211\321\242A\322\"\240\210n\2040 \323\324!\210\323\325!\210\211\242\211\203\211@\211\326N\242\327N\330N\331!?\205X \332!\206X \333N\334=\335N\211\203\200 \211@\2119\203y \336!\204y \337\340\"\210\341\"\262A\266\202\202\\ \210\203\214 @\342=\204\232 \211\204\232 \204\327N\203n\204\242 \323\324!\210\323\343!\210\344!\210\323\345!\210\346@!\211G\347W\203\300 \211c\210\202\321 \350 \210`c\210\212\211b\210\351\305!\210)\210\210\204\336 \204\336 \211\203\323\345!\210\344!\210\204\356 \211\203\323\345!\210\344!\210\211\203\323\345!\210\344!\210\323\352!\210\266A\266\202\2026 \210n\203\323\345!\210\323\352!\210g\353U?\205&\323\324!*\266\202)\207" [sort-fold-case standard-output custom-save-delete custom-set-variables make-list 1 0 nil mapatoms make-byte-code 257 "\211\301N\205 \211\302N\203 \211\302N@@\303=\205 \300\242C\244\207" vconcat vector [saved-value theme-value user] 3 "\n\n(fn SYMBOL)" sort string< princ "\n" "(custom-set-variables\n ;; custom-set-variables was added by Custom.\n ;; If you edit it by hand, you could mess it up, so be careful.\n ;; Your init file should contain only one such instance.\n ;; If there is more than one, they won't work right.\n" theme-value saved-value custom-requests custom-variable-p boundp force-value rogue saved-variable-comment featurep message "Unknown requested feature: %s" delq user " '(" prin1 " " prin1-to-string 60 newline-and-indent indent-pp-sexp ")" 10] 14 (#$ . 130637)])
#@45 Save all customized faces in `custom-file'.
(defalias 'custom-save-faces #[0 "\212\302\303!\210\302\304!\210p\305\306\307\"C\310\311\312\313\314\315\316!\317\"\320\321%!\210\211\322\242A\323\"\240\210\324\242>\203= \211\324\325\324\242\"B\240\210n\204E \326\327!\210\326\330!\210\211\242\211\203\307 \211@\211\331N\242\332N\333N\206i \334!?\205i \335N??\336N\203x @\337=\204\206 \211\204\206 \204\276 \332N\203\276 n\204\216 \326\327!\210\326\340!\210\341!\210\326\342!\210\341!\210\204\246 \211\203\272 \326\342!\210\341!\210\211\203\272 \326\342!\210\341!\210\326\343!\210\266A\266\202\202K \210n\203\320 \326\342!\210\326\343!\210g\344U?\205\336 \326\327!*\266\202)\207" [sort-fold-case standard-output custom-save-delete custom-reset-faces custom-set-faces make-list 1 0 nil mapatoms make-byte-code 257 "\211\301N\205 \211\302N\242@\303=\205 \300\242C\244\207" vconcat vector [saved-face theme-face user] 3 "\n\n(fn SYMBOL)" sort string< default delq princ "\n" "(custom-set-faces\n ;; custom-set-faces was added by Custom.\n ;; If you edit it by hand, you could mess it up, so be careful.\n ;; Your init file should contain only one such instance.\n ;; If there is more than one, they won't work right.\n" theme-face saved-face face-defface-spec custom-facep force-face saved-face-comment user " '(" prin1 " " ")" 10] 10 (#$ . 132305)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable custom-menu-nesting funcall function #[0 "\300\207" [2] 1] "Maximum nesting in custom menus." :type integer :group custom-menu] 8)
#@89 Ignoring WIDGET, create a menu entry for customization face SYMBOL.
(fn WIDGET SYMBOL)
(defalias 'custom-face-menu-create #[514 "\300\301!\302\303DD\304#\207" [vector custom-unlispify-menu-entry customize-face quote t] 7 (#$ . 133898)])
#@93 Ignoring WIDGET, create a menu entry for customization variable SYMBOL.
(fn WIDGET SYMBOL)
(defalias 'custom-variable-menu-create #[514 "\211\300N\211<\204\f \211C\262\211\203 \301\302\"\203 \303\302#\202* \304\305!\306\307DD\310#\207" [custom-type widget-get :custom-menu widget-apply vector custom-unlispify-menu-entry customize-variable quote t] 8 (#$ . 134144)])
(byte-code "\300\301\302N\303\304#\207" [widget-put boolean widget-type :custom-menu #[514 "\300\301!\302\303DD\304\305\306&\207" [vector custom-unlispify-menu-entry customize-variable quote :style toggle :selected] 9 "\n\n(fn WIDGET SYMBOL)"]] 4)
#@90 Ignoring WIDGET, create a menu entry for customization group SYMBOL.
(fn WIDGET SYMBOL)
(defalias 'custom-group-menu-create #[514 "\300\301\"\302\303\304\305\306\307\310DDDC\311BBEE\207" [custom-unlispify-menu-entry t :filter lambda (&rest junk) let* menu custom-menu-create quote ((if (consp menu) (cdr menu) menu))] 11 (#$ . 134779)])
#@116 Create menu for customization group SYMBOL.
The menu is in a format applicable to `easy-menu-define'.
(fn SYMBOL)
(defalias 'custom-menu-create #[257 "\306\307\310!\311\312DD\313#\314\301!\203 \315Y\203F \316!\210\317NG\nW\203F \320 \"\321\317N\f
#\310\313\"\322\323\324\")BBB\266\202\202G \211)\207" [deactivate-mark custom-menu-nesting widget-menu-max-size custom-prefix-list custom-menu-sort-alphabetically custom-menu-order-groups nil vector custom-unlispify-menu-entry customize-group quote t boundp 0 custom-load-symbol custom-group custom-prefix-add custom-sort-items "--" mapcar #[257 "\300A@<\203 A@\202 A@C\301@#\207" [widget-apply :custom-menu] 5 "\n\n(fn ENTRY)"]] 10 (#$ . 135127)])
#@248 Return a customize menu for customization group SYMBOL.
If optional NAME is given, use that as the name of the menu.
Otherwise the menu will be named `Customize'.
The format is suitable for use with `easy-menu-define'.
(fn SYMBOL &optional NAME)
(defalias 'customize-menu-create #[513 "\211\204 \300\262\211\301\302\303\304\305\306\307 DDDC\310BBEE\207" ["Customize" :filter lambda (&rest junk) let menu custom-menu-create quote ((if (consp menu) (cdr menu) menu))] 11 (#$ . 135851)])
#@37 Menu used in customization buffers.
(defvar Custom-mode-menu nil (#$ . 136346))
(byte-code "\303\304 D\305\306\307\310!D\311\312\n\"\244$\207" [custom-mode-map custom-field-keymap custom-commands easy-menu-do-define Custom-mode-menu "Menu used in customization buffers." "Custom" customize-menu-create customize mapcar #[257 "\211@A@\3008\3018\302\303\304!\305&\207" [2 3 vector :active eval :help] 12 "\n\n(fn ARG)"]] 8)
#@36 Keymap for toolbar in Custom mode.
(defvar custom-tool-bar-map nil (#$ . 136785))
#@94 Invoke button at POS, or refuse to allow editing of Custom buffer.
(fn POS &optional EVENT)
(defalias 'Custom-no-edit #[513 "\300\301!\207" [error "You can't edit this part of the Custom buffer"] 4 (#$ . 136873) "@d"])
#@94 Invoke button at POS, or refuse to allow editing of Custom buffer.
(fn POS &optional EVENT)
(defalias 'Custom-newline #[513 "\300\301\"\211\204 \300\302 \301\"\211\262\203 \211\211@\262\303=\204 \304\262\211\203+ \305\"\202. \306\307!\207" [get-char-property button line-beginning-position custom-group-link nil widget-apply-action error "You can't edit this part of the Custom buffer"] 6 (#$ . 137099) "@d"])
#@114 Go to the parent group listed at the top of this buffer.
If several parents are listed, go to the first of them.
(defalias 'Custom-goto-parent #[0 "\212eb\210\300\301\302\303#\205 \304`\305\"\306\307\"\227\310!\266\202)\207" [search-forward "\nParent groups: " nil t get-char-property button widget-get :tag customize-group] 4 (#$ . 137526) nil])
(byte-code "\300\301\302\303#\210\304\211\203( \211@\301N\203! \302N\204! \305\302\301N#\210A\266\202\202 \210\306\301\302\307#\210\310\302\311\312\313DD\314\315\316\317\320&\207" [defvaralias custom-mode-hook Custom-mode-hook nil (saved-value saved-variable-comment) put make-obsolete-variable "23.1" custom-declare-variable funcall function #[0 "\300\207" [nil] 1] "Hook called when entering Custom mode." :type hook :group custom-buffer] 8)
#@15
(fn WIDGET)
(defalias 'custom-state-buffer-message #[257 "\300\211\301\"\302\"\303=\205 \304\305!\207" [widget-get :parent :custom-state modified message "To install your edits, invoke [State] and choose the Set operation"] 5 (#$ . 138333)])
(defalias 'custom--initialize-widget-variables #[0 "\306\300!\210\307\306\302!\210 \306\304!\210 \306\310!\210
\306\311!\210\312 \203A \306\313!\210\314 \306\315!\210\314
\306\316!\210\314\306\317!\210\314\320\211\207" [widget-documentation-face custom-button widget-button-face custom-button-pressed widget-button-pressed-face custom-button-mouse make-local-variable custom-documentation widget-mouse-face widget-button-click-moves-point t widget-push-button-prefix "" widget-push-button-suffix widget-link-prefix widget-link-suffix nil custom-raised-buttons show-trailing-whitespace] 2])
(defvar Custom-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [Custom-mode-hook variable-documentation put "Hook run after entering Custom mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp Custom-mode-map definition-name Custom-mode] 4)
(defvar Custom-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\317#\207" [Custom-mode-abbrev-table Custom-mode-map variable-documentation put purecopy "Keymap for `Custom-mode'." boundp Custom-mode-syntax-table definition-name Custom-mode (lambda (#1=#:def-tmp-var) (defvar Custom-mode-syntax-table #1#)) make-syntax-table "Syntax table for `Custom-mode'." (lambda (#1#) (defvar Custom-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `Custom-mode'." derived-mode-parent] 5)
#@905 Major mode for editing customization buffers.
The following commands are available:
\<widget-keymap>Move to next button, link or editable field. \[widget-forward]
Move to previous button, link or editable field. \[widget-backward]
\<custom-field-keymap>Complete content of editable text field. \[widget-complete]
\<custom-mode-map>Invoke button under the mouse pointer. \[widget-button-click]
Invoke button under point. \[widget-button-press]
Set all options from current text. \[Custom-set]
Make values in current text permanent. \[Custom-save]
Make text match actual option values. \[Custom-reset-current]
Reset options to permanent settings. \[Custom-reset-saved]
Erase customizations; set options
and buffer text to the standard values. \[Custom-reset-standard]
Entry to this mode calls the value of `Custom-mode-hook'
if that value is non-nil.
(defalias 'Custom-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
\"\313#!\210\315$!\210\306\316!\210%\206E \317 \320\321\322\323\324\325!\326\"\327\330%&\"\210\211\211%\262\306\331!\210\306\332!\210\333 \210\334\335\336\337\307$\210)\340\341!\207" [delay-mode-hooks major-mode mode-name Custom-mode-map Custom-mode-syntax-table Custom-mode-abbrev-table make-local-variable t kill-all-local-variables Custom-mode "Custom" use-local-map set-syntax-table easy-menu-add tool-bar-map make-sparse-keymap mapc make-byte-code 257 "\302A@\3038\300 \304\3058&\207" vconcat vector [custom-mode-map tool-bar-local-item-from-menu 4 :label 5] 9 "\n\n(fn ARG)" custom-options custom-local-buffer custom--initialize-widget-variables add-hook widget-edit-functions custom-state-buffer-message nil run-mode-hooks Custom-mode-hook local-abbrev-table custom-mode-map Custom-mode-menu custom-tool-bar-map custom-commands] 8 (#$ . 140320) nil])
(byte-code "\300\301\302\303#\210\304\305\301\306#\210\307\305\301\310#\210\311\312!\207" [put Custom-mode mode-class special defalias custom-mode nil make-obsolete "23.1" provide cus-edit] 4)
Mini Shell