;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:20:35 2007 ;;; from file /home/cyd/emacs/lisp/cus-edit.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`cus-edit.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\217\210\303\306\307\217\210\310\311\312\313#\210\310\311\314\315#\210\316\317\311\320#\210\321\322\303\323\324\325%\210\321\326\303\327\330\322%\210\321\331\303\332\333\334\330\326&\210\321\335\303\336\330\326%\210\321\337\303\340\324\341\330\326&\210\321\342\303\343\330\326%\210\321\344\303\345\330\326%\210\321\346\303\347\330\322%\210\321\350\303\351\330\346\330\352&\210\321\353\303\354\330\322%\210\321\355\303\356\330\322%\210\321\357\303\360\330\355%\210\321\361\303\362\324\363\330\357\330\352& \210\321\364\303\365\324\366\324\367\330\357& \210\321\370\303\371\330\355%\210\321\372\303\373\330\355%\210\321\374\303\375\330\322%\210\321\376\303\377\330\374%\210\321\201@\303\201A\330\374%\210\321\201B\303\201C\324\201D\330\374&\210\321\201E\303\201F\330\374%\210\321\352\303\201G\330\322%\210\321\201H\303\201I\330\352%\210\321\201J\303\201K\330\352%\210\321\201L\303\201M\330\352%\210\321\201N\303\201O\333\201P\330\352&\210\321\201Q\303\201R\330\322%\210\321\201S\303\201T\333\201U\330\201Q&\210\321\201V\303\201W\330\201Q%\210\321\201X\303\201Y\330\201Q%\210\321\201Z\303\201[\330\201Q%\210\321\201\\\303\201]\330\201Q%\210\321\201^\303\201_\324\201`\330\201Q\330\326& \210\321\201a\303\201b\330\201Q%\210\321\201c\303\201d\330\201Q%\210\321\201e\303\201f\330\322%\210\321\201g\303\201h\330\322%\210\321\201i\303\201j\330\322%\210\321\201k\303\201l\324\201m\330\201i&\210\321\201n\303\201o\330\322%\210\321\201p\303\201q\330\322%\210\321\201r\303\201s\330\322%\210\321\201t\303\201u\330\322%\210\321\201v\303\201w\330\322%\210\321\317\201x\201y\201z\201{\330\201r&\210\321\201|\303\201}\330\317\330\201n&\210\321\201~\303\201\201z\201{\330\317&\210\321\201\200\303\201\201\201z\201{\330\317&\210\321\201\202\303\201\203\201z\201{\330\317&\210\321\201\204\303\201\205\324\201\206\330\331&\210\321\201\207\303\201\210\333\201\211\330\201L&\210\321\201\212\303\201\213\324\201\214\330\326&\210\321\201\215\303\201\216\330\201Q%\210\321\201\217\303\201\220\330\326%\210\321\201\221\303\201\222\330\201Q%\210\321\201\223\303\201\224\330\350%\210\321\201\225\303\201\226\330\201Q%\210\321\201\227\303\201\230\330\201Q%\210\321\201\231\303\201\232\330\201L%\210\321\201\233\303\201\234\330\352%\210\321\201\235\303\201\236\324\201\237\330\201Q&\210\321\201\240\303\201\241\330\201Q%\210\321\342\303\201\242\330\201Q%\210\321\201\243\303\201\244\330\201Q%\210\321\201\245\303\201\246\330\201Q%\210\321\201\247\303\201\250\330\201g%\210\321\201\251\303\201\252\330\350%\210\321\201\253\303\201\254\330\201^%\210\321\201\255\303\201\256\324\201\257\330\201Q&\210\321\201\260\303\201\261\324\201\262\330\201Q\201\263\201\264\201z\201\265& \207" [require cus-face wid-edit nil (byte-code "\300\301!\207" [require cus-load] 2) ((error)) (byte-code "\300\301!\207" [require cus-start] 2) ((error)) put custom-define-hook custom-type hook standard-value (nil) custom-add-to-group customize custom-variable custom-declare-group emacs "Customization of the One True Editor." :link (custom-manual "(emacs)Top") editing "Basic text editing facilities." :group abbrev "Abbreviation handling, typing shortcuts, macros." :tag "Abbreviations" matching "Various sorts of searching and matching." emulations "Emulations of other editors." (custom-manual "(emacs)Emulation") mouse "Mouse support." outlines "Support for hierarchical outlining." external "Interfacing to external utilities." processes "Process, subshell, compilation, and job control support." development convenience "Convenience features for faster editing." programming "Support for programming in other languages." languages "Specialized modes for editing programming languages." lisp "Lisp support, including Emacs Lisp." (custom-group-link :tag "Font Lock Faces group" font-lock-faces) 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." oop "Support for object-oriented programming." applications "Applications written in Emacs." calendar "Calendar and time management support." mail "Modes for electronic-mail handling." news "Support for netnews reading and posting." (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." comm "Communications, networking, remote access to files." "Communication" hardware "Support for interfacing with exotic hardware." terminals "Support for terminal types." unix "Front-ends/assistants for, or emulators of, UNIX features." vms "Support code for vms." i18n "Internationalization and alternate character-set support." (custom-manual "(emacs)International") x "The X Window system." frames "Support for Emacs frames and window systems." data "Support editing files of data." files "Support editing files." wp "Word processing." tex "Code related to the TeX formatter." (custom-group-link :tag "Font Lock Faces group" font-lock-faces) faces "Support for multiple fonts." hypermedia "Support for links between text or other media types." help "Support for on-line 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." abbrev-mode "Word abbreviations mode." (custom-manual "(emacs)Abbrevs") alloc "Storage allocation and gc for GNU Emacs Lisp interpreter." "Storage Allocation" undo "Undoing changes in buffers." (custom-manual "(emacs)Undo") mode-line "Content of the modeline." 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." minibuffer "Controlling the behavior of the minibuffer." (custom-manual "(emacs)Minibuffer") keyboard "Input from the keyboard." "Input from the mouse." 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") mac "Mac specific features." (custom-manual "(emacs)Mac OS") :version "22.1" "mac-"] 12) #@27 Keymap for `custom-mode'. (defvar custom-mode-map (byte-code "\302 \303 \"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\326#\210\304\327\330#\210)\207" [map widget-keymap make-keymap set-keymap-parent define-key [remap self-insert-command] Custom-no-edit " " Custom-newline " " scroll-up "" scroll-down "" Custom-set "" Custom-save "q" Custom-buffer-done "u" Custom-goto-parent "n" widget-forward "p" widget-backward] 4) (#$ . 7500)) #@42 Local keymap for links in `custom-mode'. (defvar custom-mode-link-map (byte-code "\302 \303 \"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210)\207" [map 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] 4) (#$ . 8061)) #@194 If REGEXP is a string, split it to a list at `\|'. You can get the original back with from the result with: (mapconcat 'identity result "\|") IF REGEXP is not a string, return it unchanged. (defalias 'custom-split-regexp-maybe #[(regexp) ";\203(\303\304\305\306\n#\203\n\303\224O B\303\225\202 \n\304O B\237*\207\207" [regexp all start 0 nil string-match "\\\\|"] 4 (#$ . 8394)]) #@117 Prompt for a custom variable, defaulting to the variable at point. Return a list suitable for use in `interactive'. (defalias 'custom-variable-prompt #[nil "\305 \2119\205\306!\205\307!\310\311\312 \203\"\313\314 \"\202#\315\f\306\310\311\211 &\211\316\232\203;9\205>\202>\317 !,C\207" [v default enable-recursive-minibuffers val obarray variable-at-point custom-variable-p symbol-name t nil completing-read format "Customize variable (default %s): " "Customize variable: " "" intern] 9 (#$ . 8797)]) #@173 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. (defalias 'custom-menu-filter #[(menu widget) "\306\211\211\211\211 \203: @\211@ A@\307 8 A\203*!\2033\n B\fB\202\n\n\fB\202\n\f\237-\207" [filter action name current result menu nil 2 widget] 6 (#$ . 9324)]) #@64 List of prefixes that should be ignored by `custom-unlispify'. (defvar custom-prefix-list nil (#$ . 9732)) #@62 Display menu entries as words instead of symbols if non-nil. (custom-declare-variable 'custom-unlispify-menu-entries 't '(#$ . 9845) :group 'custom-menu :type 'boolean) #@66 Non-nil means remove group prefixes from option names in buffer. (custom-declare-variable 'custom-unlispify-remove-prefixes 'nil '(#$ . 10020) :group 'custom-menu :group 'custom-buffer :type 'boolean) #@35 Convert SYMBOL into a menu entry. (defalias 'custom-unlispify-menu-entry #[(symbol &optional no-suffix) "\204\306 !\207 \307N\203\n\203 \307N\207 \307N\310P\207r\311\312!q\210\313 \210\314 p\"\210eb\210 \203^\f\315\203]@\316 ` G\\\317#\203T\315e`|\210\2026A\211\204;*\320ed\321\322\317%\210\323ed\"\210\n\204udb\210\310c\210\324 )\207" [custom-unlispify-menu-entries symbol no-suffix custom-unlispify-remove-prefixes custom-prefix-list prefix symbol-name custom-tag "..." get-buffer-create " *Custom-Work*" erase-buffer princ nil search-forward t subst-char-in-region 45 32 capitalize-region buffer-string prefixes] 7 (#$ . 10227)]) #@59 Display tag names as words instead of symbols if non-nil. (custom-declare-variable 'custom-unlispify-tag-names 't '(#$ . 10893) :group 'custom-buffer :type 'boolean) #@35 Convert SYMBOL into a menu entry. (defalias 'custom-unlispify-tag-name #[(symbol) "\303\n\304\")\207" [custom-unlispify-tag-names custom-unlispify-menu-entries symbol custom-unlispify-menu-entry t] 3 (#$ . 11065)]) #@41 Add SYMBOL to list of ignored PREFIXES. (defalias 'custom-prefix-add #[(symbol prefixes) "\302N\206 \303!\304P B\207" [symbol prefixes custom-prefix symbol-name "-"] 2 (#$ . 11288)]) #@320 Alist of (MATCH TYPE). MATCH should be a regexp matching the name of a symbol, and TYPE should be a widget suitable for editing the value of that symbol. The TYPE of the first entry where MATCH matches the name of the symbol will be used. This is used for guessing the type of variables not declared with customize. (custom-declare-variable 'custom-guess-name-alist ''(("-p\\'" boolean) ("-flag\\'" boolean) ("-hook\\'" hook) ("-face\\'" face) ("-file\\'" file) ("-function\\'" function) ("-functions\\'" (repeat function)) ("-list\\'" (repeat sexp)) ("-alist\\'" (repeat (cons sexp sexp)))) '(#$ . 11481) :type '(repeat (group (regexp :tag "Match") (sexp :tag "Type"))) :group 'custom-buffer) #@352 Alist of (MATCH TYPE). MATCH should be a regexp matching a documentation string, and TYPE should be a widget suitable for editing the value of a variable with that documentation string. The TYPE of the first entry where MATCH matches the name of the symbol will be used. This is used for guessing the type of variables not declared with customize. (custom-declare-variable 'custom-guess-doc-alist ''(("\\`\\*?Non-nil " boolean)) '(#$ . 12185) :type '(repeat (group (regexp :tag "Match") (sexp :tag "Type"))) :group 'custom-buffer) #@186 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'. (defalias 'custom-guess-type #[(symbol) "\306! \307\211\f\203&\f@\fA\310 @ \"\203\n A@\307\211\204\n\204[\311\312\" \f\211 \203Z\f\203Z\f@\fA\f\310 @ \"\2038 A@\307\211\f\204=*\n,\207" [symbol custom-guess-name-alist found current names name symbol-name nil string-match documentation-property variable-documentation custom-guess-doc-alist docs doc] 5 (#$ . 12726)]) #@73 If non-nil, sort customization group alphabetically in `custom-browse'. (custom-declare-variable 'custom-browse-sort-alphabetically 'nil '(#$ . 13314) :type 'boolean :group 'custom-browse) #@152 If non-nil, order group members within each customization group. If `first', order groups before non-groups. If `last', order groups after non-groups. (custom-declare-variable 'custom-browse-order-groups 'nil '(#$ . 13510) :type '(choice (const first) (const last) (const :tag "none" nil)) :group 'custom-browse) #@70 If non-nil, show group members only within each customization group. (custom-declare-variable 'custom-browse-only-groups 'nil '(#$ . 13829) :type 'boolean :group 'custom-browse) #@76 If non-nil, sort each customization group alphabetically in Custom buffer. (custom-declare-variable 'custom-buffer-sort-alphabetically 'nil '(#$ . 14013) :type 'boolean :group 'custom-buffer) #@152 If non-nil, order group members within each customization group. If `first', order groups before non-groups. If `last', order groups after non-groups. (custom-declare-variable 'custom-buffer-order-groups ''last '(#$ . 14212) :type '(choice (const first) (const last) (const :tag "none" nil)) :group 'custom-buffer) #@68 If non-nil, sort each customization group alphabetically in menus. (custom-declare-variable 'custom-menu-sort-alphabetically 'nil '(#$ . 14533) :type 'boolean :group 'custom-menu) #@152 If non-nil, order group members within each customization group. If `first', order groups before non-groups. If `last', order groups after non-groups. (custom-declare-variable 'custom-menu-order-groups ''first '(#$ . 14720) :type '(choice (const first) (const last) (const :tag "none" nil)) :group 'custom-menu) #@263 Return a sorted copy of ITEMS. ITEMS should be a `custom-group' property. 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. (defalias 'custom-sort-items #[(items sort-alphabetically order-groups) "\301\302!\303\"\207" [items sort copy-sequence #[(a b) "A@ A@@ @ \204\n\205Q \n\231\202Q \306=\203<\f\306=\2035\n\205Q \n\231\202Q \307=\202Q\f\306=\203I \310=\202Q\n\205Q \n\231,\207" [a b nameb namea typeb typea custom-group first last order-groups sort-alphabetically] 4]] 3 (#$ . 15039)]) #@46 Customization widgets in the current buffer. (defvar custom-options nil (#$ . 15698)) #@61 Set the current value of all edited settings in the buffer. (defalias 'Custom-set #[nil "\211G\303U\203 @\211@)\304>\204\305\306!\203!\307\310 \"\202$\311\312!)\207" [custom-options children widget 1 (custom-variable custom-face) y-or-n-p "Set all values according to this buffer? " mapc #[(child) "\301\302\"\303=\205 \304\305\"\207" [child widget-get :custom-state modified widget-apply :custom-set] 3] message "Aborted"] 4 (#$ . 15790) nil]) #@191 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. (defalias 'Custom-save #[nil "\211G\303U\203 @\211@)\304>\204\305\306!\203$\307\310 \"\210\311 \202'\312\313!)\207" [custom-options children widget 1 (custom-variable custom-face) yes-or-no-p "Save all settings in this buffer? " mapc #[(child) "\301\302\"\303>\205 \304\305\"\207" [child widget-get :custom-state (modified set changed rogue) widget-apply :custom-save] 3] custom-save-all message "Aborted"] 4 (#$ . 16254) 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" . Custom-reset-current) ("Reset to Saved" . Custom-reset-saved) ("Erase Customization (use standard values)" . Custom-reset-standard)) (#$ . 16891)) #@30 Select item from reset menu. (defalias 'custom-reset #[(event) "\304\305\306 \n#\211\205 *\207" [completion-ignore-case custom-reset-menu event answer t widget-choose "Reset settings"] 5 (#$ . 17293)]) #@71 Reset all edited settings in the buffer to show their current values. (defalias 'Custom-reset-current #[(&rest ignore) "\211G\303U\203 @\211@)\304>\204\305\306!\203!\307\310 \"\202$\311\312!)\207" [custom-options children widget 1 (custom-variable custom-face) y-or-n-p "Reset all settings' buffer text to show current values? " mapc #[(widget) "\301\302\"\303>\205 \304\305\"\207" [widget widget-get :custom-state (modified changed) widget-apply :custom-reset-current] 3] message "Aborted"] 4 (#$ . 17506) nil]) #@118 Reset all edited or set settings in the buffer to their saved value. This also shows the saved values in the buffer. (defalias 'Custom-reset-saved #[(&rest ignore) "\211G\303U\203 @\211@)\304>\204\305\306!\203!\307\310 \"\202$\311\312!)\207" [custom-options children widget 1 (custom-variable custom-face) y-or-n-p "Reset all settings (current values and buffer text) to saved values? " mapc #[(widget) "\301\302\"\303>\205 \304\305\"\207" [widget widget-get :custom-state (modified set changed rogue) widget-apply :custom-reset-saved] 3] message "Aborted"] 4 (#$ . 18038) nil]) #@263 Erase all customization (either current or saved) for the group members. 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. (defalias 'Custom-reset-standard #[(&rest ignore) "\211G\303U\203 @\211@)\304>\204\305\306!\203!\307\310 \"\202$\311\312!)\207" [custom-options children widget 1 (custom-variable custom-face) yes-or-no-p "Erase all customizations for settings in this buffer? " mapc #[(widget) "\301\302\"\203\303\302\"\202\304\205\301\305\"\306>\205\303\307\"\207" [widget widget-get :custom-standard-value widget-apply t :custom-state (modified set changed saved rogue) :custom-reset-standard] 3] message "Aborted"] 4 (#$ . 18636) nil]) #@641 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 optional COMMENT argument is non-nil, also prompt for a comment and return it as the third element in the list. (defalias 'custom-prompt-variable #[(prompt-var prompt-val &optional comment) "\306!\307 \310N \311N\312 \" <\204 C\203.\313\314\315\316D\317F!\202H \203E\320 \f\321 !\205= J\321 !?$\202H\322\f!+\203] \323\324 \325N\"E\202a D+\207" [prompt-var var minibuffer-help-form prompt-val prompt type read-variable (describe-variable var) variable-interactive custom-type format call-interactively lambda (arg) interactive arg widget-prompt-value boundp eval-minibuffer read-string "Comment: " variable-comment prop val comment] 6 (#$ . 19448)]) #@434 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. (defalias 'customize-set-value #[(variable value &optional comment) "\303\230\203\304 \305\306#\210\202\203\304 \305#\210 \nL\207" [comment variable value "" put variable-comment nil] 4 (#$ . 20662) (custom-prompt-variable "Set variable: " "Set %s to value: " current-prefix-arg)]) #@559 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. (defalias 'customize-set-variable #[(variable value &optional comment) "\303!\210\304\305\306\307\310 !%\210\311N\206\312 \"\210\313\314\310 !C#\210\n\315\230\2037\313\316\317#\210\313\320\317#\210\202G\n\203G\313\316\n#\210\313\320\n#\210 \207" [variable value comment 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] 7 (#$ . 21393) (custom-prompt-variable "Set variable: " "Set customized value for %s to: " current-prefix-arg)]) #@564 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. (defalias 'customize-save-variable #[(variable value &optional comment) "\303N\206\304 \"\210\305\306\307 !C#\210\310\311\312\313\307 !%\210\n\314\230\2033\305\315\316#\210\305\317\316#\210\202C\n\203C\305\315\n#\210\305\317\n#\210\305\320\316#\210\305\321\316#\210\322 \210 \207" [variable value comment 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-save-all] 7 (#$ . 22523) (custom-prompt-variable "Set and save variable: " "Set and save value for %s as: " current-prefix-arg)]) #@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 #[nil "\300\301!\207" [customize-group emacs] 2 (#$ . 23733) nil]) #@188 Customize options related to the current major mode. If a prefix \[universal-argument] was given (or if the current major mode has no known group), then prompt for the MODE to customize. (defalias 'customize-mode #[(mode) "\301\302!!\207" [mode customize-group custom-group-of-mode] 3 (#$ . 24071) (list (let ((completion-regexp-list '("-mode\\'")) (group (custom-group-of-mode major-mode))) (if (and group (not current-prefix-arg)) major-mode (intern (completing-read (if group (format "Major mode (default %s): " major-mode) "Major mode: ") obarray 'custom-group-of-mode t nil nil (if group (symbol-name major-mode)))))))]) #@55 Customize GROUP, which must be a customization group. (defalias 'customize-group #[(group) ";\203\302\230\203\303\202\304!\305\306\307!\"\310 !\203'\311 !\2023\312\313DC \314\307!P#)\207" [group name "" emacs intern format "*Customize Group: %s*" custom-unlispify-tag-name get-buffer pop-to-buffer custom-buffer-create custom-group " for group "] 6 (#$ . 24704) (list (let ((completion-ignore-case t)) (completing-read "Customize group (default emacs): " obarray (lambda (symbol) (or (and (get symbol 'custom-loads) (not (get symbol 'custom-autoload))) (get symbol 'custom-group))) t)))]) #@55 Customize GROUP, which must be a customization group. (defalias 'customize-group-other-window #[(group) ";\203\305\230\203\306\202\307!\310\311\312!\"\313 !\203.\314\315\211\316 !+\202:\317\320DC \321\312!P#)\207" [group name same-window-regexps same-window-buffer-names pop-up-windows "" emacs intern format "*Customize Group: %s*" custom-unlispify-tag-name get-buffer t nil pop-to-buffer custom-buffer-create-other-window custom-group " for group "] 6 (#$ . 25316) (list (let ((completion-ignore-case t)) (completing-read "Customize group (default emacs): " obarray (lambda (symbol) (or (and (get symbol 'custom-loads) (not (get symbol 'custom-autoload))) (get symbol 'custom-group))) t)))]) (defalias 'customize-variable 'customize-option) #@57 Customize SYMBOL, which must be a user option variable. (defalias 'customize-option #[(symbol) "\204\302\303!\210\304!\305 \306DC\307\310\311 !\"\"\210 =?\205%\312\313 #)\207" [symbol basevar 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'"] 6 (#$ . 26085) (custom-variable-prompt)]) (defalias 'customize-variable-other-window 'customize-option-other-window) #@113 Customize SYMBOL, which must be a user option variable. Show the buffer in another window, but don't select it. (defalias 'customize-option-other-window #[(symbol) "\204\302\303!\210\304!\305 \306DC\307\310\311 !\"\"\210 =?\205%\312\313 #)\207" [symbol basevar 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'"] 6 (#$ . 26589) (custom-variable-prompt)]) #@70 Version for `customize-changed-options' to refer back to by default. (defvar customize-changed-options-previous-release "21.1" (#$ . 27099)) #@1248 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 a 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 (#$ . 27248)) (defalias 'customize-changed 'customize-changed-options) #@384 Customize all settings whose meanings have changed in Emacs itself. This includes new user option variables 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. (defalias 'customize-changed-options #[(since-version) "\306\232\203 \307\202\307\310\311\217\204\312\313\314D\"\210\204 \315\302\316\307#\210\n\307\211\203\\\f@\317 @\"\203U A\307\211\203T@\320\302 \"\210A\211\204B*\fA\211\204-*\321\302!\210\315\302\316\307#\210\307\322\323!\210\203\324\325\326\327#\330\"\202\203\331\332\")\207" [since-version customize-changed-options-previous-release custom-versions-load-alist elt #1=#:--cl-dolist-temp-- load "" nil (byte-code "\301!\247\207" [since-version read] 2) ((error)) signal wrong-type-argument numberp put custom-loads customize-version-lessp custom-add-load custom-load-symbol mapatoms #[(symbol) "\305N\211\203\306 \"\206\307N\211\205I\310 \n\"\205I\311N\204*\312N\2030\311D\fB\313!\203<\314D\fB\315!\205I\316D\fB\211*\207" [symbol package-version version since-version found 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] 4] custom-buffer-create custom-sort-items t first "*Customize Changed Options*" error "No user option defaults have been changed since Emacs %s" #2=#:--cl-dolist-temp-- found] 5 (#$ . 28623) (list (read-from-minibuffer (format "Customize options changed, since version (default %s): " customize-changed-options-previous-release)))]) #@245 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. (defalias 'customize-package-emacs-version #[(symbol package-version) "\305\211\n<\204\306\307 \"\210\2028\n@\f\236\211\2030\310\nA \"A\211\2048\306\311 \nA\312$\210\2028\306\313\n@\nA#\210*\207" [emacs-version package-versions package-version symbol 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"] 6 (#$ . 30430)]) (defalias 'customize-version-lessp #[(version1 version2) "\247\203 \306!\307\211\211\211\310\311 \"\210\312\313\314 \"\206\315!\312\313\316 \"\206*\315!\310\311\"\210\312\313\314\"\206:\315!\312\313\316\"\206E\315!\f W\206V\f U\205V\n W,\207" [version2 minor2 minor1 major2 major1 version1 prin1-to-string nil string-match "\\([0-9]+\\)\\(\\.\\([0-9]+\\)\\)?" read match-string 1 "0" 3] 4]) #@282 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. Interactively, when point is on text which has a face specified, suggest to customize that face, if it's customizable. (defalias 'customize-face #[(&optional face) "\301\235\203 \302 <\203A\204@<\203'\303\304\305\306\"\307\310#\311\"\207\312N\2031\312N\313!\204<\314\315\"\210\303\316DC\317\320\321!\"\"\207" [face (nil "") face-list custom-buffer-create custom-sort-items mapcar #[(s) "\301D\207" [s custom-face] 2] t nil "*Customize Faces*" face-alias facep error "Invalid face %S" custom-face format "*Customize Face: %s*" custom-unlispify-tag-name] 6 (#$ . 31602) (list (read-face-name "Customize face" "all faces" t))]) #@249 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. (defalias 'customize-face-other-window #[(&optional face) "\301\235\203 \302 <\203A\204@<\203'\303\304\305\306\"\307\310#\311\"\207\312N\2031\312N\313!\204<\314\315\"\210\303\316DC\317\320\321!\"\"\207" [face (nil "") face-list custom-buffer-create-other-window custom-sort-items mapcar #[(s) "\301D\207" [s custom-face] 2] t nil "*Customize Faces*" face-alias facep error "Invalid face %S" custom-face format "*Customize Face: %s*" custom-unlispify-tag-name] 6 (#$ . 32420) (list (read-face-name "Customize face" "all faces" t))]) (defalias 'customize-customized 'customize-unsaved) #@63 Customize all user options set in this session but not saved. (defalias 'customize-unsaved #[nil "\301\302\303!\210\204\304\305!\202\306\307\310\301#\311\")\207" [found nil mapatoms #[(symbol) "\302N\204\f\303N\203\304!\203\305D B\306N\204$\307N\2051\310!\2051\311D B\211\207" [symbol found customized-face customized-face-comment custom-facep custom-face customized-value customized-variable-comment boundp custom-variable] 2] error "No user options are set but unsaved" custom-buffer-create custom-sort-items t "*Customize Unsaved*"] 5 (#$ . 33282) nil]) #@58 Customize all user variables modified outside customize. (defalias 'customize-rogue #[nil "\301\302\303!\210\204\304\305!\202\306\307\310\301#\311\")\207" [found nil mapatoms #[(symbol) "\303N\206\304N\206\305N\211\205-\306!\205-\307 @!\310!\232?\205-\311D\nB\211)\207" [symbol cval found customized-value saved-value standard-value default-boundp eval default-value custom-variable] 4] error "No rogue user options" custom-buffer-create custom-sort-items t "*Customize Rogue*"] 5 (#$ . 33870) nil]) #@43 Customize all already saved user options. (defalias 'customize-saved #[nil "\301\302\303!\210\204\304\305!\202\306\307\310\301#\311\")\207" [found nil mapatoms #[(symbol) "\302N\204\f\303N\203\304!\203\305D B\306N\204$\307N\2051\310!\2051\311D B\211\207" [symbol found saved-face saved-face-comment custom-facep custom-face saved-value saved-variable-comment boundp custom-variable] 2] error "No saved user options" custom-buffer-create custom-sort-items t "*Customize Saved*"] 5 (#$ . 34398) nil]) #@368 Customize all loaded options, faces and groups matching REGEXP. If ALL is `options', include only options. If ALL is `faces', include only faces. If ALL is `groups', include only groups. If ALL is t (interactively, with prefix arg), include variables that are not customizable options, as well as faces and groups (but we recommend using `apropos-variable' instead). (defalias 'customize-apropos #[(regexp &optional all) "\303\304\305!\210\204\306\307 \"\202\310\311\312\n#\313\")\207" [found regexp custom-buffer-order-groups nil mapatoms #[(symbol) "\304\305 !\"\205b\n\306>\204 \307N\203 \307D B\n\310>\204-\311 !\203- \312D B\n\313>?\205b\314 !\205b\315 ! =\205b \316N\204[\317 !\204[\n\320>?\205b \321N\205b \322D B\211\207" [regexp symbol all found string-match symbol-name (faces options) custom-group (options groups) custom-facep custom-face (groups faces) boundp indirect-variable saved-value custom-variable-p (nil options) variable-documentation custom-variable] 4] error "No customizable items matching %s" custom-buffer-create custom-sort-items t "*Customize Apropos*"] 5 (#$ . 34929) "sCustomize regexp: \nP"]) #@182 Customize all loaded customizable options matching REGEXP. With prefix arg, include variables that are not customizable options (but we recommend using `apropos-variable' instead). (defalias 'customize-apropos-options #[(regexp &optional arg) "\302 \206\303\"\207" [regexp arg customize-apropos options] 3 (#$ . 36087) "sCustomize regexp: \nP"]) #@45 Customize all loaded faces matching REGEXP. (defalias 'customize-apropos-faces #[(regexp) "\301\302\"\207" [regexp customize-apropos faces] 3 (#$ . 36442) "sCustomize regexp: \n"]) #@46 Customize all loaded groups matching REGEXP. (defalias 'customize-apropos-groups #[(regexp) "\301\302\"\207" [regexp customize-apropos groups] 3 (#$ . 36630) "sCustomize regexp: \n"]) #@207 Control the presentation style for customization buffers. The value should be a symbol, one of: brackets: groups nest within each other with big horizontal brackets. links: groups have links to subgroups. (custom-declare-variable 'custom-buffer-style ''links '(#$ . 36822) :type '(radio (const brackets) (const links)) :group 'custom-buffer) #@56 *Non-nil means exiting a Custom buffer should kill it. (custom-declare-variable 'custom-buffer-done-kill 'nil '(#$ . -37171) :type 'boolean :version "22.1" :group 'custom-buffer) #@43 Number of spaces to indent nested groups. (custom-declare-variable 'custom-buffer-indent '3 '(#$ . 37356) :type 'integer :group 'custom-buffer) #@184 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. (defalias 'custom-get-fresh-buffer #[(name) "\305!\211\203\306\307 \"\203\310 !\210\311 \204\312!\202Mr q\210\313 \210\314\315!\210\316 \211@\nA\244\311\211\203G\f@\317 !\210\fA\211\2049+\320 \210 ))\207" [name buf ols ol #1=#:--cl-dolist-temp-- 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] 4 (#$ . 37507)]) #@227 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. (defalias 'custom-buffer-create #[(options &optional name description) "\303\304\206\305!!\210\306 \n\"\207" [name options description pop-to-buffer custom-get-fresh-buffer "*Customization*" custom-buffer-create-internal] 3 (#$ . 38154)]) #@304 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. (defalias 'custom-buffer-create-other-window #[(options &optional name description) "\204\306\307\310\211\311\312!!\210\313\f \"+\207" [name same-window-regexps same-window-buffer-names pop-up-windows options description "*Customization*" t nil pop-to-buffer custom-get-fresh-buffer custom-buffer-create-internal] 3 (#$ . 38629)]) #@129 If non-nil, only show a single reset button in customize buffers. This button will have a menu with all three reset operations. (custom-declare-variable 'custom-reset-button-menu 'nil '(#$ . 39278) :type 'boolean :group 'custom-buffer) #@67 If non-nil, include explanatory text in the customization buffer. (custom-declare-variable 'custom-buffer-verbose-help 't '(#$ . 39520) :type 'boolean :group 'custom-buffer) #@68 Exit current Custom buffer according to `custom-buffer-done-kill'. (defalias 'Custom-buffer-done #[(&rest ignore) "\301!\207" [custom-buffer-done-kill quit-window] 2 (#$ . 39700) nil]) #@49 Face used for buttons in customization buffers. (defvar custom-button nil (#$ . 39892)) #@55 Mouse face used for buttons in customization buffers. (defvar custom-button-mouse nil (#$ . 39986)) #@57 Face used for pressed buttons in customization buffers. (defvar custom-button-pressed nil (#$ . 40092)) #@89 If non-nil, indicate active buttons in a `raised-button' style. Otherwise use brackets. (custom-declare-variable 'custom-raised-buttons '(not (equal (face-valid-attribute-values :box) '(("unspecified" . unspecified)))) '(#$ . 40202) :type 'boolean :version "21.1" :group 'custom-buffer :set #[(variable value) "\305 \"\210 \203 \302\202\306 \203\303\202\307 \203!\304\202\"\310\211\207" [variable value custom-button custom-button-mouse custom-button-pressed custom-set-default custom-button-unraised highlight custom-button-pressed-unraised] 3]) (defalias 'custom-buffer-create-internal #[(options &optional description) "\306 \210\203U\307\310!\210 \203\307 !\210\307\311\312\n\203\313\202\314\"!\210 \203-\307\315!\210\2021\307\316!\210\307\317!\210\320\321\322\323\324$\210\307\325!\210\320\321\322\326\327\330\331&\210\307\332!\210\307\333!\210\202Y\307\334!\210\320\335\322\336\327\337\340\341&\210\204v\307\334!\210\320\321\322\326\327\330\331&\210\f\204~ \203\215\307\334!\210\320\335\322\342\327\343\340\344&\210@\203\246\307\334!\210\320\335\322\345\327\346\347\350\340\351& \210\202\333\307\352!\210\320\335\322\353\327\354\340\355&\210\307\334!\210\320\335\322\356\327\357\340\360&\210\307\334!\210\f\204\320 \203\333\320\335\322\361\327\362\340\363&\210\307\364!\210\320\335\322\365\327\366\340\367&\210\307\370!\210\371\372!\210\373 \210AG\374U\203\375\376A\"\202\377AGBC\375\201FA\"*Dh\201G=\204%\307\201H!\210\371\201I!\210\371\201J!\210E\201K=\204D\201L\201MD\"\210\371\201N!\210\371\201O!\210\201P \210\201Q \210eb\210\371\201R!\207" [custom-buffer-verbose-help description custom-raised-buttons init-file-user custom-file user-init-file custom-mode widget-insert "This is a customization buffer" format ".\n%s buttons; type RET or click mouse-1 to actuate one.\nEditing a setting changes only the text in the buffer." "`Raised' text indicates" "Square brackets indicate" "\nUse the setting's State button to set it or save changes in it.\nSaving a change normally works by editing your Emacs init file." "\n\nSince you started Emacs with `-q', which inhibits use of the\nEmacs init file, you cannot save settings into the Emacs init file." "\nSee " widget-create custom-manual :tag "Custom file" "(emacs)Saving Customizations" " for information on how to save in a different file.\n\nSee " "Help" :help-echo "Read the online help." "(emacs)Easy Customization" " for more information.\n\n" "Operate on all settings in this buffer that are not marked HIDDEN:\n " " " push-button "Set for Current Session" "Make your editing in this buffer take effect for this session." :action #[(widget &optional event) "\300 \207" [Custom-set] 1] "Save for Future Sessions" "Make your editing in this buffer take effect for future Emacs sessions.\nThis updates your Emacs initialization file or creates a new one." #[(widget &optional event) "\300 \207" [Custom-save] 1] "Reset buffer" "Show a menu with reset operations." :mouse-down-action #[(&rest junk) "\300\207" [t] 1] #[(widget &optional event) "\301!\207" [event custom-reset] 2] "\n " "Undo Edits" "Reset all edited text in this buffer to reflect current values." Custom-reset-current "Reset to Saved" "Reset all settings in this buffer to their saved values." Custom-reset-saved "Erase Customization" "Un-customize all settings in this buffer and save them with standard values." Custom-reset-standard " " "Finish" #[(&rest ignore) "\203\301\207\302\207" [custom-buffer-done-kill "Kill this buffer" "Bury this buffer"] 1] Custom-buffer-done "\n\n" message "Creating customization items..." buffer-disable-undo 1 mapcar #[(entry) "\301A@\302\303\304\305\306\307@!\310@& \207" [entry widget-create :documentation-shown t :custom-state unknown :tag custom-unlispify-tag-name :value] 10] 0 custom-reset-button-menu options length count custom-options custom-buffer-style #[(entry) "\303\304\305_ \245\"\210\306\nA@\307\310\n@!\311\n@%Th\312=\204#\313\314!\210\313\314!\210\207" [count length entry message "Creating customization items ...%2d%%" 100.0 widget-create :tag custom-unlispify-tag-name :value 10 widget-insert "\n"] 6] 10 "\n" "Creating customization items ...done" "Resetting customization items..." tree mapc custom-magic-reset "Resetting customization items...done" "Creating customization setup..." widget-setup buffer-enable-undo "Creating customization setup...done"] 10]) #@52 Create a tree browser for the customize hierarchy. (defalias 'customize-browse #[(&optional group) "\204\305\306\307\310 !!\210)\311 \210\312\313\314\n\203\315\202\316\"!\210 \203,\312\317!\210\202]\312\320!\210\321\322\323\324\325\326\327\330&\210\312\331!\210\321\322\323\324\325\332\327\333&\210\312\334!\210\321\322\323\324\325\335\327\336&\210\312\337!\210\340\321\341\342\343\344\345\325\346!\347& \210)\350 \210eb\207" [group name custom-raised-buttons custom-browse-only-groups custom-buffer-style emacs "*Customize Browser*" pop-to-buffer 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] 10 (#$ . 44639) nil]) (define-widget 'custom-browse-visibility 'item "Control visibility of items in the customize tree browser." :format "%[[%t]%]" :action 'custom-browse-visibility-action) (defalias 'custom-browse-visibility-action #[(widget &rest ignore) "\302\303 !)\207" [custom-buffer-style widget tree custom-toggle-parent] 2]) (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) (defalias 'custom-browse-group-tag-action #[(widget &rest ignore) "\302\303\"\304\305 !!)\207" [widget parent widget-get :parent customize-group-other-window widget-value] 3]) (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) (defalias 'custom-browse-variable-tag-action #[(widget &rest ignore) "\302\303\"\304\305 !!)\207" [widget parent widget-get :parent customize-variable-other-window widget-value] 3]) (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) (defalias 'custom-browse-face-tag-action #[(widget &rest ignore) "\302\303\"\304\305 !!)\207" [widget parent widget-get :parent customize-face-other-window widget-value] 3]) (byte-code "\301B\302\303!\207" [current-load-list custom-browse-alist (lambda (#1=#:defconst-tmp-var) (defconst custom-browse-alist #1#)) ((" " "space") (" | " "vertical") ("-\\ " "top") (" |-" "middle") (" `-" "bottom"))] 2) #@56 Insert PREFIX. On XEmacs convert it to line graphics. (defalias 'custom-browse-insert-prefix #[(prefix) "c\207" [prefix] 1 (#$ . 47478)]) (byte-code "\301\302\303N\304\305#\210\301\306\303N\304\307#\210\301\310\303N\304\305#\210\311\312\313\314\315\316\317\320\321\322\323\324\325\326\325\327\330&\210\331\332\333\334\335\336\335\337&\210\340\341\342\343\335\332%\210\344\345\346\341#\210\340\347\350\351\335\332%\210\344\352\346\347#\210\340\353\354\355\335\332%\210\344\356\346\353#\210\340\357\360\361\335\332%\210\344\362\346\357#\210\340\363\364\365\335\332%\210\344\366\346\363#\210\340\367\370\371\335\332%\210\340\372\373\374\335\332%\210\344\375\346\372#\207" [custom-mode-link-map widget-put item widget-type :custom-show t editable-field #[(widget value) "\302!\303\304 \"\203\305\202 G\306V\203\305\202\307)\207" [value pp pp-to-string string-match "\n" nil 40 t] 3] 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." put custom-invalid-face face-alias custom-rogue ((((class color)) (:foreground "pink" :background "black")) (t (:underline t))) "Face used when the customize item is not defined for customization." custom-rogue-face custom-modified ((((min-colors 88) (class color)) (:foreground "white" :background "blue1")) (((class color)) (:foreground "white" :background "blue")) (t (:slant italic :bold))) "Face used when the customize item has been modified." custom-modified-face 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-set-face 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-changed-face 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." custom-saved-face] 18) #@1134 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. `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; operating on it here may be unreliable." "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 all at standard values.") (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.")) (#$ . 50243)) #@112 If non-nil, show textual description of the state. If `long', show a full-line description, not just one word. (custom-declare-variable 'custom-magic-show ''long '(#$ . 52590) :type '(choice (const :tag "no" nil) (const long) (other :tag "short" short)) :group 'custom-buffer) #@213 Control whether the State button is shown for hidden items. The value should be a list with the custom categories where the State button should be visible. Possible categories are `group', `option', and `face'. (custom-declare-variable 'custom-magic-show-hidden ''(option face) '(#$ . 52874) :type '(set (const group) (const option) (const face)) :group 'custom-buffer) #@74 Show a "magic" button indicating the state of each customization option. (custom-declare-variable 'custom-magic-show-button 'nil '(#$ . 53251) :type 'boolean :group 'custom-buffer) (define-widget 'custom-magic 'default "Show and manipulate state for a customization option." :format "%v" :action 'widget-parent-action :notify 'ignore :value-get 'ignore :value-create 'custom-magic-value-create :value-delete 'widget-children-value-delete) (defalias 'widget-magic-mouse-down-action #[(widget &optional event) "\301\211\211\302\"\302\"\303\"\304=?\207" [widget widget-get :parent :custom-state hidden] 5]) #@42 Create compact status report for WIDGET. (defalias 'custom-magic-value-create #[(widget) "\306\307\"\306 \310\"\211\303=\n\f\236\211A@?\311 80\306 \312\"\211@\313=\203.\314 8\2061\315 8A\306 \316\"B\317C\320\321A\"\203X\322\323A\"\324@!\322\311A\"QA\202<D\203\350 \203i@E>\203\350\325c\210@\313=\203\216F\326=\203\203\306 \327\"\323V\204\216\330\331G\306 \327\"_\"\210\332\333\334\335\336 \203\234\337\202\235\340\341\342\343\344\345\346\347\350&CBC\351c\210`HD\352=\203\300Ac\210\202\305\324\n!c\210B\353=\203\322\354c\210\202\334B\355=\203\334\356c\210\357H`\360\361$\210)\362c\210@\313=\203\nF\326=\203\377\306 \327\"\323V\204\n\330\331G\306 \327\"_\"\210I\203\\D\203%\306 \363\"\211J\203$\330\331J\"\210)\332\333\345\346\3640\341\365\343\365\334\366\336 \203<\337\202=\340\347B\367>\203M\370?\371Q\202R\372?\373Q&CBC\374c\210\375\376C#.\n\207" [widget parent state hidden custom-magic-alist entry widget-get :parent :custom-state 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 lisp " (lisp)" mismatch " (mismatch)" put-text-property face custom-state "\n" :indent :button-face "" "Change the state." (lisp mismatch) "(" ")" "[" "]" " " widget-put :children magic category text form children custom-magic-show custom-magic-show-hidden custom-buffer-style custom-buffer-indent start custom-magic-show-button indent] 20 (#$ . 53862)]) #@46 Redraw the :custom-magic property of WIDGET. (defalias 'custom-magic-reset #[(widget) "\302\303\"\304 \305 !\")\207" [widget magic widget-get :custom-magic widget-value-set widget-value] 4 (#$ . 55652)]) (byte-code "\304\301\305\306\307\310\311\312&\210\313\314\315\301#\210\304\302\316\317\307\320\311\312&\210\304\321\322\323\307\320\311\312&\210\203/\301\2020\321\2039\302\202:\324\304\303\325\326\307\310\311\312&\210\313\327\315\303#\210\304\330\331\332\307\320\311\312&\210\203_\303\202`\330\304\333\334\335\311\312%\210\313\336\315\333#\210\304\337\340\341\311\312%\210\313\342\315\337#\210\304\343\344\345\307\320\311\312&\210\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\367\371\372\373\374\375\376\377\201@&\207" [custom-raised-buttons custom-button custom-button-mouse custom-button-pressed custom-declare-face ((((type x w32 mac) (class color)) (:box (:line-width 2 :style released-button) :background "lightgrey" :foreground "black")) (t nil)) "Face for custom buffer buttons if `custom-raised-buttons' is non-nil." :version "21.1" :group custom-faces put custom-button-face face-alias ((((type x w32 mac) (class color)) (:box (:line-width 2 :style released-button) :background "grey90" :foreground "black")) (t nil)) "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 mac) (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-face 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-documentation-face custom-state ((((class color) (background dark)) (:foreground "lime green")) (((class color) (background light)) (:foreground "dark green")) (t nil)) "Face used for State descriptions in the customize buffer." custom-state-face 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 #[(widget value) "9\207" [value] 1]] 28) #@50 Initialize :value and :tag from :args in WIDGET. (defalias 'custom-convert-widget #[(widget) "\302\303\"\211\203#\304\305\306\307 @##\210\304\310\311 @!#\210\304\303\312#\210)\207" [widget args widget-get :args widget-put :value widget-apply :value-to-internal :tag custom-unlispify-tag-name nil] 8 (#$ . 58501)]) #@24 Keep track of changes. (defalias 'custom-notify #[(widget &rest args) "\303\304\"\211\305=?\205! \306>\204\307\304\305#\210\310!\210\311\312\n#)\207" [widget state args widget-get :custom-state modified (nil unknown hidden) widget-put custom-magic-reset apply widget-default-notify] 5 (#$ . 58829)]) #@38 Redraw WIDGET with current settings. (defalias 'custom-redraw #[(widget) "\306e`\"i`\307\310\311\"!\307\310\312\"!\212\313\314!\"\210\315!\210) \nY\2054 X\2054\316\317\320\217-\207" [widget to from pos column line count-lines marker-position widget-get :from :to widget-value-set widget-value custom-redraw-magic nil (byte-code "\302V\203 \303 !\210\202\303 T!\210\304!\207" [column line 0 goto-line move-to-column] 2) ((error))] 8 (#$ . 59143)]) #@44 Redraw WIDGET state with current settings. (defalias 'custom-redraw-magic #[(widget) "\203*\302\303\"\211\203$\304 \305 !\"\210\302\306\"\211\203&\307!\210\202&\310)\202\311 \207" [widget magic widget-get :custom-magic widget-value-set widget-value :group custom-group-state-update nil widget-setup] 5 (#$ . 59614)]) #@58 Non-nil if WIDGET should be shown with VALUE by default. (defalias 'custom-show #[(widget value) "\303\304\"\211\204 \305\202 \306=\203\306\202 \n\")\207" [widget show value widget-get :custom-show nil t] 4 (#$ . 59950)]) #@35 Load all dependencies for WIDGET. (defalias 'custom-load-widget #[(widget) "\301\302!!\207" [widget custom-load-symbol widget-value] 3 (#$ . 60188)]) #@72 Return non-nil if the dependencies of SYMBOL have not yet been loaded. (defalias 'custom-unloaded-symbol-p #[(symbol) "\305\306N\305\n\203>\n@\nA 9\203\"\307 !\204\310\202\311 \f\"\204\311\312 !\f\"\2039\313\305!\210\202\310\202 +\207" [symbol load loads found load-history nil custom-loads featurep t assoc locate-library message] 3 (#$ . 60345)]) #@72 Return non-nil if the dependencies of WIDGET have not yet been loaded. (defalias 'custom-unloaded-widget-p #[(widget) "\301\302!!\207" [widget custom-unloaded-symbol-p widget-value] 3 (#$ . 60721)]) #@30 Toggle visibility of WIDGET. (defalias 'custom-toggle-hide #[(widget) "\302!\210\303\304\"\211\305>\203\306\307!\210\2021 \310=\203%\311\304\312#\210\2021\311\313\314#\210\311\304\310#\210\315!\210\316 )\207" [widget state custom-load-widget widget-get :custom-state (invalid modified) error "There are unset changes" hidden widget-put unknown :documentation-shown nil custom-redraw widget-setup] 5 (#$ . 60927)]) #@40 Toggle visibility of parent of WIDGET. (defalias 'custom-toggle-parent #[(widget &rest ignore) "\301\302\303\"!\207" [widget custom-toggle-hide widget-get :parent] 4 (#$ . 61359)]) #@86 Add `See also ...' to WIDGET if there are any links. Insert PREFIX first if non-nil. (defalias 'custom-add-see-also #[(widget &optional prefix) "\306\307\"\211\310N\211G\311V\306\312\"\306\313\"\n\205q \203%\314\315 \"\210\203.c\210\316c\210\n\203l\317\n@\320\321\322\323\324\323&\fB\nA\211\204Q\325c\210\2021\nA\204f \203`\326c\210\2021\327c\210\2021\330c\210\2021\331\312\f#-\207" [widget symbol links many buttons indent 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 prefix] 10 (#$ . 61547)]) #@179 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:". (defalias 'custom-add-parent-links #[(widget &optional initial-string) "\306!\211@)\307\310\"`\311 \206\312c\210\313\314!\210 \315N\204\210 G\316U\203\210\317\311\320\321 @\315N\"\"\211!G\322V\"!\203\207\323c\210!\203\207\324!@\325\326\327\330\331\330& B!A\211!\204j\332c\210\202F!A\204\201\"\203{\333c\210\202F\334c\210\202F\335c\210\202F* \203\222\336c\210\202\226\n`|\210\337\310 #\210 -\207" [widget parents start buttons type name widget-value widget-get :buttons nil "Parent groups:" mapatoms #[(symbol) " D\n\306N\235\205\307c\210\310 \311\312\313\n!\n%\fB\n B\211\207" [name type symbol widget buttons parents custom-group " " widget-create-child-and-convert custom-group-link :tag custom-unlispify-tag-name] 6] custom-links 1 delq mapcar #[(w) "\211@)\302=?\205\f\207" [w widget custom-group-link] 3] 2 "\nParent documentation: " widget-create-child-and-convert :button-face custom-link :mouse-face highlight :pressed-face ".\n" ", and " " and " ", " "\n" widget-put initial-string links many] 10 (#$ . 62241)]) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\301#\210\300\313\314\315\306\307%\210\310\316\312\313#\210\317\301\320\321\322\323\324\325\326\316\327\311\330\331\332\333&\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 put custom-comment-face face-alias 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 variables or faces comment tags" custom-comment-tag-face define-widget string "User comment." :tag "Comment" :help-echo "Edit a comment here." :sample-face :value-face :shown nil :create custom-comment-create] 16) (defalias 'custom-comment-create #[(widget) "\302!\303\232\304\211\305\"\306\"\204 \204\307!\202'\310\311\312 #\210\310\313\312 #)\207" [widget null-comment widget-value "" widget-get :parent :comment-shown widget-default-create widget-put :from point-marker :to] 4]) (defalias 'custom-comment-hide #[(widget) "\301\302\303\"\304\305#\207" [widget widget-put widget-get :parent :comment-shown nil] 4]) (defalias 'custom-comment-show #[(widget) "\301\302\303#\210\304!\210\305 \207" [widget widget-put :comment-shown t custom-redraw widget-setup] 4]) (defalias 'custom-comment-invisible-p #[(widget) "\302\303\304\"!\211\305\232\205\303\306\"?)\207" [widget val widget-value widget-get :comment-widget "" :comment-shown] 5]) (byte-code "\300\301\302\303\304\305%\210\306\307\310\301#\210\300\311\312\313\304\305%\210\306\314\310\311#\207" [custom-declare-face custom-variable-tag ((((class color) (background dark)) (:foreground "light blue" :weight bold :height 1.2 :inherit variable-pitch)) (((min-colors 88) (class color) (background light)) (:foreground "blue1" :weight bold :height 1.2 :inherit variable-pitch)) (((class color) (background light)) (:foreground "blue" :weight bold :height 1.2 :inherit variable-pitch)) (t (:weight bold))) "Face used for unpushable variable tags." :group custom-faces put custom-variable-tag-face face-alias custom-variable-button ((t (:underline t :weight bold))) "Face used for pushable variable tags." custom-variable-button-face] 6) #@45 Default form of displaying variable values. (custom-declare-variable 'custom-variable-default-form ''edit '(#$ . 66119) :type '(choice (const edit) (const lisp)) :group 'custom-buffer :version "20.3") #@191 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. (defalias 'custom-variable-documentation #[(variable) "\302!\203$\303!\203\304\305!\306\216r q\210\302!+\203$\307\310\"\311P\207\307\310\"\207" [variable #1=#:temp-buffer local-variable-if-set-p local-variable-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) documentation-property variable-documentation "\n\nThis variable automatically becomes buffer-local when set outside Custom.\nHowever, setting it through Custom sets the default value."] 3 (#$ . 66327)]) (define-widget 'custom-variable 'custom "Customize variable." :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 :custom-set 'custom-variable-set :custom-save 'custom-variable-save :custom-reset-current 'custom-redraw :custom-reset-saved 'custom-variable-reset-saved :custom-reset-standard 'custom-variable-reset-standard :custom-standard-value 'custom-variable-standard-value) #@165 Return a widget suitable for editing the value of SYMBOL. If SYMBOL has a `custom-type' property, use that. Otherwise, look up symbol in `custom-guess-type-alist'. (defalias 'custom-variable-type #[(symbol) "\304N\206\305N\204\306!\206\307\310N <\203#\311 !\202% C\n\2030\312 \313\n#\210 +\207" [symbol type options tmp custom-type standard-value custom-guess-type sexp custom-options copy-sequence widget-put :options] 4 (#$ . 67674)]) #@46 Here is where you edit the variable's value. (defalias 'custom-variable-value-create #[(widget) "\306!\210\307\310\"\204\311\310 #\210\307\312\"\307\313\"\307\310\"\307\314\"\307\315\"@\307\316\"A\317@!B\320B!C@\321N\206E\322D\307\323\"E\307\324\"F\325@!\203bD@!\202g\307C\315\"G \204}\326BG\"\203{\327\202}\330 \327=\203\217\331C\332G#\204\217\333H\334=\203\274EF\203\241\335\202\242\336\261\210\337\340\"\nB\341A\342\261\210\311\312\n#\210\202\317 \330=\203\345\337\343\344\345\346\347\316A\350&\n\nB\337\351\352\353\354\355\356\357\360& \nB\202\317\f\361>\203Y@\362N\203\372@\362N@\202!@\363N\203 @\363N@\202!\325@!\203\364D@!!\202!\364\307C\315\"!G\365@!\366\261\210\337\351\352\367\370\371\354\355\356\357\372& \nB\341c\210\337\373\374\375\344\376\316\365@!\350\315G&\f B)\202\317\307B\344\"I\360\211JK\377\201OI\"\204x\201P\201Q!\210I\201R\211\225OJI\201R\225\360OK\337\343\344J\356\201S\352\201T\201U\201V\374\375\346\347A&\nB\341c\210\337\351\352\367\370\371\354\355\356\357\372& \nB\337B\344K\315G& B+H\334=?\205\204h\201W=\204\345\201X\342!\210\337\201Y\360#L\311\201ZL#\210L\nB)\311\312\n#\210\342c\210\201[\201\\\"\210 \330=\204D@\201]NM\337\201^\350\315M\206-\201_&N\311\201`N#\210\201a NC\"*\311\310\f#\210\311\313 #\210 \330=\203_\311\314 #\210\202e\201b!\210 \330=?\205\204\307\201c\"\201d=\203\201e!\210\201f!.\f\207" [widget custom-variable-default-form buttons children form state custom-load-widget widget-get :custom-form widget-put :buttons :children :custom-state :value :tag custom-variable-type widget-convert custom-get default-value :custom-prefix :custom-last default-boundp custom-show unknown hidden widget-apply :match mismatch tree " `--- " " |--- " widget-create-child-and-convert custom-browse-variable-tag " " "\n" item :format "%{%t%}: " :sample-face custom-variable-tag-face :parent visibility :help-echo "Show the value of this option." :off "Show Value" :action custom-toggle-parent nil (lisp mismatch) saved-value standard-value custom-quote symbol-name ": " "Hide the value of this option." :on "Hide Value" t sexp :button-face custom-variable-button-face "%v" string-match symbol tag type conv get prefix last value custom-buffer-style format tag-format value-format magic comment comment-widget ":" error "Bad format" 0 custom-tag-action "Change value of this option." :mouse-down-action custom-tag-mouse-down-action 10 widget-insert custom-magic :custom-magic widget-default-format-handler 104 variable-comment custom-comment "" :comment-widget append custom-variable-state-set :custom-level 1 custom-add-parent-links custom-add-see-also] 17 (#$ . 68133)]) #@49 Pass :action to first child of WIDGET's parent. (defalias 'custom-tag-action #[(widget &rest args) "\302\303\304\211\305\"\306\"@\307 $\207" [widget args apply widget-apply widget-get :parent :children :action] 6 (#$ . 70919)]) #@60 Pass :mouse-down-action to first child of WIDGET's parent. (defalias 'custom-tag-mouse-down-action #[(widget &rest args) "\302\303\304\211\305\"\306\"@\307 $\207" [widget args apply widget-apply widget-get :parent :children :mouse-down-action] 6 (#$ . 71154)]) #@26 Set the state of WIDGET. (defalias 'custom-variable-state-set #[(widget) "\306!\211\307N\206 \310\311 !\203\n !\202\312\313\" \314N\315\211$ \316N \317N$ \2048$\203G\315\320\321\217\203C\322\202\253\323\202\253 \324N \325N$ \204Y$\203\223\315\326\327\217\203\217 \211%@@)\330=\203p\331\202\253 \211%@@)\323=\203\213\315\332\333\217\203\207\334\202\253\323\202\253\335\202\253\323\202\253 \336N\211\203\252\315\337\340\217\203\246\334\202\253\323\202\253\341&\342\343&#.\207" [widget symbol get value comment tmp widget-value custom-get default-value default-boundp widget-get :value variable-comment nil customized-value customized-variable-comment (byte-code "\304 @!\232\205\f\n \232\207" [value tmp comment temp eval] 3) ((error)) set changed theme-value saved-variable-comment (byte-code " \232\205\n\304\305 !@!\232\207" [comment temp value symbol eval custom-variable-theme-value] 4) ((error)) user saved (byte-code "?\205 \303\n\304N@!\232\207" [comment value symbol eval standard-value] 4) ((error)) standard themed standard-value (byte-code "\303 @!\232\205\f\n\304\232\207" [value tmp comment eval nil] 3) ((error)) rogue widget-put :custom-state temp x state] 5 (#$ . 71422)]) (defalias 'custom-variable-standard-value #[(widget) "\301!\302N\207" [widget widget-value standard-value] 2]) #@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 user-init-file ("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))))) ("Reset to Saved" custom-variable-reset-saved (lambda (widget) (and (or (get (widget-value widget) 'saved-value) (get (widget-value widget) 'saved-variable-comment)) (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) (#$ . 72785)) #@90 Show the menu for `custom-variable' WIDGET. Optional EVENT is the location for the menu. (defalias 'custom-variable-action #[(widget &optional event) "\305\306\"\307=\203 \310!\207\305\306\"\311=\204\312!\210\313!\210\314\315\316\317\305\320\"!P\321\n\" #\211\2057\f!*\207" [widget completion-ignore-case custom-variable-menu event answer 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] 7 (#$ . 74635)]) #@23 Edit value of WIDGET. (defalias 'custom-variable-edit #[(widget) "\301\302\303#\210\301\304\305#\210\306!\207" [widget widget-put :custom-state unknown :custom-form edit custom-redraw] 4 (#$ . 75202)]) #@54 Edit the Lisp representation of the value of WIDGET. (defalias 'custom-variable-edit-lisp #[(widget) "\301\302\303#\210\301\304\305#\210\306!\207" [widget widget-put :custom-state unknown :custom-form lisp custom-redraw] 4 (#$ . 75413)]) #@64 Set the current value for the variable being edited by WIDGET. (defalias 'custom-variable-set #[(widget) "\306\307\"\306\310\"\306\311\"@\312!\211\313N\206\314\306\315\"&\312&!'\316(\n\317=\2038\320\321!\210\202\340\322 \323\"\211(\203U\306(\324\"b\210\320\325\306(\326\"\"\210\202\340 \327>\203\237'\330\232\203j\316'\331&!\210\332!\210\333\334\f\335\305\336\312 !!%\210 \f\337\312 !\211(!\"\210\340\f\341(C#\210\340\f\342'#\210\340\f\343'#\210\202\340'\330\232\203\256\316'\331&!\210\332!\210\333\334\f\335\305\336\312 !!%\210 \f\312 !\211(\"\210\340\f\341\336(!C#\210\340\f\342'#\210\340\f\343'#\210\344!\210\345!.\207" [widget form state child symbol set widget-get :custom-form :custom-state :children widget-value custom-set set-default :comment-widget nil hidden error "Cannot set hidden variable" widget-apply :validate :from "%s" :error (lisp mismatch) "" custom-comment-hide custom-variable-backup-value custom-push-theme theme-value user custom-quote eval put customized-value variable-comment customized-variable-comment custom-variable-state-set custom-redraw-magic comment-widget comment val] 9 (#$ . 75660)]) #@65 Set and save the value for the variable being edited by WIDGET. (defalias 'custom-variable-save #[(widget) "\306\307\"\306\310\"\306\311\"@\312!\211\313N\206\314\306\315\"(\312(!)\316*\n\317=\2038\320\321!\210\202\325\322 \323\"\211*\203V\306*\324\"b\210\320\325\f\306*\326\"#\210\202\325 \327>\203\232)\330\232\203k\316)\331(!\210\332\f\333\312 !C#\210\334\335\f\336\305\337\312 !!%\210 \f\340\312 !!\"\210\332\f\341)#\210\332\f\342)#\210\202\325)\330\232\203\251\316)\331(!\210\332\f\333\337\312 !!C#\210\334\335\f\336\305\337\312 !!%\210 \f\312 !\"\210\332\f\341)#\210\332\f\342)#\210\332\f\343\316#\210\332\f\344\316#\210\345 \210\346!\210\347!.\207" [widget form state child symbol set widget-get :custom-form :custom-state :children widget-value custom-set set-default :comment-widget nil hidden error "Cannot set hidden variable" widget-apply :validate :from "Saving %s: %s" :error (lisp mismatch) "" custom-comment-hide put saved-value custom-push-theme theme-value user custom-quote eval variable-comment saved-variable-comment customized-value customized-variable-comment custom-save-all custom-variable-state-set custom-redraw-magic comment-widget comment val] 9 (#$ . 76836)]) #@215 Restore the saved value for the variable being edited by WIDGET. This also updates the buffer to show that value. The value that was current before this operation becomes the backup value, so you can get it again. (defalias 'custom-variable-reset-saved #[(widget) "\305!\211\306N\206 \307 \310N \311N \204\f\2037\312 \313\f#\210\314!\210\315\316 \317\302 \242%\210\320\321\322\217\210\202<\323\324 \"\210\312 \325\320#\210\312 \326\320#\210\327\330\331#\210\332!,\207" [widget symbol set value comment widget-value custom-set set-default saved-value saved-variable-comment put variable-comment custom-variable-backup-value custom-push-theme theme-value user nil (byte-code " \303\n@!\"\207" [set symbol value eval] 4) ((error)) error "No saved value for %s" customized-value customized-variable-comment widget-put :custom-state unknown custom-redraw] 7 (#$ . 78072)]) #@305 Restore the standard setting for the variable being 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. (defalias 'custom-variable-reset-standard #[(widget) "\302!\211\303N\203\304!\210\202\305\306 \"\210\307 \310\311#\210\307 \312\311#\210\307 \313\311#\210\314\315 \316\317$\210\320 !\210 \321N\204? \322N\203N\307 \321\311#\210\307 \322\311#\210\323 \210\324\325\326#\210\327!)\207" [widget symbol widget-value standard-value custom-variable-backup-value 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] 6 (#$ . 78961)]) #@118 Back up the current value for WIDGET's variable. The backup value is kept in the car of the `backup-value' property. (defalias 'custom-variable-backup-value #[(widget) "\306!\211\307N\206 \310\311 !\312 !\313 !\203 \n !\202$\314\f\315\"\316 \317 C#-\207" [widget symbol get type conv value widget-value custom-get default-value custom-variable-type widget-convert default-boundp widget-get :value put backup-value] 5 (#$ . 79934)]) #@213 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. (defalias 'custom-variable-reset-backup #[(widget) "\306!\211\307N\206 \310 \311N\312\313\"\306\f! \2031\314!\210\315\316 \317\302 %\210\320\321\322\217\210\2026\323\324 \"\210\325 \326 @C#\210\325 \327 #\210\325 \330 #\210\331!\210\332!-\207" [widget symbol set value comment-widget comment widget-value custom-set set-default backup-value widget-get :comment-widget custom-variable-backup-value custom-push-theme theme-value user nil (byte-code " \n@\"\207" [set symbol value] 3) ((error)) error "No backup value for %s" put customized-value variable-comment customized-variable-comment custom-variable-state-set custom-redraw] 7 (#$ . 80382)]) (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\"&\207" [custom-face-attributes define-widget custom-face-edit checklist "Edit face attributes." :format "%t: %v" :tag "Attributes" :extra-offset 13 :button-args (:help-echo "Control whether this attribute has any effect.") :value-to-internal custom-face-edit-fix-value :match #[(widget value) "\302\303 \"\"\207" [widget value widget-checklist-match custom-face-edit-fix-value] 5] :convert-widget custom-face-edit-convert-widget :args mapcar #[(att) "\301\302\303\304\305A@\304\"\306\307\310\311@\257A@\257\207" [att group :inline t :sibling-args widget-get const :format "" :value] 10]] 22) #@112 Ignoring WIDGET, convert :bold and :italic in VALUE to new form. Also change :reverse-video to :inverse-video. (defalias 'custom-face-edit-fix-value #[(widget value) "<\203l\304\203f@A@\211\305=\203+\306 B\n\203$\307\202%\310 B\202] \311=\203D\312 B\n\203=\313\202>\310 B\202] \314=\203U\315 B\n B\202] B\n B*AA\211\204 \237\211)\207\207" [value result val key nil :italic :slant italic normal :bold :weight bold :reverse-video :inverse-video] 3 (#$ . 81961)]) #@42 Convert :args as widget types in WIDGET. (defalias 'custom-face-edit-convert-widget #[(widget) "\301\302\303\304\305\302\"\"#\210\207" [widget widget-put :args mapcar #[(arg) "\301\302\303\304\305\306\307&\207" [arg widget-convert :deactivate custom-face-edit-deactivate :activate custom-face-edit-activate :delete custom-face-edit-delete] 8] widget-get] 8 (#$ . 82462)]) #@58 Make face widget WIDGET inactive for user modifications. (defalias 'custom-face-edit-deactivate #[(widget) "\306\307\"?\2055\310!\311\306\312\"!\313!\314\211\212\fb\210\315!\210 \316\261\210\317\307 \f`\fZBB#.\207" [widget inhibit-modification-hooks inhibit-read-only value from tag widget-get :inactive custom-face-edit-attribute-tag copy-marker :from widget-value t widget-default-delete ": *\n" widget-put] 7 (#$ . 82845)]) #@58 Make face widget WIDGET inactive for user modifications. (defalias 'custom-face-edit-activate #[(widget) "\304\305\"\306\211\211:\2050\212 A@b\210`` AA\\|\210\307\305\310#\210\311\312\"\210\313 @\"\210\314 )+\207" [widget inhibit-modification-hooks inhibit-read-only inactive widget-get :inactive t widget-put nil widget-apply :create widget-value-set widget-setup] 5 (#$ . 83292)]) #@32 Remove WIDGET from the buffer. (defalias 'custom-face-edit-delete #[(widget) "\304\305\"\306\211\211\204\307!\202$ A@ A@ AA\\|\210\310\305\311#+\207" [widget inhibit-modification-hooks inhibit-read-only inactive widget-get :inactive t widget-default-delete widget-put nil] 5 (#$ . 83689)]) #@67 Returns the first :tag property in WIDGET or one of its children. (defalias 'custom-face-edit-attribute-tag #[(widget) "\303\304\"\211\305\232\204 \206*\303\306\" \204(\n\203(\307\n\211A@!\211\203 ))\207" [widget tag children widget-get :tag "" :children custom-face-edit-attribute-tag] 4 (#$ . 83994)]) (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\315#\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 :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 "PM " :sibling-args (:help-echo "OS/2 Presentation Manager.") pm) (const :format "W32 " :sibling-args (:help-echo "Windows NT/9X.") w32) (const :format "MAC " :sibling-args (:help-echo "Macintosh OS.") mac) (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 (:weight bold :height 1.2 :inherit variable-pitch))) "Face used for face tags." :group custom-faces put custom-face-tag-face face-alias] 12) #@45 Default form of displaying face definition. (custom-declare-variable 'custom-face-default-form ''selected '(#$ . 86616) :type '(choice (const all) (const selected) (const lisp)) :group 'custom-buffer :version "20.3") (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&\210\300\340\341\342\343\344\345\346\347\350\351\352\353\354& \207" [define-widget custom-face custom "Customize face." :sample-face custom-face-tag-face :help-echo "Set or reset this face." :documentation-property face-doc-string :value-create custom-face-value-create :action custom-face-action :custom-category face :custom-form nil :custom-set custom-face-set :custom-save custom-face-save :custom-reset-current custom-redraw :custom-reset-saved custom-face-reset-saved :custom-reset-standard custom-face-reset-standard :custom-standard-value custom-face-standard-value :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))] 32) #@52 Converted version of the `custom-face-all' widget. (defconst custom-face-all (widget-convert 'custom-face-all) (#$ . 87992)) (define-widget 'custom-display-unselected 'item "A display specification that doesn't match the selected display." :match 'custom-display-unselected-match) #@58 Non-nil if VALUE is an unselected display specification. (defalias 'custom-display-unselected-match #[(widget value) "\301\302 \"?\207" [value face-spec-set-match-display selected-frame] 3 (#$ . 88279)]) (define-widget 'custom-face-selected 'group "Edit the attributes of the selected display in a face specification." :args '((choice :inline t (group :tag "With Defaults" :inline t (group (const :tag "" default) (custom-face-edit :tag " Default\n Attributes")) (repeat :format "" :inline t (group custom-display-unselected sexp)) (group (sexp :format "") (custom-face-edit :tag " Overriding\n Attributes")) (repeat :format "" :inline t sexp)) (group :tag "No Defaults" :inline t (repeat :format "" :inline t (group custom-display-unselected sexp)) (group (sexp :format "") (custom-face-edit :tag "\n Attributes")) (repeat :format "" :inline t sexp))))) #@57 Converted version of the `custom-face-selected' widget. (defconst custom-face-selected (widget-convert 'custom-face-selected) (#$ . 89141)) #@269 Return a canonicalized version of SPEC using. 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. (defalias 'custom-filter-face-spec #[(spec filter-index &optional default-filter) "\301\302\"\207" [spec mapcar #[(entry) "@A@<\203A@\202A\306\n\203M\n\211A@\n\211A@\f\2368\2061 \211\n\203>\n !\202? \211 B\f B,\202 +D\207" [entry filtered-attrs unfiltered-attrs tests attr pre-filtered-value nil filter-index custom-face-attributes default-filter filter filtered-value] 4]] 3 (#$ . 89288)]) #@111 Return SPEC changed as necessary for editing by the face customization widget. SPEC must be a full face spec. (defalias 'custom-pre-filter-face-spec #[(spec) "\301\302\"\207" [spec custom-filter-face-spec 2] 3 (#$ . 89988)]) #@69 Return the customized SPEC in a form suitable for setting the face. (defalias 'custom-post-filter-face-spec #[(spec) "\301\302\"\207" [spec custom-filter-face-spec 3] 3 (#$ . 90220)]) #@57 Create a list of the display specifications for WIDGET. (defalias 'custom-face-value-create #[(widget) "\306\307\"\310\306\311\"\306\312\"\306\313\"`\306\314\"\306\315\"@AB \204.\316@!C\317=\203Z \n\203>\320\202?\321\261\210\322\323\"BBB\324 \325\261\210\326\307B#\202 c\210\327 `#\210C\330=\203p\324c\210\202\200\331\332 \"\203}\333c\210\202\200\334c\210\322\335\336\337\340@\312\341&BBB\324c\210\322\342\343\344\345\346\347\350\351\352\f\353=?& BBB\325c\210\322\354\310#D\326\355D#\210DBBB)\326\307B#\210\356\357\"\210\f\353=\204\372@\360NE\322\361\362\311E\206\347\363&F\326\364F#\210FABA*\f\353=\204\306\365\"\366=\203 \367!\210\370!\210h\371=\204\325c\210\f\353=?\205\372\373!\210\374!\210\306\375\"\2047\326\375G#\210\376!\211@\377N\206c@\201NN\206c@\201ON\206c\201P\201Q@\201R \"DCH\306\375\"I\306\201S\"J\310K\201T@H\201R #\204\226\201P\201U@\201R \"DCH\201VH!H\322I\201W=\203\314\201XL\201YH#\203\314J\203\306\201Z\201[J\"\210\201L\202\373I\201\\=\204\351\201XM\201YH#\203\351\201M\202\373J\203\370\201Z\201[J\"\210\201]\311H$K\201^!\210KABA\326\201_A#\210-\372\201`!.\207" [widget prefix is-last begin state tag widget-get :buttons nil :value :tag :custom-state :custom-last :custom-prefix prin1-to-string tree " `--- " " |--- " widget-create-child-and-convert custom-browse-face-tag " " "\n" widget-put widget-specify-sample face string-match "face\\'" ":" " face: " item :format "(%{%t%})" :sample-face "sample" visibility :help-echo "Hide or show this face." :on "Hide Face" :off "Show Face" :action custom-toggle-parent hidden custom-magic :custom-magic widget-default-format-handler 104 face-comment custom-comment :parent "" :comment-widget :custom-level 1 custom-add-parent-links custom-add-see-also 10 message "Creating face editor..." custom-load-widget :custom-form widget-value customized-face symbol children buttons custom-buffer-style magic comment comment-widget custom-face-default-form spec form indent edit custom-face-selected custom-face-all saved-face face-defface-spec t custom-face-attributes-get selected-frame :indent face-spec-match-p face-attr-construct custom-pre-filter-face-spec selected widget-apply :match insert-char 32 lisp sexp custom-face-state-set :children "Creating face editor...done"] 14 (#$ . 90411)]) #@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 user-init-file ("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)))) ("Reset to Saved" custom-face-reset-saved (lambda (widget) (or (get (widget-value widget) 'saved-face) (get (widget-value widget) 'saved-face-comment))))) (("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) (#$ . 92832)) #@50 Edit selected attributes of the value of WIDGET. (defalias 'custom-face-edit-selected #[(widget) "\301\302\303#\210\301\304\305#\210\306!\207" [widget widget-put :custom-state unknown :custom-form selected custom-redraw] 4 (#$ . 94308)]) #@45 Edit all attributes of the value of WIDGET. (defalias 'custom-face-edit-all #[(widget) "\301\302\303#\210\301\304\305#\210\306!\207" [widget widget-put :custom-state unknown :custom-form all custom-redraw] 4 (#$ . 94555)]) #@54 Edit the Lisp representation of the value of WIDGET. (defalias 'custom-face-edit-lisp #[(widget) "\301\302\303#\210\301\304\305#\210\306!\207" [widget widget-put :custom-state unknown :custom-form lisp custom-redraw] 4 (#$ . 94787)]) #@26 Set the state of WIDGET. (defalias 'custom-face-state-set #[(widget) "\306!\211\307N\310\211 \311N \312N \204\f\203*\f\n\232\203&\313\202\314\202 \315N \316N \204:\f\203j\f\n\232\203f \317N\211@@)\320=\203Q\321\202 \317N\211@@)\314=\203b\314\202\322\202\314\202 \323N\203~\n\310\232\203z\324\202\314\202\325\211\325=\204\220 \326N\203\220\314\327\330#-\207" [widget symbol comment tmp temp x widget-value face-comment nil customized-face customized-face-comment set changed saved-face saved-face-comment theme-face user saved themed face-defface-spec standard rogue face-modified widget-put :custom-state state] 5 (#$ . 95030)]) #@86 Show the menu for `custom-face' WIDGET. Optional EVENT is the location for the menu. (defalias 'custom-face-action #[(widget &optional event) "\306\307\"\310=\203 \311!\207\312\306\313\"\314\315\316\n!P\317 \"\f#\211\205( !+\207" [widget completion-ignore-case symbol custom-face-menu event answer widget-get :custom-state hidden custom-toggle-hide t :value widget-choose "Operation on " custom-unlispify-tag-name custom-menu-filter] 6 (#$ . 95712)]) #@49 Make the face attributes in WIDGET take effect. (defalias 'custom-face-set #[(widget) "\306!\307\310\"@\311\306\n!!\307\312\"\306\f!\211\313\232\203%\314\315\f!\210\316 \317 #\210\320\321 \322\323 %\210\324 !\203A\325 \"\210\202F\325 \326\"\210\316 \327 #\210\316 \330 #\210\331!\210\332!-\207" [widget symbol child value comment-widget comment widget-value widget-get :children custom-post-filter-face-spec :comment-widget "" nil custom-comment-hide put customized-face custom-push-theme theme-face user set face-spec-choose face-spec-set ((t :foreground unspecified)) customized-face-comment face-comment custom-face-state-set custom-redraw-magic] 7 (#$ . 96179)]) #@49 Save in `.emacs' the face attributes in WIDGET. (defalias 'custom-face-save #[(widget) "\306!\307\310\"@\311\306\n!!\307\312\"\306\f!\211\313\232\203%\314\315\f!\210\316\317 \320\321 %\210\322 !\203;\323 \"\210\202@\323 \324\"\210\307\325\"\326=\204O\327 \330 #\210\327 \331\314#\210\327 \332 #\210\327 \333\314#\210\327 \334 #\210\335 \210\336!\210\337!-\207" [widget symbol child value comment-widget comment widget-value widget-get :children custom-post-filter-face-spec :comment-widget "" nil custom-comment-hide custom-push-theme theme-face user set face-spec-choose face-spec-set ((t :foreground unspecified)) :custom-state standard put saved-face customized-face face-comment customized-face-comment saved-face-comment custom-save-all custom-face-state-set custom-redraw-magic] 7 (#$ . 96867)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias custom-face-save-command custom-face-save nil make-obsolete "22.1"] 4) #@50 Restore WIDGET to the face's default attributes. (defalias 'custom-face-reset-saved #[(widget) "\306!\307\310\"@ \311N \312N\307\313\" \204#\f\204#\314\315!\210\316 \317\320#\210\316 \321\320#\210\322\323 \324\325 %\210\326 \"\210\316 \327\f#\210\330\n \"\210\330 \f\206N\331\"\210\332!\210\333!-\207" [widget symbol child value comment comment-widget widget-value widget-get :children saved-face saved-face-comment :comment-widget error "No saved value for this face" put customized-face nil customized-face-comment custom-push-theme theme-face user set face-spec-set face-comment widget-value-set "" custom-face-state-set custom-redraw-magic] 6 (#$ . 97829)]) (defalias 'custom-face-standard-value #[(widget) "\301!\302N\207" [widget widget-value face-defface-spec] 2]) #@186 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. (defalias 'custom-face-reset-standard #[(widget) "\305!\306\307\"@ \310N\306\311\" \204\312\313!\210\314 \315\316#\210\314 \317\316#\210\320\321 \322\323$\210\324 \"\210\325 !\210 \326N\204C \327N\203R\314 \326\316#\210\314 \327\316#\210\330 \210\314 \331\316#\210\332\n\333\334\335 \316\"DC!\"\210\332\f\336\"\210\337!\210\340!,\207" [widget symbol child value comment-widget widget-value widget-get :children face-defface-spec :comment-widget error "No standard setting for this face" put customized-face nil customized-face-comment custom-push-theme theme-face user reset face-spec-set custom-theme-recalc-face saved-face saved-face-comment custom-save-all face-comment widget-value-set custom-pre-filter-face-spec t custom-face-attributes-get "" custom-face-state-set custom-redraw-magic] 7 (#$ . 98623)]) #@49 History of input to `widget-face-prompt-value'. (defvar widget-face-prompt-value-history nil (#$ . 99638)) (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 #[(widget value) "\301!\207" [value facep] 2] :complete-function #[nil "\300\301!\207" [lisp-complete-symbol facep] 2 nil nil] :prompt-match 'facep :prompt-history 'widget-face-prompt-value-history :validate #[(widget) "\301\302!!?\205\303\304\305\306\302!\"#\210\207" [widget facep widget-value widget-put :error format "Invalid face: %S"] 7]) (defalias 'widget-face-sample-face-get #[(widget) "\302!\303 !\203 \202\304)\207" [widget value widget-value facep default] 2]) #@43 Update the sample, and notify the parent. (defalias 'widget-face-notify #[(widget child &optional event) "\303\304\305\"\306\307\310\"#\210\311 \n#\207" [widget child event overlay-put widget-get :sample-overlay face widget-apply :sample-face-get widget-default-notify] 6 (#$ . 100443)]) (define-widget 'hook 'list "An Emacs Lisp hook." :value-to-internal #[(widget value) "\203\f9\203\fC\207\207" [value] 1] :match #[(widget value) "9\206 \302 \"\207" [value widget widget-group-match] 3] :set #[(symbol value) "\304\211\203\n@\305 !\203\306 \"\210\nA\211\204*\304\207" [value elt #:--cl-dolist-temp-- symbol nil fboundp add-hook] 4] :convert-widget 'custom-hook-convert-widget :tag "Hook") (defalias 'custom-hook-convert-widget #[(widget) "\304\305\"\306 \203\307\310\311\312\313 \"BBB\nD\202\nC\314\315 #\210+\207" [widget options other args widget-get :options (editable-list :inline t :entry-format "%i %d%v" (function :format " %v")) checklist :inline t mapcar #[(entry) "\301D\207" [entry function-item] 2] widget-put :args] 6]) (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) (defalias 'custom-group-link-action #[(widget &rest ignore) "\301\302!!\207" [widget customize-group widget-value] 3]) #@171 Face used for group tags. The first member is used for level 1 groups, the second for level 2, and so forth. The remaining group tags are shown with `custom-group-tag'. (custom-declare-variable 'custom-group-tag-faces 'nil '(#$ . 101947) :type '(repeat face) :group 'custom-faces) (byte-code "\300\301\302\303\304\305%\210\306\307\310\301#\210\300\311\312\313\304\305%\210\306\314\310\311#\210\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352&\207" [custom-declare-face custom-group-tag-1 ((((class color) (background dark)) (:foreground "pink" :weight bold :height 1.2 :inherit variable-pitch)) (((min-colors 88) (class color) (background light)) (:foreground "red1" :weight bold :height 1.2 :inherit variable-pitch)) (((class color) (background light)) (:foreground "red" :weight bold :height 1.2 :inherit variable-pitch)) (t (:weight bold))) "Face used for group tags." :group custom-faces put custom-group-tag-face-1 face-alias custom-group-tag ((((class color) (background dark)) (:foreground "light blue" :weight bold :height 1.2)) (((min-colors 88) (class color) (background light)) (:foreground "blue1" :weight bold :height 1.2)) (((class color) (background light)) (:foreground "blue" :weight bold :height 1.2)) (t (:weight bold))) "Face used for low level group tags." custom-group-tag-face 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-save custom-group-save :custom-reset-current custom-group-reset-current :custom-reset-saved custom-group-reset-saved :custom-reset-standard custom-group-reset-standard :custom-menu custom-group-menu-create] 30) (defalias 'custom-group-sample-face-get #[(widget) "\302\303\"S 8\206 \304\207" [widget custom-group-tag-faces widget-get :custom-level custom-group-tag] 3]) (define-widget 'custom-group-visibility 'visibility "An indicator and manipulator for hidden group contents." :create 'custom-group-visibility-create) (defalias 'custom-group-visibility-create #[(widget) "\302!\211\203 \303c\210)\304!\207" [widget visible widget-value "--------" widget-default-create] 3]) #@106 Return SYMBOL's custom group members. If GROUPS-ONLY non-nil, return only those members that are groups. (defalias 'custom-group-members #[(symbol groups-only) "\204 \305N\207\306 \305N\306\211\203*\f@\211A@\305=\203# \nB\fA\211\204*\n\237)\207" [groups-only symbol members entry #1=#:--cl-dolist-temp-- custom-group nil] 3 (#$ . 104347)]) #@60 Insert a customize group for WIDGET in the current buffer. (defalias 'custom-group-value-create #[(widget) "\306\307\"\310=\204 \311!\210\306\307\"\306\312\"\306\313\"\306\314\"\306\315\"\316!@\317@A\320=\2057B\"CA\320=\203w \310=\203wC\204R\321!\203w\322 !\210\323\324\315\325$\fB\326c\210\323\327\"\fB\330 \331\261\210\332\314\f#\202A\320=\203\242\333CG!\203\242\322 !\210\334c\210\323\327\"\fB\330 \331\261\210\332\314\f#\202A\320=\203m\322 !\210\333CG!\203\321\322 !\210\334c\210\323\327\"\fB\330 \331\261\210\332\314\f#\202\323\324\315\335$\fB\336c\210\323\327\"\fB\330 \331\261\210\332\314\f#\210\337\340!\210\341CDE#C\306\342\"F\343@F\"G\306\344\"\203\345\202\346H HP\347\211IJC\203\\C@JCAC\323JA@\350\315\351J@!\342G\312\nT\344C?\352J@\313 &IBI\202%\332\353\354I!#\210.\337\355!\202 \310=\203\367A\356=\204\206\357\360K\nS_\"\210\326c\210`L c\210\361L`#\210)\362c\210A\356=\203\254\323\363\315\364@%\fB\202\274\323\365\366\367\370\371 \310=?&\fB\372c\210\323\373\347#M\332\374M#\210M\fB)\332\314\f#\210A\356=\203\354\n\375V\203\354\332\376\377#\210\201S\201T\"\202\n\375=\203 \201U\201V\"\203 \331c\210\357\360K\nS_\"\210\201Wc\210`N c\210\361N`#\210)\362c\210A\356=\204M\201Xc\210\323\201Y\366\201Z\370\371 \310=?&\fB\330c\210\357\201[\201\\iZK\n_Z\"\210\201]c\210\323\373\201^\377\347%M\332\374M#\210M\fB)\332\314\f#\210\201S\201T\"\210\201_\201`K\n_\360\"\"\210\337\340!\210\341COP#C\306\342\"F\343@F\"GCGQ\377R\201a\201bC\"I\337\201c!\210\201d\201eI\"\210\337\201f!\210\332\353I#\210\201g!\210\337\201h!\210.\331c\210\357\360K\nS_\"\210\201i\306\315\"\201j\261\210\357\201[\201kiZK\n_Z\"\210\201lc.\207" [widget state level prefix buttons tag widget-get :custom-state hidden custom-load-widget :custom-level :custom-prefix :buttons :tag widget-value custom-group-members tree custom-unloaded-widget-p custom-browse-insert-prefix widget-create-child-and-convert custom-browse-visibility "+" "-- " custom-browse-group-tag " " "\n" widget-put zerop "[ ]-- " "-" "-\\ " message "Creating group..." custom-sort-items :custom-prefixes custom-prefix-add :custom-last " " " | " nil :group custom-unlispify-tag-name :value :children reverse "Creating group...done" links insert-char 32 widget-specify-sample " group: " custom-group-link "Go to Group" custom-group-visibility :help-echo "Show members of this group." :action custom-toggle-parent " \n" custom-magic :custom-magic 1 :documentation-indent 0 symbol custom-buffer-style custom-browse-only-groups members custom-browse-sort-alphabetically custom-browse-order-groups prefixes custom-prefix-list extra-prefix children entry custom-buffer-indent begin magic start custom-buffer-sort-alphabetically custom-buffer-order-groups length count widget-default-format-handler 104 custom-add-parent-links "Go to parent group:" "/- " "--------" visibility "Hide members of this group." 45 76 "\\\n" :indent custom-add-see-also make-string mapcar #[(entry) "\306\307!\210\310\311\312_ \245\"\210T\313\n A@\314\n\315\316 @!\317\f\320 T\321 @&\fh\322=\2040\306\307!\210\207" [count length widget entry custom-prefix-list level widget-insert "\n" message "Creating group members... %2d%%" 100.0 widget-create-child-and-convert :group :tag custom-unlispify-tag-name :custom-prefixes :custom-level :value 10] 13] "Creating group magic..." mapc custom-magic-reset "Creating group state..." custom-group-state-update "Creating group... done" "\\- " " group end " 75 "/\n"] 18 (#$ . 104706)]) #@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 user-init-file ("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)))) ("Reset to Saved" 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) (#$ . 108361)) #@87 Show the menu for `custom-group' WIDGET. Optional EVENT is the location for the menu. (defalias 'custom-group-action #[(widget &optional event) "\305\306\"\307=\203 \310!\207\311\312\313\314\305\315\"!P\316\n\" #\211\205&\f!*\207" [widget completion-ignore-case custom-group-menu event answer widget-get :custom-state hidden custom-toggle-hide t widget-choose "Operation on " custom-unlispify-tag-name :value custom-menu-filter] 7 (#$ . 109504)]) #@44 Set changes in all modified group members. (defalias 'custom-group-set #[(widget) "\302\303\"\304\305 \")\207" [widget children widget-get :children mapc #[(child) "\301\302\"\303=\205 \304\305\"\207" [child widget-get :custom-state modified widget-apply :custom-set] 3]] 3 (#$ . 109966)]) #@34 Save all modified group members. (defalias 'custom-group-save #[(widget) "\302\303\"\304\305 \")\207" [widget children widget-get :children mapc #[(child) "\301\302\"\303>\205 \304\305\"\207" [child widget-get :custom-state (modified set) widget-apply :custom-save] 3]] 3 (#$ . 110267)]) #@35 Reset all modified group members. (defalias 'custom-group-reset-current #[(widget) "\302\303\"\304\305 \")\207" [widget children widget-get :children mapc #[(child) "\301\302\"\303=\205 \304\305\"\207" [child widget-get :custom-state modified widget-apply :custom-reset-current] 3]] 3 (#$ . 110566)]) #@42 Reset all modified or set group members. (defalias 'custom-group-reset-saved #[(widget) "\302\303\"\304\305 \")\207" [widget children widget-get :children mapc #[(child) "\301\302\"\303>\205 \304\305\"\207" [child widget-get :custom-state (modified set) widget-apply :custom-reset-saved] 3]] 3 (#$ . 110878)]) #@50 Reset all modified, set, or saved group members. (defalias 'custom-group-reset-standard #[(widget) "\302\303\"\304\305 \")\207" [widget children widget-get :children mapc #[(child) "\301\302\"\303>\205 \304\305\"\207" [child widget-get :custom-state (modified set saved) widget-apply :custom-reset-standard] 3]] 3 (#$ . 111199)]) #@15 Update magic. (defalias 'custom-group-state-update #[(widget) "\306\307\"\310=\204C\306\311\"\312\313 \" \314\f\203<\f@@\211\310=\2045\n>\2035\315\2028\fA)\202\316\307 #\210,\317!\207" [widget children states custom-magic-alist magics found widget-get :custom-state hidden :children mapcar #[(child) "\301\302\"\207" [child widget-get :custom-state] 3] standard nil widget-put custom-magic-reset magic] 5 (#$ . 111540)]) #@1488 File used for storing customization information. The default is nil, which means to use your init file as specified by `user-init-file'. If the value is not nil, it should be an absolute file name. You can set this option through Custom, if you carefully read the last paragraph below. However, usually it is simpler to write something like the following in your init file: (setq custom-file "~/.emacs-custom.el") (load custom-file) Note that both lines are necessary: the first line tells Custom to save all customizations in this file, but does not load it. When you change this variable outside Custom, look in the previous custom file (usually your init file) for the forms `(custom-set-variables ...)' and `(custom-set-faces ...)', and copy them (whichever ones you find) to the new custom file. This will preserve your existing customizations. If you save this option using Custom, Custom will write all currently saved customizations, including the new one for this option itself, into the file you specify, overwriting any `custom-set-variables' and `custom-set-faces' forms already present in that file. It will not delete any customizations from the old custom file. You should do that manually if that is what you want. You also have to put something like `(load "CUSTOM-FILE") in your init file, where CUSTOM-FILE is the actual name of the file. Otherwise, Emacs will not load the file when it starts up, and hence will not set `custom-file' to that file either. (custom-declare-variable 'custom-file 'nil '(#$ . 111994) :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 om \"More\" (or position point there and press RETURN)\nif only the first line of the docstring is shown.")) :group 'customize) #@49 Return the file name for saving customizations. (defalias 'custom-file #[nil "\304\2061 \n\305=\203\306\202\307\211\204/\310 !\204)\n\311=\203-\310\306!\203-\312\313!\210  *!\207" [custom-file user-init-file system-type default-init-file file-chase-links ms-dos "~/_emacs" "~/.emacs" file-exists-p windows-nt error "Saving settings from \"emacs -q\" would overwrite existing customizations"] 5 (#$ . 113836)]) #@43 Save all customizations in `custom-file'. (defalias 'custom-save-all #[nil "\204\f \203\f\306\307!\210\300  \205\310\311\312\300 !!\313Q\fB\314\n!r\315 \206.\316\n!)q\210\317=\204;\317 \210\315\320 \210\321 \210)\315\322 \210) ?\205T\323p!,\207" [custom-file init-file-had-error filename recentf-mode recentf-exclude old-buffer error "Cannot save customizations; init file was not fully loaded" "\\`" regexp-quote recentf-expand-file-name "\\'" find-buffer-visiting t find-file-noselect emacs-lisp-mode custom-save-variables custom-save-faces save-buffer kill-buffer find-file-visit-truename major-mode inhibit-read-only file-precious-flag] 4 (#$ . 114265)]) #@60 Save all user options which have been set in this session. (defalias 'customize-save-customized #[nil "\300\301!\210\302 \207" [mapatoms #[(symbol) "\305N\306N\307N\310N\211\203(\311\312\f#\210\313\314\315\316 %\210\311\305\317#\210 \203@\311\320 #\210\313\321\315\316 %\210\311\306\317#\210 \203P\311\322 #\210\311\310\317#\210\n\205_\311\323\n#\210\311\307\317#,\207" [symbol variable-comment face-comment value face 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] 7] custom-save-all] 2 (#$ . 114949) nil]) #@216 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. (defalias 'custom-save-delete #[(symbol) "eb\210\303\304!\204m\204\212\305\306 !\210)\307\310\311\215\210\203#b\202Dd\312\212db\210\313\314d\315Ze]\316#\210\317\320\307\312#\203@\321 )\nb*)\207" [first case-fold-search pos forward-comment 1 forward-sexp buffer-size nil found (byte-code "\304\305!\204`\306\307\310\217<\203#@\n=\203# `|\210 \204#`*\202" [sexp start symbol first forward-comment 1 nil (byte-code "\300p!\207" [read] 2) ((end-of-file (byte-code "\300\301\302\"\207" [throw found nil] 3)))] 4) t search-backward "\n\f" 3000 move search-forward "Local Variables:" line-beginning-position] 4 (#$ . 115648)]) #@49 Save all customized variables in `custom-file'. (defalias 'custom-save-variables #[nil "\212\306\307!\210p\310\311\312\"\313\314\315!\210\316 A\317\"n\204 \320\321!\210\320\322!\210 \313\211\203\f@\211\323N\242 \324N \325N\326 !?\205K\327 !\206K \330N\331= \332N%&'(&\313)\211*\203\212*@\211)9\203\201\333)!\204\201\334\335)\"\210\336)&\"&*A\211*\204b*(\203\230(@\337=\204\247 \204\247(\204\372 \324N\203\372n\204\257\320\321!\210\320\340!\210\341 !\210\320\342!\210\341'@!\210%\204\317&\204\317 \203\366\320\342!\210\341%!\210&\204\341 \203\366\320\342!\210\341&!\210 \203\366\320\342!\210\341 !\210\320\343!\210-\fA\211\204,*n\203 \320\342!\210\320\343!\210\344\321!?\205\320\321!,\207" [sort-fold-case saved-list standard-output symbol #1=#:--cl-dolist-temp-- comment custom-save-delete custom-set-variables make-list 1 0 nil mapatoms #[(symbol) "\303N\205\304N\203\304N\211@@)\305=\205\nC\244\207" [symbol x saved-list saved-value theme-value user] 3] 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 " " ")" looking-at now requests value spec request #2=#:--cl-dolist-temp--] 7 (#$ . 116514)]) #@45 Save all customized faces in `custom-file'. (defalias 'custom-save-faces #[nil "\212\306\307!\210\306\310!\210p\311\312\313\"\314\315\316!\210\317 A\320\"\321 >\203)\321\322\321 \"Bn\2041\323\324!\210\323\325!\210 \314\211\203\301\f@\211\326N\242 \327N \330N\206X\331 !?\205X \332N?? \333N\"#\211$\203o$@\334=\204~ \204~$\204\271 \327N\203\271n\204\206\323\324!\210\323\335!\210\336 !\210\323\337!\210\336#!\210\"\204\240 \203\265\323\337!\210\336\"!\210 \203\265\323\337!\210\336 !\210\323\340!\210,\fA\211\204=*n\203\312\323\337!\210\323\340!\210\341\324!?\205\330\323\324!,\207" [sort-fold-case saved-list standard-output symbol #1=#:--cl-dolist-temp-- comment custom-save-delete custom-reset-faces custom-set-faces make-list 1 0 nil mapatoms #[(symbol) "\302N\205\303N\242@\304=\205 C\244\207" [symbol saved-list saved-face theme-face user] 2] 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 " " ")" looking-at now value spec] 6 (#$ . 118098)]) #@34 Maximum nesting in custom menus. (custom-declare-variable 'custom-menu-nesting '2 '(#$ . 119433) :type 'integer :group 'custom-menu) #@69 Ignoring WIDGET, create a menu entry for customization face SYMBOL. (defalias 'custom-face-menu-create #[(widget symbol) "\301\302!\303\304DD\305#\207" [symbol vector custom-unlispify-menu-entry customize-face quote t] 5 (#$ . 119572)]) #@73 Ignoring WIDGET, create a menu entry for customization variable SYMBOL. (defalias 'custom-variable-menu-create #[(widget symbol) "\302N\211<\204\f C \203\303 \304\"\203\305 \304#\202*\306\307!\310\311DD\312#)\207" [symbol type custom-type widget-get :custom-menu widget-apply vector custom-unlispify-menu-entry customize-variable quote t] 6 (#$ . 119817)]) (byte-code "\300\301\302N\303\304#\207" [widget-put boolean widget-type :custom-menu #[(widget symbol) "\301\302!\303\304DD\305\306\307&\207" [symbol vector custom-unlispify-menu-entry customize-variable quote :style toggle :selected] 7]] 4) #@70 Ignoring WIDGET, create a menu entry for customization group SYMBOL. (defalias 'custom-group-menu-create #[(widget symbol) "\301\302\"\303\304\305\306\307\310\311DDDC\312BBEE\207" [symbol custom-unlispify-menu-entry t :filter lambda (&rest junk) let* menu custom-menu-create quote ((if (consp menu) (cdr menu) menu))] 9 (#$ . 120438)]) #@103 Create menu for customization group SYMBOL. The menu is in a format applicable to `easy-menu-define'. (defalias 'custom-menu-create #[(symbol) "\306\307\310 !\311\312 DD\313#\314\303!\203 \315Y\203I\316 !\210 \317NG\fW\203I\320 \"\321 \317N#\310 \313\"\n\322\323\324\"*BBB\202J\n*\207" [deactivate-mark symbol item custom-menu-nesting widget-menu-max-size custom-prefix-list nil vector custom-unlispify-menu-entry customize-group quote t boundp 0 custom-load-symbol custom-group custom-prefix-add custom-sort-items "--" mapcar #[(entry) "\301A@<\203A@\202A@C\302@#\207" [entry widget-apply :custom-menu] 4] custom-menu-sort-alphabetically custom-menu-order-groups members] 6 (#$ . 120783)]) #@220 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'. (defalias 'customize-menu-create #[(symbol &optional name) "\204\302\303\304\305\306\307\310\311 DDDC\312BBEE\207" [name symbol "Customize" :filter lambda (&rest junk) let menu custom-menu-create quote ((if (consp menu) (cdr menu) menu))] 9 (#$ . 121506)]) #@68 Invoke button at POS, or refuse to allow editing of Custom buffer. (defalias 'Custom-no-edit #[(pos &optional event) "\300\301!\207" [error "You can't edit this part of the Custom buffer"] 2 (#$ . 121993) "@d"]) #@68 Invoke button at POS, or refuse to allow editing of Custom buffer. (defalias 'Custom-newline #[(pos &optional event) "\303\301\"\211\203\304 \n\"\202\305\306!)\207" [pos button event get-char-property widget-apply-action error "You can't edit this part of the Custom buffer"] 4 (#$ . 122211) "@d"]) #@37 Menu used in customization buffers. (defvar Custom-mode-menu nil (#$ . 122522)) (byte-code "\301\302\303\304\305\306!\307BB$\207" [custom-mode-map easy-menu-do-define Custom-mode-menu "Menu used in customization buffers." "Custom" customize-menu-create customize (["Set" Custom-set t] ["Save" Custom-save t] ["Undo Edits" Custom-reset-current t] ["Reset to Saved" Custom-reset-saved t] ["Erase Customization" Custom-reset-standard t] ["Info" (info "(emacs)Easy Customization") t])] 7) #@62 Keymap used inside editable fields in customization buffers. (defvar custom-field-keymap (byte-code "\302!\303 \304\305#\210\303 \306\307#\210 )\207" [widget-field-keymap map copy-keymap define-key "" Custom-set "" Custom-save] 4) (#$ . 123014)) (byte-code "\301\302\303N\304#\207" [custom-field-keymap widget-put editable-field widget-type :keymap] 4) #@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 #[nil "\212eb\210\302\303\304\305#\205\306`\300\"\307\310\"\227\311 !*)\207" [button parent search-forward "\nGo to parent group: " nil t get-char-property widget-get :tag customize-group] 4 (#$ . 123381) nil]) #@40 Hook called when entering Custom mode. (custom-declare-variable 'custom-mode-hook 'nil '(#$ . 123746) :type 'hook :group 'custom-buffer) (defalias 'custom-state-buffer-message #[(widget) "\301\211\302\"\303\"\304=\205\305\306!\207" [widget widget-get :parent :custom-state modified message "To install your edits, invoke [State] and choose the Set operation"] 4]) #@916 Major mode for editing customization buffers. The following commands are available: \Move to next button, link or editable field. \[widget-forward] Move to previous button, link or editable field. \[advertised-widget-backward] \Complete content of editable text field. \[widget-complete] \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 #[nil "\306 \210\307\310\311\n!\210\312 !\210\313\314!\210\313\315!\210\313\304!\210\316\313\317!\210 \313\320!\210\321\313\322!\210\313\323!\210 !\203\\\313\324!\210\325\313\326!\210\325\313\327!\210\325\313\330!\210\325\331\332\333\334\321$\210\335\336!\207" [major-mode mode-name custom-mode-map Custom-mode-menu widget-documentation-face custom-button kill-all-local-variables custom-mode "Custom" use-local-map easy-menu-add make-local-variable custom-options custom-local-buffer custom-documentation widget-button-face widget-button-click-moves-point t widget-button-pressed-face widget-mouse-face widget-push-button-prefix "" widget-push-button-suffix widget-link-prefix widget-link-suffix add-hook widget-edit-functions custom-state-buffer-message nil run-mode-hooks custom-mode-hook custom-button-pressed custom-button-mouse custom-raised-buttons] 5 (#$ . 124120)]) (byte-code "\302\303\304\305#\210\306\307\211\203 @\310\311\"\210 A\211\204*\312\313!\207" [regexp #:--cl-dolist-temp-- put custom-mode mode-class special ("^No user option defaults have been changed since Emacs " "^Invalid face:? " "^No \\(?:customized\\|rogue\\|saved\\) user options" "^No customizable items matching " "^There are unset changes" "^Cannot set hidden variable" "^No \\(?:saved\\|backup\\) value for " "^No standard setting known for " "^No standard setting for this face" "^Saving settings from \"emacs -q\" would overwrite existing customizations") nil add-to-list debug-ignored-errors provide cus-edit] 4)