;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:37:39 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/cus-edit.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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\330\326%\210\321\341\303\342\330\326%\210\321\343\303\344\330\326%\210\321\345\303\346\330\322%\210\321\347\303\350\333\351\330\345&\210\321\352\303\353\330\345\330\354&\210\321\355\303\356\330\322%\210\321\357\303\360\330\322%\210\321\361\303\362\330\357%\210\321\363\303\364\330\361\330\354&\210\321\365\303\366\330\361%\210\321\367\303\370\330\357%\210\321\371\303\372\330\357%\210\321\373\303\374\330\322%\210\321\375\303\376\330\373%\210\321\377\303\201@\330\373%\210\321\201A\303\201B\330\373%\210\321\201C\303\201D\330\373%\210\321\354\303\201E\330\322%\210\321\201F\303\201G\330\354%\210\321\201H\303\201I\330\354%\210\321\201J\303\201K\330\354%\210\321\201L\303\201M\333\201N\330\354&\210\321\201O\303\201P\330\322%\210\321\201Q\303\201R\333\201S\330\201O&\210\321\201T\303\201U\330\201O%\210\321\201V\303\201W\330\201O%\210\321\201X\303\201Y\330\201O%\210\321\201Z\303\201[\330\201O%\210\321\201\\\303\201]\330\201O\330\326&\210\321\201^\303\201_\330\201O%\210\321\201`\303\201a\330\201O%\210\321\201b\303\201c\330\322%\210\321\201d\303\201e\330\322%\210\321\201f\303\201g\330\322%\210\321\201h\303\201i\330\201f%\210\321\201j\303\201k\330\322%\210\321\201l\303\201m\330\322%\210\321\201n\303\201o\330\322%\210\321\201p\303\201q\330\322%\210\321\201r\303\201s\330\322%\210\321\317\201t\201u\324\201v\324\201w\201x\201y\330\201n& \210\321\201z\303\201{\330\317\330\201j&\210\321\201|\303\201}\201x\201y\330\317&\210\321\201~\303\201\201x\201y\330\317&\210\321\201\200\303\201\201\201x\201y\330\317&\210\321\201\202\303\201\203\330\331%\210\321\201\204\303\201\205\333\201\206\330\201J&\210\321\201\207\303\201\210\330\326%\210\321\201\211\303\201\212\330\201O%\210\321\201\213\303\201\214\330\326%\210\321\201\215\303\201\216\330\326%\210\321\201\217\303\201\220\330\201O%\210\321\201\221\303\201\222\330\352%\210\321\201\223\303\201\224\330\201O%\210\321\201\225\303\201\226\330\201O%\210\321\201\227\303\201\230\330\201J%\210\321\201\231\303\201\232\330\354%\210\321\201\233\303\201\234\330\201O%\210\321\201\235\303\201\236\330\201O%\210\321\341\303\201\237\330\201O%\210\321\201\240\303\201\241\330\201O%\210\321\201\242\303\201\243\330\201d%\210\321\201\244\303\201\245\330\352%\210\321\201\246\303\201\247\330\201\\%\210\321\201\250\303\201\251\330\201O%\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." mouse "Mouse support." outlines "Support for hierarchical outlining." external "Interfacing to external utilities." bib "Code related to the `bib' bibliography processor." "Bibliography" 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." c "Support for the C language and related languages." 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." 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." 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." 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." (custom-manual "(elisp)Customization") (url-link :tag "(Old?) Development Page" "http://www.dina.kvl.dk/~abraham/custom/") :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." alloc "Storage allocation and gc for GNU Emacs Lisp interpreter." "Storage Allocation" undo "Undoing changes in buffers." modeline "Content of the modeline." fill "Indenting and filling text." 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 "Controling the behaviour of the minibuffer." keyboard "Input from the keyboard." "Input from the mouse." menu "Input from the menus." auto-save "Preventing accidential loss of data." processes-basics "Basic stuff dealing with processes." mule "MULE Emacs internationalization." windows "Windows within a frame."] 12) #@40 Quote SEXP iff it is not self quoting. (defalias 'custom-quote #[(sexp) "\301>\204(\302!\204(<\203@\303>\204(;\204(\247\204(\304!\203*\207\305D\207" [sexp (t nil) keywordp (lambda) vectorp quote] 2 (#$ . 7046)]) #@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 (#$ . 7282)]) #@110 Prompt for a variable, defaulting to the variable at point. Return a list suitable for use in `interactive'. (defalias 'custom-variable-prompt #[nil "\304 \305\306\307\n9\203\310\311\n\"\202\312 \313\305$\211\314\232\203)\n9\205,\n\202,\315!+C\207" [val enable-recursive-minibuffers v obarray variable-at-point t nil completing-read format "Customize option: (default %s) " "Customize variable: " #[(symbol) "\301!\205\302N\206\303N\206\304N\207" [symbol boundp custom-type custom-loads standard-value] 2] "" intern] 6 (#$ . 7685)]) #@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 (#$ . 8247)]) #@64 List of prefixes that should be ignored by `custom-unlispify'. (defvar custom-prefix-list nil (#$ . 8655)) #@62 Display menu entries as words instead of symbols if non nil. (custom-declare-variable 'custom-unlispify-menu-entries 't '(#$ . 8768) :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 '(#$ . 8943) :group 'custom-menu :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\207\212\311\312!q\210\313 \210\314 p\"\210eb\210 \315N\316=\203F\317\320\321\322#\203F\323\324\322\211#\210eb\210 \203w\f\321\203v@\325 ` G\\\322#\203m\321e`|\210\202OA\211\204T*\326ed\327\330\322%\210\331ed\"\210\n\204\216db\210\310c\210\332 )\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 custom-type boolean re-search-forward "-p\\'" nil t replace-match "" search-forward subst-char-in-region 45 32 capitalize-region buffer-string prefixes] 7 (#$ . 9127)]) #@59 Display tag names as words instead of symbols if non nil. (custom-declare-variable 'custom-unlispify-tag-names 't '(#$ . 9928) :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 (#$ . 10099)]) #@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 (#$ . 10322)]) #@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) ("-hook\\'" hook) ("-face\\'" face) ("-file\\'" file) ("-function\\'" function) ("-functions\\'" (repeat function)) ("-list\\'" (repeat sexp)) ("-alist\\'" (repeat (cons sexp sexp)))) '(#$ . 10515) :type '(repeat (group (regexp :tag "Match") (sexp :tag "Type"))) :group 'customize) #@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)) '(#$ . 11194) :type '(repeat (group (regexp :tag "Match") (sexp :tag "Type"))) :group 'customize) #@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 (#$ . 11731)]) #@70 If non-nil, sort members of each customization group alphabetically. (custom-declare-variable 'custom-browse-sort-alphabetically 'nil '(#$ . 12319) :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 '(#$ . 12512) :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 '(#$ . 12831) :type 'boolean :group 'custom-browse) #@70 If non-nil, sort members of each customization group alphabetically. (custom-declare-variable 'custom-buffer-sort-alphabetically 'nil '(#$ . 13015) :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 '(#$ . 13208) :type '(choice (const first) (const last) (const :tag "none" nil)) :group 'custom-buffer) #@70 If non-nil, sort members of each customization group alphabetically. (custom-declare-variable 'custom-menu-sort-alphabetically 'nil '(#$ . 13529) :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 '(#$ . 13718) :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 (#$ . 14037)]) #@46 Customization widgets in the current buffer. (defvar custom-options nil (#$ . 14696)) #@38 Set changes in all modified options. (defalias 'Custom-set #[nil "\302\303 \")\207" [custom-options children mapc #[(child) "\301\302\"\303=\205 \304\305\"\207" [child widget-get :custom-state modified widget-apply :custom-set] 3]] 3 (#$ . 14788) nil]) #@47 Set all modified group members and save them. (defalias 'Custom-save #[nil "\302\303 \"\210)\304 \207" [custom-options children 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] 3 (#$ . 15052) 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 '(("Current" . Custom-reset-current) ("Saved" . Custom-reset-saved) ("Erase Customization (use standard settings)" . Custom-reset-standard)) (#$ . 15373)) #@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 to"] 5 (#$ . 15765)]) #@58 Reset all modified group members to their current value. (defalias 'Custom-reset-current #[(&rest ignore) "\302\303 \")\207" [custom-options children mapc #[(widget) "\301\302\"\303>\205 \304\305\"\207" [widget widget-get :custom-state (modified changed) widget-apply :custom-reset-current] 3]] 3 (#$ . 15972) nil]) #@63 Reset all modified or set group members to their saved value. (defalias 'Custom-reset-saved #[(&rest ignore) "\302\303 \")\207" [custom-options children mapc #[(widget) "\301\302\"\303>\205 \304\305\"\207" [widget widget-get :custom-state (modified set changed rogue) widget-apply :custom-reset-saved] 3]] 3 (#$ . 16299) nil]) #@267 Erase all customization (either current or saved) for the group members. The immediate result is to restore them to their standard settings. This operation eliminates any saved settings for the group members, making them as if they had never been customized at all. (defalias 'Custom-reset-standard #[(&rest ignore) "\302\303 \")\207" [custom-options children mapc #[(widget) "\301!\302N\205\303\304\"\305>\205\306\307\"\207" [widget widget-value standard-value widget-get :custom-state (modified set changed saved rogue) widget-apply :custom-reset-standard] 3]] 3 (#$ . 16638) 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 (#$ . 17238)]) #@416 Set VARIABLE to 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 #[(var val &optional comment) " L\210\n\303\230\203\304\305\306#\207\n\205\304\305\n#\207" [var val comment "" put variable-comment nil] 4 (#$ . 18452) (custom-prompt-variable "Set variable: " "Set %s to value: " current-prefix-arg)]) #@658 Set the default for VARIABLE to VALUE. VALUE is a Lisp object. If VARIABLE has a `custom-set' property, that is used for setting VARIABLE, otherwise `set-default' is used. The `customized-value' property of the VARIABLE will be set to a list with a quoted VALUE as its sole list member. 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) "\303N\206\304 \"\210\305\306\307 !C#\210\n\310\230\203&\305\311\312#\210\305\313\312#\207\n\2055\305\311\n#\210\305\313\n#\207" [variable value comment custom-set set-default put customized-value custom-quote "" variable-comment nil customized-variable-comment] 5 (#$ . 19147) (custom-prompt-variable "Set variable: " "Set customized value for %s to: " current-prefix-arg)]) #@665 Set the default for VARIABLE to VALUE, and save it for future sessions. If VARIABLE has a `custom-set' property, that is used for setting VARIABLE, otherwise `set-default' is used. The `customized-value' property of the VARIABLE will be set to a list with a quoted VALUE as its sole list member. 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 #[(var value &optional comment) "\303N\206\304 \"\210\305\306\307 !C#\210\n\310\230\203)\305\311\312#\210\305\313\312#\210\2029\n\2039\305\311\n#\210\305\313\n#\210\314 \207" [var value comment custom-set set-default put saved-value custom-quote "" variable-comment nil saved-variable-comment custom-save-all] 5 (#$ . 20269) (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 (#$ . 21417) nil]) #@55 Customize GROUP, which must be a customization group. (defalias 'customize-group #[(group) ";\203\302\230\203\303\202\304!\305N\204\306!\210\307\310\311!\"\312 !\2031\313 !\202=\314\305DC \315\311!P#)\207" [group name "" emacs intern custom-group custom-load-symbol format "*Customize Group: %s*" custom-unlispify-tag-name get-buffer pop-to-buffer custom-buffer-create " for group "] 6 (#$ . 21754) (list (let ((completion-ignore-case t)) (completing-read "Customize group: (default emacs) " obarray (lambda (symbol) (or (get symbol 'custom-loads) (get symbol 'custom-group))) t)))]) #@55 Customize GROUP, which must be a customization group. (defalias 'customize-group-other-window #[(group) ";\203\303\230\203\304\202\305!\306N\204\307!\210\310\311\312!\"\313 !\2039\314 \315 !\210\316\n!)\202E\317\306DC \320\312!P#)\207" [group name window "" emacs intern custom-group custom-load-symbol format "*Customize Group: %s*" custom-unlispify-tag-name get-buffer selected-window pop-to-buffer select-window custom-buffer-create-other-window " for group "] 6 (#$ . 22365) (list (let ((completion-ignore-case t)) (completing-read "Customize group: (default emacs) " obarray (lambda (symbol) (or (get symbol 'custom-loads) (get symbol 'custom-group))) t)))]) (defalias 'customize-variable 'customize-option) #@57 Customize SYMBOL, which must be a user option variable. (defalias 'customize-option #[(symbol) "\304N\204S\305\306\307\"\310\211\203=\311\312\313!!\314\216r q\210\315\n!\210\316\317\320!P\310\307#\203<\321\322!\210\323\225b\210`\310\210`{+ \203R\324\325 \"\203N \323\211\224O\326 !\210*\304N\204^\327\330\"\210\331\332DC\333\334\335!\"\"\207" [symbol file loaddefs-file #1=#:temp-buffer custom-type locate-library "loaddefs.el" t nil get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents re-search-forward "^(defvar " symbol-name search-backward "\n;;; Generated autoloads from " 0 string-match "\\.el\\'" load error "Variable %s cannot be customized" custom-buffer-create custom-variable format "*Customize Option: %s*" custom-unlispify-tag-name] 7 (#$ . 23106) (custom-variable-prompt)]) #@70 Version for `customize-changed-options' to refer back to by default. (defvar customize-changed-options-previous-release "20.2" (#$ . 24020)) #@398 Customize all user option variables changed in Emacs itself. This includes new user option variables and faces, and new customization groups, as well as older options and faces whose default values have changed since the previous major Emacs release. With argument SINCE-VERSION (a string), customize all user option variables that were added (or their meanings were changed) since that version. (defalias 'customize-changed-options #[(since-version) "\306\232\203 \307\202\307\310\311\217\204\312\313\314D\"\210\204 \307\211\315\316!\210 \2042\317\320\"\202f\307\n\203J\321\322\n@ \"A!\fB\nA\211\2048\323\305\324\325\326\f\"#\210)\327\305!\210\323\305\324\307#\210\330\331 \332\333#\334\"*\207" [since-version customize-changed-options-previous-release versions found flist custom-versions-load-alist "" nil (byte-code "\301!\247\207" [since-version read] 2) ((error)) signal wrong-type-argument numberp mapatoms #[(symbol) "\305!\204\306N\204\307N\205M\310N\211\2054\n\203%\311\n \"\2054 \235\203/\312\2024 B\211)\205M\307N\203F\313D\fB\202K\314D\fB\211\207" [symbol version since-version versions found boundp standard-value group-documentation custom-version customize-version-lessp t custom-group custom-variable] 4] error "No user option defaults have been changed since Emacs %s" copy-sequence assoc put custom-loads apply nconc custom-load-symbol custom-buffer-create custom-sort-items t first "*Customize Changed Options*"] 7 (#$ . 24168) "sCustomize options changed, since version (default all versions): "]) (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]) (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) "\301\302DC\303\304\305!\"\"\207" [symbol custom-buffer-create-other-window custom-variable format "*Customize Option: %s*" custom-unlispify-tag-name] 6 (#$ . 26231) (custom-variable-prompt)]) #@94 Customize SYMBOL, which should be a face name or nil. If SYMBOL is nil, customize all faces. (defalias 'customize-face #[(&optional symbol) "\203;\203\301G!\203\302\303\304\305\306 \"\307\310#\311\"\207;\203&\312!9\2040\313\314\"\210\302\315DC\316\317\320!\"\"\207" [symbol zerop custom-buffer-create custom-sort-items mapcar #[(symbol) "\301D\207" [symbol custom-face] 2] face-list t nil "*Customize Faces*" intern error "Should be a symbol %S" custom-face format "*Customize Face: %s*" custom-unlispify-tag-name] 6 (#$ . 26596) (list (completing-read "Customize face: (default all) " obarray 'custom-facep t))]) #@60 Show customization buffer for face SYMBOL in other window. (defalias 'customize-face-other-window #[(&optional symbol) "?\206;\205\301G!?\2051;\203\302!9\204%\303\304\"\210\305\306DC\307\310\311!\"\"\207" [symbol zerop intern error "Should be a symbol %S" custom-buffer-create-other-window custom-face format "*Customize Face: %s*" custom-unlispify-tag-name] 6 (#$ . 27235) (list (completing-read "Customize face: " obarray 'custom-facep t))]) #@69 Customize all user options set since the last save in this session. (defalias 'customize-customized #[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 customized user options" custom-buffer-create custom-sort-items t "*Customize Customized*"] 5 (#$ . 27703) 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 (#$ . 28294) nil]) #@288 Customize all user options 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 options which are not user-settable, as well as faces and groups. (defalias 'customize-apropos #[(regexp &optional all) "\302\303\304!\210\204\305\306!\202\307\310\311 #\312\")\207" [found custom-buffer-order-groups nil mapatoms #[(symbol) "\304\305 !\"\205_\n\306>\204 \307N\203 \307D B\n\310>\204-\311 !\203- \312D B\n\313>?\205_\314 !\205_ \315N\204X \316N\204X\n\317>\203R\320 !\202U \321N\205_ \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 saved-value standard-value (nil options) user-variable-p variable-documentation custom-variable] 4] error "No matches" custom-buffer-create custom-sort-items t "*Customize Apropos*"] 5 (#$ . 28825) "sCustomize regexp: \nP"]) #@107 Customize all user options matching REGEXP. With prefix arg, include options which are not user-settable. (defalias 'customize-apropos-options #[(regexp &optional arg) "\302 \206\303\"\207" [regexp arg customize-apropos options] 3 (#$ . 29862) "sCustomize regexp: \nP"]) #@43 Customize all user faces matching REGEXP. (defalias 'customize-apropos-faces #[(regexp) "\301\302\"\207" [regexp customize-apropos faces] 3 (#$ . 30142) "sCustomize regexp: \n"]) #@44 Customize all user groups matching REGEXP. (defalias 'customize-apropos-groups #[(regexp) "\301\302\"\207" [regexp customize-apropos groups] 3 (#$ . 30328) "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 '(#$ . 30518) :type '(radio (const brackets) (const links)) :group 'custom-buffer) (defalias 'custom-bury-buffer #[(buffer) "\300 \207" [bury-buffer] 1]) #@123 *Function called to remove a Custom buffer when the user is done with it. Called with one argument, the buffer to remove. (custom-declare-variable 'custom-buffer-done-function ''custom-bury-buffer '(#$ . -30939) :type '(choice (function-item :tag "Bury buffer" custom-bury-buffer) (function-item :tag "Kill buffer" kill-buffer) (function :tag "Other")) :version "21.1" :group 'custom-buffer) #@43 Number of spaces to indent nested groups. (custom-declare-variable 'custom-buffer-indent '3 '(#$ . 31337) :type 'integer :group 'custom-buffer) #@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) "\204\303\304\305!!\210\306\305!!\210\307 \n\"\207" [name options description "*Customization*" kill-buffer get-buffer-create pop-to-buffer custom-buffer-create-internal] 3 (#$ . 31488)]) #@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-other-window #[(options &optional name description) "\204\306\307\310!!\210\311 \312\313\211\211\211\314\310!!\210\315\"\210\316!.\207" [name same-window-regexps same-window-buffer-names special-display-regexps special-display-buffer-names pop-up-windows "*Customization*" kill-buffer get-buffer-create selected-window t nil pop-to-buffer custom-buffer-create-internal select-window window options description] 6 (#$ . 31986)]) #@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 '(#$ . 32699) :type 'boolean :group 'custom-buffer) #@65 Remove current buffer by calling `custom-buffer-done-function'. (defalias 'Custom-buffer-done #[(&rest ignore) "p!\207" [custom-buffer-done-function] 2 (#$ . 32941) nil]) #@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)))) '(#$ . 33119) :type 'boolean :version "21.1" :group 'custom-buffer) (defalias 'custom-buffer-create-internal #[(options &optional description) "\306\307!\210\310 \210\311\312!\210\203\311!\210\311\313\314 \203\315\202\316\"!\210\317\320\321\322\323\324\325&\210\311\326!\210\306\327!\210\311\330!\210\317\331\321\332\323\333\334\335&\210\311\336!\210\317\331\321\337\323\340\334\341&\210\n\203j\311\336!\210\317\331\321\342\323\343\344\345\334\346& \210\202\227\311\347!\210\317\331\321\342\323\350\334\351&\210\311\336!\210\317\331\321\352\323\353\334\354&\210\311\336!\210\317\331\321\355\323\356\334\357&\210\311\360!\210\317\331\321\361\323\362\334\363&\210\311\364!\210\306\365!\210\366 \210 G\367U\203\277\370\371 \"\202\311\372 G\370\373 \"*@h\374=\204\325\311\375!\210\306\376!\210A\377=\204\352\201B\201C@\"\210\306\201D!\210\201E \210\201F \210eb\210\306\201G!\207" [description custom-raised-buttons custom-reset-button-menu options length count message "Creating customization buffer..." custom-mode widget-insert "This is a customization buffer" format ".\n%s show active fields; type RET or click mouse-1\non an active field to invoke its action. Editing an option value\nchanges the text in the buffer; invoke the State button and\nchoose the Set operation to set the option value.\nInvoke " "`Raised' buttons" "Square brackets" widget-create info-link :tag "Help" :help-echo "Read the online help." "(emacs)Easy Customization" " for more information.\n\n" "Creating customization buttons..." "Operate on everything in this buffer:\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." #[(widget &optional event) "\300 \207" [Custom-save] 1] "Reset" "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 " "Reset all edited text in this buffer to reflect current values." Custom-reset-current "Reset to Saved" "Reset all values in this buffer to their saved settings." Custom-reset-saved "Erase Customization" "Un-customize all values in this buffer. They get their standard settings." Custom-reset-standard " " "Finish" #[(&rest ignore) "\301=\203\302\207\303=\203\304\207\305\207" [custom-buffer-done-function custom-bury-buffer "Bury this buffer" kill-buffer "Kill this buffer" "Finish with this buffer"] 2] Custom-buffer-done "\n\n" "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 #[(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" tree custom-options custom-buffer-style mapc custom-magic-reset "Creating customization setup..." widget-setup buffer-enable-undo "Creating customization buffer...done"] 10]) #@52 Create a tree browser for the customize hierarchy. (defalias 'customize-browse #[(&optional group) "\204\304\305\306\307 !!\210\310\307 !!\210)\311 \210\312\313!\210\n\203'\312\314!\210\202X\312\315!\210\316\317\320\321\322\323\324\325&\210\312\326!\210\316\317\320\321\322\327\324\330&\210\312\331!\210\316\317\320\321\322\332\324\333&\210\312\334!\210\335\316\336\337\340\341\342\322\343!\344& \210)eb\207" [group name custom-browse-only-groups custom-buffer-style emacs "*Customize Browser*" kill-buffer get-buffer-create pop-to-buffer custom-mode widget-insert "Square brackets show active fields; type RET or click mouse-1\non an active field to invoke its action.\nInvoke [+] below to expand a group, and [-] to collapse an expanded group.\n" "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] 10 (#$ . 36680) 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 'push-button "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 'push-button "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 'push-button "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\301\207" [current-load-list custom-browse-alist ((" " "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 (#$ . 39360)]) (byte-code "\300\301\302N\303\304#\210\300\305\302N\303\306#\210\300\307\302N\303\304#\210\310\311\312\313\314\315\316\317&\210\320\321\322\323\324\325\324\326&\210\327\330\331\332\324\321%\210\327\333\334\335\324\321%\210\327\336\337\340\324\321%\210\327\341\342\343\324\321%\210\327\344\345\346\324\321%\210\327\347\350\351\324\321%\207" [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." :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-face ((((class color)) (:foreground "yellow" :background "red")) (t (:bold t :italic t :underline t))) "Face used when the customize item is invalid." custom-rogue-face ((((class color)) (:foreground "pink" :background "black")) (t (:underline t))) "Face used when the customize item is not defined for customization." custom-modified-face ((((class color)) (:foreground "white" :background "blue")) (t (:italic t :bold))) "Face used when the customize item has been modified." custom-set-face ((((class color)) (:foreground "blue" :background "white")) (t (:italic t))) "Face used when the customize item has been set." custom-changed-face ((((class color)) (:foreground "white" :background "blue")) (t (:italic t))) "Face used when the customize item has been changed." custom-saved-face ((t (:underline t))) "Face used when the customize item has been saved."] 8) #@1128 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 temporarily. `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-face "the value displayed for this %c is invalid and cannot be set.") (modified "*" custom-modified-face "you have edited the value as text, but you have not set the %c." "you have edited something in this group, but not set it.") (set "+" custom-set-face "you have set this %c, but not saved it for future sessions." "something in this group has been set, but not saved.") (changed ":" custom-changed-face "this %c has been changed outside the customize buffer." "something in this group has been changed outside customize.") (saved "!" custom-saved-face "this %c has been set and saved." "something in this group has been set and saved.") (rogue "@" custom-rogue-face "this %c has not been changed with customize." "something in this group is not prepared for customization.") (standard " " nil "this %c is unchanged from its standard setting." "visible group members are all at standard settings.")) (#$ . 41237)) #@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 '(#$ . 43605) :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) '(#$ . 43889) :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 '(#$ . 44266) :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-face "\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 (#$ . 44877)]) #@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 (#$ . 46672)]) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\303\304\305\306\307&\210\300\312\313\314\306\307%\210\300\315\316\317\306\307%\210\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\341\343\344\345\346\347\350\351\352&\207" [custom-declare-face custom-button-face ((((type x w32 mac) (class color)) (:box (:line-width 2 :style released-button) :background "lightgrey" :foreground "black")) (t nil)) "Face used for buttons in customization buffers." :version "21.1" :group custom-faces custom-button-pressed-face ((((type x w32 mac) (class color)) (:box (:line-width 2 :style pressed-button) :background "lightgrey" :foreground "black")) (t (:inverse-video t))) custom-documentation-face nil "Face used for documentation strings in customization buffers." custom-state-face ((((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." 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 (#$ . 48310)]) #@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 (#$ . 48638)]) #@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 (#$ . 48952)]) #@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 (#$ . 49423)]) #@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 (#$ . 49759)]) #@39 Hack to avoid recursive dependencies. (defvar custom-load-recursion nil (#$ . 49997)) #@35 Load all dependencies for SYMBOL. (defalias 'custom-load-symbol #[(symbol) "?\205I\306 \307N\310 \205H @ A\n9\203$\310\311\312\217\210\202 \313\304!\2030\n\f\235\204 \314\n \"\204 \314\315\n! \"\204 \310\316\317\217\210\202 +\207" [custom-load-recursion symbol load loads preloaded-file-list load-history t custom-loads nil (require load) ((error)) boundp assoc locate-library (byte-code "\301\232\204\n\302!\210\302\207" [load "cus-edit" load-library] 2) ((error))] 3 (#$ . 50089)]) #@35 Load all dependencies for WIDGET. (defalias 'custom-load-widget #[(widget) "\301\302!!\207" [widget custom-load-symbol widget-value] 3 (#$ . 50597)]) #@71 Return non-nil if the dependencies of SYMBOL has 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 (#$ . 50754)]) #@71 Return non-nil if the dependencies of WIDGET has not yet been loaded. (defalias 'custom-unloaded-widget-p #[(widget) "\301\302!!\207" [widget custom-unloaded-symbol-p widget-value] 3 (#$ . 51129)]) #@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 (#$ . 51334)]) #@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 (#$ . 51766)]) #@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\205j \203%\314\315 \"\210\203.c\210\316c\210\n\203e\317\n@\"\fB\nA\211\204J\320c\210\2021\nA\204_ \203Y\321c\210\2021\322c\210\2021\323c\210\2021\324\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 ".\n" ", and " " and " ", " widget-put prefix] 5 (#$ . 51954)]) #@179 Add "Parent groups: ..." to WIDGET if the group has parents. The value if 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\315\310 #\210 \203/\316c\210\2023\n`|\210 -\207" [widget found start buttons type name widget-value widget-get :buttons nil "Parent groups:" mapatoms #[(symbol) " \306N\236\211A@ =\205!\307c\210\310\f\311\312\313 ! % B\314\211 )\207" [name symbol entry type widget buttons custom-group " " widget-create-child-and-convert custom-group-link :tag custom-unlispify-tag-name t found] 7] widget-put "\n" initial-string] 6 (#$ . 52562)]) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\306\307%\210\313\314\315\316\317\320\321\322\323\310\324\301\325\326\327\330&\207" [custom-declare-face custom-comment-face ((((class grayscale color) (background light)) (:background "gray85")) (((class grayscale color) (background dark)) (:background "dim gray")) (t (:italic t))) "Face used for comments on variables or faces" :version "21.1" :group custom-faces custom-comment-tag-face ((((class color) (background dark)) (:foreground "gray80")) (((class color) (background light)) (:foreground "blue4")) (((class grayscale) (background light)) (:foreground "DimGray" :bold t :italic t)) (((class grayscale) (background dark)) (:foreground "LightGray" :bold t :italic t)) (t (:bold t))) "Face used for variables or faces comment tags" define-widget custom-comment 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\300\306\307\310\304\305%\207" [custom-declare-face custom-variable-tag-face ((((class color) (background dark)) (:foreground "light blue" :bold t :height 1.2 :inherit variable-pitch)) (((class color) (background light)) (:foreground "blue" :bold t :height 1.2 :inherit variable-pitch)) (t (:bold t))) "Face used for unpushable variable tags." :group custom-faces custom-variable-button-face ((t (:underline t :bold t))) "Face used for pushable variable tags."] 6) #@45 Default form of displaying variable values. (custom-declare-variable 'custom-variable-default-form ''edit '(#$ . 55552) :type '(choice (const edit) (const lisp)) :group 'custom-buffer :version "20.3") (define-widget 'custom-variable 'custom "Customize variable." :format "%v" :help-echo "Set or reset this variable." :documentation-property '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) #@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 (#$ . 56312)]) #@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\273 \330=\203\343\337\343\344\345\346\347\316A\350&\n\nB\337\351\352\353\354\355\356&\nB\202\273\f\357>\203S@\360N\203\370@\360N@\202@\361N\203@\361N@\202\325@!\203\362D@!!\202\362\307C\315\"!G\363@!\364\261\210\337\351\352\365\354\355\366&\nB\341c\210\337\367\370\371\344\372\316\363@!\350\315G&\f B)\202\273\307B\344\"I\356J\356K\373\374I\"\204l\375\376!\210I\377\211\225OJI\377\225\356OK\337\343\344J\354\201O\352\201P\201Q\201R\370\371\346\347A&\nB\341c\210\337\351\352\365\354\355\366&\nB\337B\344K\315G& B+H\334=?\205mh\201S=\204\321\201T\342!\210\337\201U\356#L\311\201VL#\210L\nB)\311\312\n#\210\201W\201X\"\210 \330=\204-@\201YNM\337\201Z\350\315M\206\201[&N\311\201\\N#\210\201] NC\"*\311\310\f#\210\311\313 #\210 \330=\203H\311\314 #\210\202N\201^!\210 \330=?\205m\307\201_\"\201`=\203h\201a!\210\201b!.\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." :action custom-toggle-parent nil (lisp mismatch) saved-value standard-value custom-quote symbol-name ": " "Hide the value of this option." t sexp :button-face custom-variable-button-face "%v" string-match ":" error "Bad format" 0 symbol tag type conv get prefix last value custom-buffer-style format tag-format value-format magic comment comment-widget 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] 16 (#$ . 56771)]) #@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 (#$ . 59457)]) #@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 (#$ . 59692)]) #@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\315 \316N \317N \2048 \203G\315\320\321\217\203C\322\202\200\323\202\200 \324N \325N \204Y \203h\315\326\327\217\203d\330\202\200\323\202\200 \331N\211\203\315\332\333\217\203{\334\202\200\323\202\200\335!\336\337!#.\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 saved-value saved-variable-comment (byte-code "\304 @!\232\205\f\n \232\207" [value tmp comment temp eval] 3) ((error)) saved standard-value (byte-code "\303 @!\232\205\f\n\304\232\207" [value tmp comment eval nil] 3) ((error)) standard rogue widget-put :custom-state temp state] 5 (#$ . 59960)]) #@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 '(("Set for Current Session" custom-variable-set (lambda (widget) (eq (widget-get widget :custom-state) 'modified))) ("Save for Future Sessions" custom-variable-save (lambda (widget) (memq (widget-get widget :custom-state) '(modified set changed rogue)))) ("Reset to Current" 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))))) ("---" ignore ignore) ("Add Comment" custom-comment-show custom-comment-invisible-p) ("---" ignore ignore) ("Don't show as Lisp expression" custom-variable-edit (lambda (widget) (eq (widget-get widget :custom-form) 'lisp))) ("Show initial Lisp expression" custom-variable-edit-lisp (lambda (widget) (eq (widget-get widget :custom-form) 'edit)))) (#$ . 60941)) #@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 (#$ . 62580)]) #@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 (#$ . 63147)]) #@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 (#$ . 63358)]) #@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\300\322 \323\"\211$\203U\306$\324\"b\210\320\325\306$\326\"\"\210\202\300 \327>\203\217#\330\232\203j\316#\331\"!\210 \f\332\312 !\211$!\"\210\333\f\334$C#\210\333\f\335##\210\333\f\336##\210\202\300#\330\232\203\236\316#\331\"!\210 \f\312 !\211$\"\210\333\f\334\337$!C#\210\333\f\335##\210\333\f\336##\210\340!\210\341!.\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 eval put customized-value variable-comment customized-variable-comment custom-quote custom-variable-state-set custom-redraw-magic comment-widget comment val] 6 (#$ . 63605)]) #@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\275\322 \323\"\211'\203V\306'\324\"b\210\320\325\f\306'\326\"#\210\202\275 \327>\203\216&\330\232\203k\316&\331%!\210\332\f\333\312 !C#\210 \f\334\312 !!\"\210\332\f\335&#\210\332\f\336&#\210\202\275&\330\232\203\235\316&\331%!\210\332\f\333\337\312 !!C#\210 \f\312 !\"\210\332\f\335&#\210\332\f\336&#\210\332\f\340\316#\210\332\f\341\316#\210\342 \210\343!\210\344!.\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 eval variable-comment saved-variable-comment custom-quote customized-value customized-variable-comment custom-save-all custom-variable-state-set custom-redraw-magic comment-widget comment val] 7 (#$ . 64633)]) #@66 Restore the saved value for the variable being edited by WIDGET. (defalias 'custom-variable-reset-saved #[(widget) "\305!\211\306N\206 \307 \310N \311N \204\f\203*\312 \313\f#\210\314\315\316\217\210\202/\317\320 \"\210\312 \321\314#\210\312 \322\314#\210\323\324\325#\210\326!,\207" [widget symbol set value comment widget-value custom-set set-default saved-value saved-variable-comment put variable-comment 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] 5 (#$ . 65765)]) #@205 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. (defalias 'custom-variable-reset-standard #[(widget) "\303!\211\304N\206 \305 \306N\203\n \307 \306N@!\"\210\202$\310\311 \"\210\312 \313\314#\210\312 \315\314#\210\312 \316\314#\210 \317N\204B \320N\203Q\312 \317\314#\210\312 \320\314#\210\321 \210\322\323\324#\210\325!*\207" [widget symbol set widget-value custom-set set-default standard-value eval error "No standard setting known for %S" put variable-comment nil customized-value customized-variable-comment saved-value saved-variable-comment custom-save-all widget-put :custom-state unknown custom-redraw] 6 (#$ . 66404)]) (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\"& \210\301\320\321\322\307\323\324\325\326\327\315\330& \210\331\332\333\334\335\336%\207" [custom-face-attributes define-widget custom-face-edit checklist "Edit face attributes." :format "%t: %v" :tag "Attributes" :extra-offset 12 :button-args (:help-echo "Control whether this attribute has any effect.") :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] custom-display menu-choice "Select a display type." "Display" :value t :help-echo "Specify frames where the face attributes should be used." ((const :tag "all" t) (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 "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 "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)))))) custom-declare-face custom-face-tag-face ((t (:bold t :height 1.2 :inherit variable-pitch))) "Face used for face tags." :group custom-faces] 16) #@45 Default form of displaying face definition. (custom-declare-variable 'custom-face-default-form ''selected '(#$ . 69412) :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&\210\300\336\337\340\341\342\343\344\345\346\347\350\351\352& \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-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))] 30) #@52 Converted version of the `custom-face-all' widget. (defconst custom-face-all (widget-convert 'custom-face-all) (#$ . 70730)) (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 (#$ . 71017)]) (define-widget 'custom-face-selected 'group "Edit the attributes of the selected display in a face specification." :args '((repeat :format "" :inline t (group custom-display-unselected sexp)) (group (sexp :format "") custom-face-edit) (repeat :format "" :inline t sexp))) #@57 Converted version of the `custom-face-selected' widget. (defconst custom-face-selected (widget-convert 'custom-face-selected) (#$ . 71500)) #@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 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 (#$ . 71647)]) #@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\303#\207" [spec custom-filter-face-spec 2 #[(value) "\301=\203\302\207\302=\203\303\207\207" [value unspecified nil off] 2]] 4 (#$ . 72337)]) #@69 Return the customized SPEC in a form suitable for setting the face. (defalias 'custom-post-filter-face-spec #[(spec) "\301\302\303#\207" [spec custom-filter-face-spec 3 #[(value) "\301=\203\302\207\303=\203\301\207\207" [value nil unspecified off] 2]] 4 (#$ . 72661)]) #@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\f\347=?&BBB\325c\210\322\350\310#D\326\351D#\210DBBB)\326\307B#\210\352\353\"\210\f\347=\204\366@\354NE\322\355\356\311E\206\343\357&F\326\360F#\210FABA*\f\347=\204 \306\361\"\362=\203 \363!\210\364!\210h\365=\204\325c\210\f\347=?\205\366\367!\210\370!\210\306\371\"\2043\326\371G#\210\372!\211@\373N\206N@\374N\206N\375\376@\377 \"DCH\306\371\"I\306\201N\"J\310K\201O@H\377 #\204{\375\201P@\377 \"DCH\201QH!H\322I\201R=\203\261\201SL\201TH#\203\261J\203\253\201U\201VJ\"\210\201L\202\340I\201W=\204\316\201SM\201TH#\203\316\201M\202\340J\203\335\201U\201VJ\"\210\201X\311H$K\201Y!\210KABA\326\201ZA#\210-\366\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." :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 saved-face face-defface-spec t custom-face-attributes-get selected-frame symbol children buttons custom-buffer-style magic comment comment-widget custom-face-default-form spec form indent edit custom-face-selected custom-face-all :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"] 11 (#$ . 72944)]) #@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 '(("Set for Current Session" custom-face-set) ("Save for Future Sessions" custom-face-save-command) ("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) ("Show all display specs" custom-face-edit-all (lambda (widget) (not (eq (widget-get widget :custom-form) 'all)))) ("Just current attributes" custom-face-edit-selected (lambda (widget) (not (eq (widget-get widget :custom-form) 'selected)))) ("Show as Lisp expression" custom-face-edit-lisp (lambda (widget) (not (eq (widget-get widget :custom-form) 'lisp))))) (#$ . 75267)) #@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 (#$ . 76530)]) #@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 (#$ . 76777)]) #@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 (#$ . 77009)]) #@26 Set the state of WIDGET. (defalias 'custom-face-state-set #[(widget) "\305!\211\306N\307\307\310\311 \312N \313N \204\f\203-\f\n\232\203)\314\202`\315\202` \316N \317N \204=\f\203K\f\n\232\203G\320\202`\315\202` \321N\203_\n\307\232\203[\322\202`\315\202`\323#,\207" [widget symbol comment tmp temp widget-value face-comment nil widget-put :custom-state customized-face customized-face-comment set changed saved-face saved-face-comment saved face-defface-spec standard rogue] 6 (#$ . 77252)]) #@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 (#$ . 77776)]) #@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 !\2039\321 \"\210\202>\321 \322\"\210\316 \323 #\210\316 \324 #\210\325!\210\326!-\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 face-spec-choose face-spec-set ((t :foreground unspecified)) customized-face-comment face-comment custom-face-state-set custom-redraw-magic] 5 (#$ . 78243)]) #@49 Save in `.emacs' the face attributes in WIDGET. (defalias 'custom-face-save-command #[(widget) "\301!\210\302 \207" [widget custom-face-save custom-save-all] 2 (#$ . 78870)]) #@72 Prepare for saving WIDGET's face attributes, but don't write `.emacs'. (defalias 'custom-face-save #[(widget) "\306!\307\310\"@\311\306\n!!\307\312\"\306\f!\211\313\232\203%\314\315\f!\210\316 !\2033\317 \"\210\2028\317 \320\"\210\321 \322 #\210\321 \323\314#\210\321 \324 #\210\321 \325\314#\210\321 \326 #\210\327 \210\330!\210\331!-\207" [widget symbol child value comment-widget comment widget-value widget-get :children custom-post-filter-face-spec :comment-widget "" nil custom-comment-hide face-spec-choose face-spec-set ((t :foreground unspecified)) put saved-face customized-face face-comment customized-face-comment saved-face-comment custom-save-all custom-face-state-set custom-redraw-magic] 5 (#$ . 79052)]) #@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 \"\210\316 \323\f#\210\324\n \"\210\324 \f\206F\325\"\210\326!\210\327!-\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 face-spec-set face-comment widget-value-set "" custom-face-state-set custom-redraw-magic] 4 (#$ . 79794)]) #@175 Restore WIDGET to the face's standard settings. This operation eliminates any saved setting 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 \320N\2043 \321N\203B\314 \320\316#\210\314 \321\316#\210\322 \210\323 \"\210\314 \324\316#\210\325\n \"\210\325\f\326\"\210\327!\210\330!,\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 saved-face saved-face-comment custom-save-all face-spec-set face-comment widget-value-set "" custom-face-state-set custom-redraw-magic] 4 (#$ . 80416)]) (define-widget 'face 'default "Select and customize a face." :convert-widget 'widget-value-convert-widget :button-prefix 'widget-push-button-prefix :button-suffix 'widget-push-button-suffix :format "%{%t%}: %[select face%] %v" :tag "Face" :value 'default :value-create 'widget-face-value-create :value-delete 'widget-face-value-delete :value-get 'widget-value-value-get :validate 'widget-children-validate :action 'widget-face-action :match #[(widget value) "9\207" [value] 1]) #@31 Create a `custom-face' child. (defalias 'widget-face-value-create #[(widget) "\305!\306\307\310\311\312\313 &\314 !\210 \fB\315\316 C#+\207" [widget symbol custom-buffer-style child custom-options widget-value face widget-create-child-and-convert custom-face :custom-level nil :value custom-magic-reset widget-put :children] 7 (#$ . 81724)]) #@36 Remove the child from the options. (defalias 'widget-face-value-delete #[(widget) "\303\304\"@\305 \n\"\306!)\207" [widget child custom-options widget-get :children delq widget-children-value-delete] 3 (#$ . 82080)]) #@32 History of entered face names. (defvar face-history nil (#$ . 82307)) #@20 Prompt for a face. (defalias 'widget-face-action #[(widget &optional event) "\303\304\305\306\307 \"\310\211\211\311&\312G!?\205&\313 \314!\"\210\315 \316 \n$\210\317 )\207" [answer widget event completing-read "Face: " mapcar #[(face) "\301!C\207" [face symbol-name] 2] face-list nil face-history zerop widget-value-set intern widget-apply :notify widget-setup] 7 (#$ . 82383)]) (define-widget 'hook 'list "A 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 #:--dolist-temp--97275 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." :help-echo "Create customization buffer for this group." :action 'custom-group-link-action) (defalias 'custom-group-link-action #[(widget &rest ignore) "\301\302!!\207" [widget customize-group widget-value] 3]) #@176 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-face'. (custom-declare-variable 'custom-group-tag-faces 'nil '(#$ . 83854) :type '(repeat face) :group 'custom-faces) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346&\207" [custom-declare-face custom-group-tag-face-1 ((((class color) (background dark)) (:foreground "pink" :bold t :height 1.2 :inherit variable-pitch)) (((class color) (background light)) (:foreground "red" :bold t :height 1.2 :inherit variable-pitch)) (t (:bold t))) "Face used for group tags." :group custom-faces custom-group-tag-face ((((class color) (background dark)) (:foreground "light blue" :bold t :height 1.2)) (((class color) (background light)) (:foreground "blue" :bold t :height 1.2)) (t (:bold t))) "Face used for low level group tags." 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-face] 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=#:--dolist-temp--97276 custom-group nil] 3 (#$ . 85917)]) #@60 Insert a customize group for WIDGET in the current buffer. (defalias 'custom-group-value-create #[(widget) "\306\307\"\306\310\"\306\311\"\306\312\"\306\313\"\314!@\315@A\316=\205*B\"CA\316=\203j \317=\203jC\204E\320!\203j\321 !\210\322\323\313\324$\fB\325c\210\322\326\"\fB\327 \330\261\210\331\312\f#\202A\316=\203\225\332CG!\203\225\321 !\210\333c\210\322\326\"\fB\327 \330\261\210\331\312\f#\202A\316=\203d\321 !\210\334!\210\332CG!\203\310\321 !\210\333c\210\322\326\"\fB\327 \330\261\210\331\312\f#\202\322\323\313\335$\fB\336c\210\322\326\"\fB\327 \330\261\210\331\312\f#\210\337\340!\210\341CDE#C\306\342\"F\343@F\"G\306\344\"\203\345\202\346H HP\347I\347JC\203SC@JCAC\322JA@\350\313\351J@!\342G\310\nT\344C?\352J@\311 &IBI\202\331\353\354I!#\210.\337\355!\202 \317=\203\356A\356=\204}\357\360K\nS_\"\210\325c\210`L c\210\361L`#\210)\362c\210A\356=\203\243\322\363\313\364@%\fB\202\263\322\365\366\367\370\371 \317=?&\fB\372c\210\322\373\347#M\331\374M#\210M\fB)\331\312\f#\210A\356=\203\343\n\375V\203\343\331\376\377#\210\201S\201T\"\202\n\375=\203\201U\201V\"\203\330c\210\357\360K\nS_\"\210\201Wc\210`N c\210\361N`#\210)\362c\210A\356=\204D\201Xc\210\322\201Y\366\201Z\370\371 \317=?&\fB\327c\210\357\201[\201\\iZK\n_Z\"\210\201]c\210\322\373\201^\377\347%M\331\374M#\210M\fB)\331\312\f#\210\201S\201T\"\210\201_\201`K\n_\360\"\"\210\337\340!\210\334!\210\341COP#C\306\342\"F\343@F\"GCGQ\377R\201a\201bC\"I\337\201c!\210\201d\201eI\"\210\337\201f!\210\331\353I#\210\201g!\210\337\201h!\210.\330c\210\357\360K\nS_\"\210\201i\306\313\"\201j\261\210\357\201[\201kiZK\n_Z\"\210\201lc.\207" [widget state level prefix buttons tag widget-get :custom-state :custom-level :custom-prefix :buttons :tag widget-value custom-group-members tree hidden custom-unloaded-widget-p custom-browse-insert-prefix widget-create-child-and-convert custom-browse-visibility "+" "-- " custom-browse-group-tag " " "\n" widget-put zerop "[ ]-- " custom-load-widget "-" "-\\ " 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"] 17 (#$ . 86277)]) #@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 '(("Set for Current Session" custom-group-set (lambda (widget) (eq (widget-get widget :custom-state) 'modified))) ("Save for Future Sessions" custom-group-save (lambda (widget) (memq (widget-get widget :custom-state) '(modified set)))) ("Reset to Current" 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)))) ("Reset to standard setting" custom-group-reset-standard (lambda (widget) (memq (widget-get widget :custom-state) '(modified set saved))))) (#$ . 89915)) #@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 (#$ . 90958)]) #@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 (#$ . 91419)]) #@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 (#$ . 91719)]) #@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 (#$ . 92017)]) #@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 (#$ . 92328)]) #@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 (#$ . 92648)]) #@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 (#$ . 92988)]) #@519 File used for storing customization information. The default is nil, which means to use your init file as specified by `user-init-file'. If you specify some other file, you need to explicitly load that file for the settings to take effect. When you change this variable, 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. (custom-declare-variable 'custom-file 'nil '(#$ . 93440) :type '(choice (const :tag "Your Emacs init file" nil) file) :group 'customize) #@49 Return the file name for saving customizations. (defalias 'custom-file #[nil "\2060 \n\304=\203\305\202\306\211\204.\307 !\204(\n\310=\203,\307\305!\203,\311\312!\210  *\211\207" [custom-file user-init-file system-type default-init-file ms-dos "~/_emacs" "~/.emacs" file-exists-p windows-nt error "Saving settings from \"emacs -q\" would overwrite existing customizations"] 4 (#$ . 94101)]) #@167 Visit `custom-file' and delete all calls to SYMBOL from it. Leave point at the old location of the first such call, or (if there were none) at the end of the buffer. (defalias 'custom-save-delete #[(symbol) "\304\305\306 !q\210)eb\210\307\310!\204\fm\204\212\311\312 !\210)\304\313\314\215\210 \203, b\202Md\315\212db\210\316\317d\320Ze]\321#\210\322\323\304\315#\203I\324 ) b*)\207" [default-major-mode first case-fold-search pos nil find-file-noselect custom-file forward-comment 1 forward-sexp buffer-size 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 (#$ . 94513)]) #@49 Save all customized variables in `custom-file'. (defalias 'custom-save-variables #[nil "\212\303\304!\210p\305\306\307\"\310\311\312!\210\313 A\314\"n\204 \315\316!\210\315\317!\210\320\321 \"\210n\2031\315\322!\210\315\323!\210\324\316!?\205?\315\316!,\207" [sort-fold-case saved-list standard-output custom-save-delete custom-set-variables make-list 1 0 nil mapatoms #[(symbol) "\302N\205\n C\244\207" [symbol saved-list saved-value] 2] sort string< princ "\n" "(custom-set-variables\n ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!\n ;; Your init file should contain only one such instance.\n" mapcar #[(symbol) "\306N\307N\310N\206\311!?\205\312N??\313N\314\211\204)\n\205\235n\2041\315\316!\210\315\317!\210\320!\210\315\321!\210\320 @!\210 \204N\f\204N\n\203\232\315\321!\210 \203]\315\322!\210\202a\315\323!\210\f\204i\n\203\224\315\321!\210\f\203x\320\f!\210\202|\315\323!\210\n\203\216\315\321!\210\320\n!\210\315\324!\202\235\315\324!\202\235\315\324!\202\235\315\324!-\207" [symbol sep comment now requests value saved-value custom-requests standard-value boundp force-value saved-variable-comment nil princ "\n" " '(" prin1 " " "t" "nil" ")"] 6] " " ")" looking-at] 4 (#$ . 95400)]) #@45 Save all customized faces in `custom-file'. (defalias 'custom-save-faces #[nil "\212\303\304!\210p\305\306\307\"\310\311\312!\210\313 A\314\"\315 >\203%\315\316\315 \"Bn\204-\317\320!\210\317\321!\210\322\323 \"\210n\203>\317\324!\210\317\325!\210\326\320!?\205L\317\320!,\207" [sort-fold-case saved-list standard-output custom-save-delete custom-set-faces make-list 1 0 nil mapatoms #[(symbol) "\302N\205\n C\244\207" [symbol saved-list saved-face] 2] sort string< default delq princ "\n" "(custom-set-faces\n ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!\n ;; Your init file should contain only one such instance.\n" mapcar #[(symbol) "\304N\305\306N\206\307\305!?\205\305\310N??\305\311N\210n\204%\312\313!\210\312\314!\210\315!\210\312\316!\210\315 !\210\n\204= \203h\312\316!\210\n\203L\312\317!\210\202P\312\320!\210 \203b\312\316!\210\315 !\210\312\321!\202k\312\321!\202k\312\321!+\207" [symbol comment now value saved-face default face-defface-spec custom-facep force-face saved-face-comment princ "\n" " '(" prin1 " " "t" "nil" ")"] 4] " " ")" looking-at] 4 (#$ . 96673)]) #@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\311\305\313#\210 \2030\311\314 #\210\311\306\313#\210 \203@\311\315 #\210\311\310\313#\210\n\205O\311\316\n#\210\311\307\313#,\207" [symbol variable-comment face-comment value face customized-face customized-value customized-face-comment customized-variable-comment put saved-face nil saved-value saved-variable-comment saved-face-comment] 6] custom-save-all] 2 (#$ . 97819) nil]) #@43 Save all customizations in `custom-file'. (defalias 'custom-save-all #[nil "\303\304 \210\305 \210\212\306\307\310 !q\210)\303\311 +\207" [inhibit-read-only default-major-mode file-precious-flag t custom-save-variables custom-save-faces nil find-file-noselect custom-file save-buffer] 2 (#$ . 98420)]) #@34 Maximum nesting in custom menus. (custom-declare-variable 'custom-menu-nesting '2 '(#$ . 98731) :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 (#$ . 98869)]) #@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 (#$ . 99113)]) (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 (#$ . 99733)]) #@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\311DD\312#\313\302!\203\n\314Y\203F\315NG W\203F\316\f\"\317\315N #\320!\210\307\312\" \321\322\323\"*BBB\202G )\207" [symbol item custom-menu-nesting widget-menu-max-size custom-prefix-list custom-menu-sort-alphabetically vector custom-unlispify-menu-entry customize-group quote t boundp 0 custom-group custom-prefix-add custom-sort-items custom-load-symbol "--" mapcar #[(entry) "\301A@<\203A@\202A@C\302@#\207" [entry widget-apply :custom-menu] 4] custom-menu-order-groups members] 6 (#$ . 100076)]) #@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 DDEE\207" [name symbol "Customize" :filter lambda (&rest junk) custom-menu-create quote] 7 (#$ . 100772)]) #@27 Keymap for `custom-mode'. (defvar custom-mode-map nil (#$ . 101198)) (byte-code "\204:\302 \303 \"\210\304!\210\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\317#\210\305\320\321#\210\305\322\323#\210\302\207" [custom-mode-map widget-keymap make-sparse-keymap set-keymap-parent suppress-keymap define-key " " scroll-up "" scroll-down "q" Custom-buffer-done "u" Custom-goto-parent "n" widget-forward "p" widget-backward [mouse-1] Custom-move-and-invoke] 4) #@67 Move to where you click, and if it is an active field, invoke it. (defalias 'Custom-move-and-invoke #[(event) "\303!\210\304!\205\304!\305 \302\"\211\205\306!*\207" [event pos button mouse-set-point widget-event-point get-char-property widget-button-click] 4 (#$ . 101703) "e"]) #@37 Menu used in customization buffers. (defvar Custom-mode-menu nil (#$ . 101998)) (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] ["Reset to Current" Custom-reset-current t] ["Reset to Saved" Custom-reset-saved t] ["Reset to Standard Settings" Custom-reset-standard t] ["Info" (Info-goto-node "(emacs)Easy Customization") t])] 7) #@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 (#$ . 102514) nil]) #@40 Hook called when entering Custom mode. (custom-declare-variable 'custom-mode-hook 'nil '(#$ . 102879) :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]) #@778 Major mode for editing customization buffers. The following commands are available: Move to next button or editable field. \[widget-forward] Move to previous button or editable field. \[widget-backward] \Complete content of editable text field. \[widget-complete] \Invoke button under the mouse pointer. \[Custom-move-and-invoke] Invoke button under point. \[widget-button-press] Set all modifications. \[Custom-set] Make all modifications default. \[Custom-save] Reset all modified options. \[Custom-reset-current] Reset all modified or set options. \[Custom-reset-saved] Reset all options. \[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\304!\210\315\313\305!\210\316\313\317!\320L\210\313\321!\320L\210\203H\313\322!\323L\210\313\324!\323L\210\313\325!\323L\210\313\326!\323L\210\327\330\331\332\333$\210\334\335!\207" [major-mode mode-name custom-mode-map Custom-mode-menu widget-documentation-face widget-button-face kill-all-local-variables custom-mode "Custom" use-local-map easy-menu-add make-local-variable custom-options custom-documentation-face custom-button-face widget-button-pressed-face custom-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 t run-hooks custom-mode-hook custom-raised-buttons] 5 (#$ . 103253)]) (byte-code "\300\301\302\303#\210\304\305\306\"\210\307\310!\207" [put custom-mode mode-class special add-to-list debug-ignored-errors "^No user options have changed defaults in recent Emacs versions$" provide cus-edit] 4)