ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/custom.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'widget)
#@51 Hook called after defining each customize option.
(defvar custom-define-hook nil (#$ . 426))
#@145 Non-nil means `defcustom' should not initialize the variable.
That is used for the sake of `custom-make-dependencies'.
Users should not set it.
(defvar custom-dont-initialize nil (#$ . 526))
#@71 Alist of (FILE . GROUP) indicating the current group to use for FILE.
(defvar custom-current-group-alist nil (#$ . 723))
#@298 Initialize SYMBOL with EXP.
This will do nothing if symbol already has a default binding.
Otherwise, if symbol has a `saved-value' property, it will evaluate
the car of that and use it as the default binding for symbol.
Otherwise, EXP will be evaluated and used as the default binding for
symbol.
(defalias 'custom-initialize-default #[(symbol exp) "\303\304\211\305N\211\203 @\202 \n)E!\207" [symbol sv exp eval defvar saved-value] 6 (#$ . 851)])
#@259 Initialize SYMBOL based on EXP.
If the symbol doesn't have a default binding already,
then set it using its `:set' function (or `set-default' if it has none).
The value is either the value in the symbol's `saved-value' property,
if any, or the value of EXP.
(defalias 'custom-initialize-set #[(symbol exp) "\3031 \304!0\207\210\305N\206 \306\307\310N\211\203 @\202! \n)!\"\207" [symbol sv exp (error) default-toplevel-value custom-set set-default-toplevel-value eval saved-value] 6 (#$ . 1311)])
#@302 Initialize SYMBOL based on EXP.
Set the symbol, using its `:set' function (or `set-default' if it has none).
The value is either the symbol's current value
(as obtained using the `:get' function), if any,
or the value in the symbol's `saved-value' property if any,
or (last of all) the value of EXP.
(defalias 'custom-initialize-reset #[(symbol exp) "\305N\206 \306\3071$ \310!\311N \203 !\202 \n*0\2026 \210\312\313N\211\2033 @\2024 \f)!\"\207" [symbol getter def sv exp custom-set set-default-toplevel-value (error) default-toplevel-value custom-get eval saved-value] 6 (#$ . 1823)])
#@174 Initialize SYMBOL with EXP.
Like `custom-initialize-reset', but only use the `:set' function if
not using the standard setting.
For the standard setting, use `set-default'.
(defalias 'custom-initialize-changed #[(symbol exp) "\3041$ \305!\306N\206 \307\211\310N\211\203 \n!\202 )\")0\207\210\311N\203; \306N\2062 \307\312\311N@!\"\207\313\312 !\"\207" [symbol def getter exp (error) default-toplevel-value custom-set set-default-toplevel-value custom-get saved-value eval set-default] 6 (#$ . 2431)])
#@52 List of variables whose initialization is pending.
(defvar custom-delayed-init-variables nil (#$ . 2953))
#@660 Delay initialization of SYMBOL to the next Emacs start.
This is used in files that are preloaded (or for autoloaded
variables), so that the initialization is done in the run-time
context rather than the build-time context. This also has the
side-effect that the (delayed) initialization is performed with
the :set function.
For variables in preloaded files, you can simply use this
function for the :initialize property. For autoloaded variables,
you will also need to add an autoload stanza calling this
function, and another one setting the standard-value property.
Or you can wrap the defcustom in a progn, to force the autoloader
to include all of it.
(defalias 'custom-initialize-delay #[(symbol _value) " B\211\207" [symbol custom-delayed-init-variables] 2 (#$ . 3066)])
#@366 Like `defcustom', but SYMBOL and DEFAULT are evaluated as normal arguments.
DEFAULT should be an expression to evaluate to compute the default value,
not the default value itself.
DEFAULT is stored as SYMBOL's standard value, in SYMBOL's property
`standard-value'. At the same time, SYMBOL's property `force-value' is
set to nil, as the value is no longer rogue.
(defalias 'custom-declare-variable #[(symbol default doc &rest args) "\306\307\310 C!#\210\311N\203 \306\311\312#\210\313\n!\203 \314\315!\210\316\312 \317
>\2040 \320\321 \322#\210
\203\370
\211A\242\211 .9\204E \314\323
\"\210
\204O \314\324.\"\210
\211A\242 /.\325=\203c /\202\364 .\326=\203t \306\327/#\210\202\364 .\330=\203\205 \306\331/#\210\202\364 .\332=\203\224 / B\202\364 .\333=\203\245 \306\334/#\210\202\364 .\335=\203\266 \306\336/#\210\202\364 .\337=\203\311 \306\340\310/!#\210\202\364 .\341=\203\353 \342N\203\337 \343\344/\"\210\202\364 \306\342\345/!#\210\202\364 \346./\322$\210*\2020 \306\347 #\2100\204\f \"\210*\350!\204 \n\203+\306\351\n#\210\202+\352\353\312\n\205&\nCBBB!\2101B1\354\355!\210\207" [symbol default doc requests initialize args put standard-value purecopy force-value nil keywordp error "Doc string is missing" custom-initialize-reset :group custom-add-to-group custom-current-group custom-variable "Junk in args %S" "Keyword %s is missing an argument" :initialize :set custom-set :get custom-get :require :risky risky-local-variable :safe safe-local-variable :type custom-type :options custom-options mapc #[(option) "\302 \"\207" [symbol option custom-add-option] 3] copy-sequence custom-handle-keyword custom-requests default-boundp variable-documentation eval defvar run-hooks custom-define-hook keyword value custom-dont-initialize current-load-list] 6 (#$ . 3855)])
#@5254 Declare SYMBOL as a customizable variable.
SYMBOL is the variable name; it should not be quoted.
STANDARD is an expression specifying the variable's standard
value. It should not be quoted. It is evaluated once by
`defcustom', and the value is assigned to SYMBOL if the variable
is unbound. The expression itself is also stored, so that
Customize can re-evaluate it later to get the standard value.
DOC is the variable documentation.
This macro uses `defvar' as a subroutine, which also marks the
variable as "special", so that it is always dynamically bound
even when `lexical-binding' is t.
The remaining arguments to `defcustom' should have the form
[KEYWORD VALUE]...
The following keywords are meaningful:
:type VALUE should be a widget type for editing the symbol's value.
Every `defcustom' should specify a value for this keyword.
:options VALUE should be a list of valid members of the widget type.
:initialize
VALUE should be a function used to initialize the
variable. It takes two arguments, the symbol and value
given in the `defcustom' call. The default is
`custom-initialize-reset'.
:set VALUE should be a function to set the value of the symbol
when using the Customize user interface. It takes two arguments,
the symbol to set and the value to give it. The function should
not modify its value argument destructively. The default choice
of function is `set-default'.
:get VALUE should be a function to extract the value of symbol.
The function takes one argument, a symbol, and should return
the current value for that symbol. The default choice of function
is `default-value'.
:require
VALUE should be a feature symbol. If you save a value
for this option, then when your init file loads the value,
it does (require VALUE) first.
:set-after VARIABLES
Specifies that SYMBOL should be set after the list of variables
VARIABLES when both have been customized.
:risky Set SYMBOL's `risky-local-variable' property to VALUE.
:safe Set SYMBOL's `safe-local-variable' property to VALUE.
See Info node `(elisp) File Local Variables'.
The following common keywords are also meaningful.
:group VALUE should be a customization group.
Add SYMBOL (or FACE with `defface') to that group.
:link LINK-DATA
Include an external link after the documentation string for this
item. This is a sentence containing an active field which
references some other documentation.
There are several alternatives you can use for LINK-DATA:
(custom-manual INFO-NODE)
Link to an Info node; INFO-NODE is a string which specifies
the node name, as in "(emacs)Top".
(info-link INFO-NODE)
Like `custom-manual' except that the link appears in the
customization buffer with the Info node name.
(url-link URL)
Link to a web page; URL is a string which specifies the URL.
(emacs-commentary-link LIBRARY)
Link to the commentary section of LIBRARY.
(emacs-library-link LIBRARY)
Link to an Emacs Lisp LIBRARY file.
(file-link FILE)
Link to FILE.
(function-link FUNCTION)
Link to the documentation of FUNCTION.
(variable-link VARIABLE)
Link to the documentation of VARIABLE.
(custom-group-link GROUP)
Link to another customization GROUP.
You can specify the text to use in the customization buffer by
adding `:tag NAME' after the first element of the LINK-DATA; for
example, (info-link :tag "foo" "(emacs)Top") makes a link to the
Emacs manual which appears in the buffer as `foo'.
An item can have more than one external link; however, most items
have none at all.
:version
VALUE should be a string specifying that the variable was
first introduced, or its default value was changed, in Emacs
version VERSION.
:package-version
VALUE should be a list with the form (PACKAGE . VERSION)
specifying that the variable was first introduced, or its
default value was changed, in PACKAGE version VERSION. This
keyword takes priority over :version. The PACKAGE and VERSION
must appear in the alist `customize-package-emacs-version-alist'.
Since PACKAGE must be unique and the user might see it in an
error message, a good choice is the official name of the
package, such as MH-E or Gnus.
:tag LABEL
Use LABEL, a string, instead of the item's name, to label the item
in customization menus and buffers.
:load FILE
Load file FILE (a string) before displaying this customization
item. Loading is done with `load', and only if the file is
not already loaded.
If SYMBOL has a local binding, then this form affects the local
binding. This is normally not what you want. Thus, if you need
to load a file defining variables with this form, or with
`defvar' or `defconst', you should always load that file
_outside_ any bindings for these variables. (`defvar' and
`defconst' behave similarly in this respect.)
See Info node `(elisp) Customization' in the Emacs Lisp manual
for more information.
(defalias 'defcustom '(macro . #[(symbol standard doc &rest args) "\305\306D \203 \307\310\311\312\313\314\nECBDDCB\202 \306\nD \fBBBB\207" [symbol lexical-binding standard doc args custom-declare-variable quote \` funcall function \, lambda nil] 9 (#$ . 5698)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put defcustom doc-string-elt 3 put edebug-form-spec (name body)] 4)
#@2618 Declare FACE as a customizable face that defaults to SPEC.
FACE does not need to be quoted.
Third argument DOC is the face documentation.
If FACE has been set with `custom-theme-set-faces', set the face
attributes as specified by that function, otherwise set the face
attributes according to SPEC.
The remaining arguments should have the form [KEYWORD VALUE]...
For a list of valid keywords, see the common keywords listed in
`defcustom'.
SPEC should be a "face spec", i.e., an alist of the form
((DISPLAY . ATTS)...)
where DISPLAY is a form specifying conditions to match certain
terminals and ATTS is a property list (ATTR VALUE ATTR VALUE...)
specifying face attributes and values for frames on those
terminals. On each terminal, the first element with a matching
DISPLAY specification takes effect, and the remaining elements in
SPEC are disregarded.
As a special exception, in the first element of SPEC, DISPLAY can
be the special value `default'. Then the ATTS in that element
act as defaults for all the following elements.
For backward compatibility, elements of SPEC can be written
as (DISPLAY ATTS) instead of (DISPLAY . ATTS).
Each DISPLAY can have the following values:
- `default' (only in the first element).
- The symbol t, which matches all terminals.
- An alist of conditions. Each alist element must have the form
(REQ ITEM...). A matching terminal must satisfy each
specified condition by matching one of its ITEMs. Each REQ
must be one of the following:
- `type' (the terminal type).
Each ITEM must be one of the values returned by
`window-system'. Under X, additional allowed values are
`motif', `lucid', `gtk' and `x-toolkit'.
- `class' (the terminal's color support).
Each ITEM should be one of `color', `grayscale', or `mono'.
- `background' (what color is used for the background text)
Each ITEM should be one of `light' or `dark'.
- `min-colors' (the minimum number of supported colors)
Each ITEM should be an integer, which is compared with the
result of `display-color-cells'.
- `supports' (match terminals supporting certain attributes).
Each ITEM should be a list of face attributes. See
`display-supports-face-attributes-p' for more information on
exactly how testing is done.
In the ATTS property list, possible attributes are `:family',
`:width', `:height', `:weight', `:slant', `:underline',
`:overline', `:strike-through', `:box', `:foreground',
`:background', `:stipple', `:inverse-video', and `:inherit'.
See Info node `(elisp) Faces' in the Emacs Lisp manual for more
information.
(defalias 'defface '(macro . #[(face spec doc &rest args) "\304\305D \nF \244\207" [face spec doc args custom-declare-face quote] 4 (#$ . 11360)]))
(function-put 'defface 'doc-string-elt 3)
(defalias 'custom-current-group #[nil "\302 \"A\207" [load-file-name custom-current-group-alist assoc] 3])
#@64 Like `defgroup', but SYMBOL is evaluated as a normal argument.
(defalias 'custom-declare-group #[(symbol members doc &rest args) "\203 \306\307 @#\210A\211\204 \n\203 \310 \311\312\n!#\210 \203c @ A\f9\2042 \313\314 \"\210\f @ \204B \313\315\"\210 A\316=\203W \310 \317\312
!#\210\202_ \320
\321$\210+\202 \322\"\211 \203w \241\210\202\200 BB)\323\324!\210 \207" [members symbol doc args arg value apply custom-add-to-group put group-documentation purecopy error "Junk in args %S" "Keyword %s is missing an argument" :prefix custom-prefix custom-handle-keyword custom-group assoc run-hooks custom-define-hook keyword load-file-name custom-current-group-alist elt] 6 (#$ . 14282)])
#@831 Declare SYMBOL as a customization group containing MEMBERS.
SYMBOL does not need to be quoted.
Third argument DOC is the group documentation. This should be a short
description of the group, beginning with a capital and ending with
a period. Words other than the first should not be capitalized, if they
are not usually written so.
MEMBERS should be an alist of the form ((NAME WIDGET)...) where
NAME is a symbol and WIDGET is a widget for editing that symbol.
Useful widgets are `custom-variable' for editing variables,
`custom-face' for editing faces, and `custom-group' for editing groups.
The remaining arguments should have the form
[KEYWORD VALUE]...
For a list of valid keywords, see the common keywords listed in
`defcustom'.
See Info node `(elisp) Customization' in the Emacs Lisp manual
for more information.
(defalias 'defgroup '(macro . #[(symbol members doc &rest args) "\304\305D \nF \244\207" [symbol members doc args custom-declare-group quote] 4 (#$ . 15007)]))
(function-put 'defgroup 'doc-string-elt 3)
#@121 To existing GROUP add a new OPTION of type WIDGET.
If there already is an entry for OPTION and WIDGET, nothing is done.
(defalias 'custom-add-to-group #[(group option widget) "\305N \nD \f\235?\205 \306\305\f C\244#*\207" [group option widget entry members custom-group put] 5 (#$ . 16048)])
#@106 Return the custom group corresponding to the major or minor MODE.
If no such group is found, return nil.
(defalias 'custom-group-of-mode #[(mode) "\301N\206& \302N\204% \303\304\305!\"\205& \306\305!\307\211\224O!\211\302N\205& \207" [mode custom-mode-group custom-group string-match "-mode\\'" symbol-name intern 0] 4 (#$ . 16352)])
#@112 For customization option SYMBOL, handle keyword arguments ARGS.
Third argument TYPE is the custom option type.
(defalias 'custom-handle-all-keywords #[(symbol args type) "\306>\204
\307\310 \n#\210\205= @A 9\204! \311\312\"\210 @ \204/ \311\313
\"\210A\314
\f\n$\210+\202
\207" [args symbol type arg value keyword :group custom-add-to-group custom-current-group error "Junk in args %S" "Keyword %s is missing an argument" custom-handle-keyword] 5 (#$ . 16699)])
#@109 For customization option SYMBOL, handle KEYWORD with VALUE.
Fourth argument TYPE is the custom option type.
(defalias 'custom-handle-keyword #[(symbol keyword value type) "\203 \305 !\n\306=\203 \307 \f#\207\n\310=\203 \311 \"\207\n\312=\203* \313 \"\207\n\314=\2035 \315 \"\207\n\316=\203@ \317 \"\207\n\320=\203L \321 \322 #\207\n\323=\203W \324 \"\207\325\326\n\"\207" [purify-flag value keyword symbol type purecopy :group custom-add-to-group :version custom-add-version :package-version custom-add-package-version :link custom-add-link :load custom-add-load :tag put custom-tag :set-after custom-add-dependencies error "Unknown keyword %s"] 4 (#$ . 17184)])
#@260 To the custom option SYMBOL, add dependencies specified by VALUE.
VALUE should be a list of symbols. For each symbol in that list,
this specifies that SYMBOL should be set after the specified symbol,
if both appear in constructs like `custom-set-variables'.
(defalias 'custom-add-dependencies #[(symbol value) "<\204\n \305\306\"\210 \307N\211\2032 @\211 9\204! \305\306\f\"\210\f >\204+ \f BA)\202 \n =?\205> \310 \307 #*\207" [value symbol deps new-deps dep error "Invalid custom dependency `%s'" custom-dependencies put] 5 (#$ . 17865)])
#@264 To the variable SYMBOL add OPTION.
If SYMBOL's custom type is a hook, OPTION should be a hook member.
If SYMBOL's custom type is an alist, OPTION specifies a symbol
to offer to the user as a possible key in the alist.
For other custom types, this has no effect.
(defalias 'custom-add-option #[(symbol option) "\303N\n \235?\205 \304\303\n B#)\207" [symbol options option custom-options put] 5 (#$ . 18424)])
(defalias 'custom-add-frequent-value 'custom-add-option)
#@50 To the custom option SYMBOL add the link WIDGET.
(defalias 'custom-add-link #[(symbol widget) "\303N\n \235?\205 \304\303\305\n! B#)\207" [symbol links widget custom-links put purecopy] 5 (#$ . 18900)])
#@54 To the custom option SYMBOL add the version VERSION.
(defalias 'custom-add-version #[(symbol version) "\302\303\304 !#\207" [symbol version put custom-version purecopy] 5 (#$ . 19113)])
#@62 To the custom option SYMBOL add the package version VERSION.
(defalias 'custom-add-package-version #[(symbol version) "\302\303\304 !#\207" [symbol version put custom-package-version purecopy] 5 (#$ . 19306)])
#@116 To the custom option SYMBOL add the dependency LOAD.
LOAD should be either a library file name, or a feature name.
(defalias 'custom-add-load #[(symbol load) "\303N\n \235?\205 \304\303\305\n! B#)\207" [symbol loads load custom-loads put purecopy] 5 (#$ . 19524)])
#@146 Mark SYMBOL as autoloaded custom variable and add dependency LOAD.
If NOSET is non-nil, don't bother autoloading LOAD when setting the variable.
(defalias 'custom-autoload #[(symbol load &optional noset) "\303\304 \203 \301\202\f \305#\210\306\n\"\207" [symbol noset load put custom-autoload t custom-add-load] 4 (#$ . 19800)])
#@244 Return non-nil if VARIABLE is a customizable variable.
A customizable variable is either (i) a variable whose property
list contains a non-nil `standard-value' or `custom-autoload'
property, or (ii) an alias for another customizable variable.
(defalias 'custom-variable-p #[(variable) "9\205 \301!\211\302N\206 \303N\207" [variable indirect-variable standard-value custom-autoload] 3 (#$ . 20138)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias user-variable-p custom-variable-p nil make-obsolete "24.3"] 4)
#@177 Inform Custom that VARIABLE has been set (changed).
VARIABLE is a symbol that names a user option.
The result is that the change is treated as having been made through Custom.
(defalias 'custom-note-var-changed #[(variable) "\301\302\303\304!!C#\207" [variable put customized-value custom-quote eval] 6 (#$ . 20679)])
#@39 Hack to avoid recursive dependencies.
(defvar custom-load-recursion nil (#$ . 21005))
#@35 Load all dependencies for SYMBOL.
(defalias 'custom-load-symbol #[(symbol) "?\205\262 \306\3071 \310\311!0\202 \210\202 \210\3121\" \310\313!0\202& \210\202' \210 \314N\315\211\205\261 @\2119\203L \3161D \310\n!0\202H \210\202\251 \210\202\251 \317\n\f\"\204\251 \320\321\n!\322Q\315 \f\315 \211\203\215 @\211@;\203\206 @\315\306 \323#)\266\203\203\206 \306 A\211\204f *
*\204\251 \n\324\232\204\251 \3251\244 \302\n!0\202\250 \210\202\251 \210 A\211\2041 \315+\207" [custom-load-recursion symbol load --dolist-tail-- load-history found t (error) require cus-load (error) cus-start custom-loads nil (error) assoc "\\(\\`\\|/\\)" regexp-quote "\\(\\'\\|\\.\\)" string-match "cus-edit" (error) regexp loaded inhibit-changing-match-data] 8 (#$ . 21097)])
#@285 Non-nil, in a Customization buffer, means customize a specific buffer.
If this variable is non-nil, it should be a buffer,
and it means customize the local bindings of that buffer.
This variable is a permanent local, and it normally has a local binding
in every Customization buffer.
(defvar custom-local-buffer nil (#$ . 21883))
(put 'custom-local-buffer 'permanent-local t)
#@205 Default :set function for a customizable variable.
Normally, this sets the default value of VARIABLE to VALUE,
but if `custom-local-buffer' is non-nil,
this sets the local binding in that buffer instead.
(defalias 'custom-set-default #[(variable value) "\203
rq\210 \nL)\207\303 \n\"\207" [custom-local-buffer variable value set-default] 3 (#$ . 22266)])
#@227 :set function for minor mode variables.
Normally, this sets the default value of VARIABLE to nil if VALUE
is nil and to t otherwise,
but if `custom-local-buffer' is non-nil,
this sets the local binding in that buffer instead.
(defalias 'custom-set-minor-mode #[(variable value) "\203 rq\210 \n\203 \303\202 \304!)\207 \n\203 \303\202 \304!\207" [custom-local-buffer variable value 1 0] 2 (#$ . 22631)])
#@39 Quote SEXP if 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 (#$ . 23047)])
#@328 Mark SYMBOL for later saving.
If the default value of SYMBOL is different from the standard value,
set the `saved-value' property to a list whose car evaluates to the
default value. Otherwise, set it to nil.
To actually save the value, call `custom-save-all'.
Return non-nil if the `saved-value' property actually changed.
(defalias 'customize-mark-to-save #[(symbol) "\306!\210\307N\206 \310\211!\311N\312N \313N \f\2033 \n\3141- \315\f@!0\202/ \210\316\232\204? \317\311\320\n!C#\210\202E \317\311\316#\210\317\321\316#\210
\203U \317\322
#\210 \311N\232-?\207" [symbol get value saved standard comment custom-load-symbol custom-get default-value saved-value standard-value customized-variable-comment (error) eval nil put custom-quote customized-value saved-variable-comment] 6 (#$ . 23283)])
#@369 Mark current value of SYMBOL as being set from customize.
If the default value of SYMBOL is different from the saved value if any,
or else if it is different from the standard value, set the
`customized-value' property to a list whose car evaluates to the
default value. Otherwise, set it to nil.
Return non-nil if the `customized-value' property actually changed.
(defalias 'customize-mark-as-set #[(symbol) "\305!\210\306N\206 \307\211!\310N\311N\206 \312N\211 \2035 \n\3131/ \314\f@!0\2021 \210\315\232\204K \316\310\317\n!C#\210\320\321\322\323\317\n!%\210\202Q \316\310\315#\210 \310N\232,?\207" [symbol get value customized old custom-load-symbol custom-get default-value customized-value saved-value standard-value (error) eval nil put custom-quote custom-push-theme theme-value user set] 8 (#$ . 24105)])
#@284 Reset the value of SYMBOL by re-evaluating its saved or standard value.
Use the :set function to do so. This is useful for customizable options
that are defined before their standard value can really be computed.
E.g. dumped variables whose default depends on run-time information.
(defalias 'custom-reevaluate-setting #[(symbol) "\301N\206 \302\303\304N\206 \305N@!\"\207" [symbol custom-set set-default eval saved-value standard-value] 5 (#$ . 24943)])
#@340 Themes that have been defined with `deftheme'.
The default value is the list (user changed). The theme `changed'
contains the settings before custom themes are applied. The theme
`user' contains all the settings the user customized and saved.
Additional themes declared with the `deftheme' macro will be added
to the front of this list.
(defvar custom-known-themes '(user changed) (#$ . 25412))
#@38 Non-nil when THEME has been defined.
(defalias 'custom-theme-p #[(theme) " >\207" [theme custom-known-themes] 2 (#$ . 25815)])
(put 'custom-theme-p 'byte-optimizer 'byte-compile-inline-expand)
#@65 Check whether THEME is valid, and signal an error if it is not.
(defalias 'custom-check-theme #[(theme) "\211 >)?\205 \302\303\"\207" [theme custom-known-themes error "Unknown theme `%s'"] 4 (#$ . 26015)])
(put 'custom-check-theme 'byte-optimizer 'byte-compile-inline-expand)
#@392 Record VALUE for face or variable SYMBOL in custom theme THEME.
PROP is `theme-face' for a face, `theme-value' for a variable.
MODE can be either the symbol `set' or the symbol `reset'. If it is the
symbol `set', then VALUE is the value to use. If it is the symbol
`reset', then SYMBOL will be removed from THEME (VALUE is ignored).
See `custom-known-themes' for a list of known themes.
(defalias 'custom-push-theme #[(prop symbol theme mode &optional value) "\306>\204\n \307\310!\210 N \n\236 \305N \311=\203g \f\205\312
\312 \211 \203P @\211@=\203G A@ =\203G A\211\204. *\313 \305\314
\"#\210)\313 \314\f\n\"#\202\f\203\265 \312
\312 \211 \203\232 @\211@=\203\221 A@ =\203\221 A\211\204x *\313 \305 F\314
\"B#\210\fA\240)\202\204\366 \n\204\353 \315=\203\353 \316 !\203\353 \317N J \211 \203\342 \320@!\232\204\352 \321\322!DC*\313 D\nB#\210\313 \305 F
B#+\207" [prop symbol old theme setting theme-settings (theme-value theme-face) error "Unknown theme property" reset nil put delq theme-value boundp standard-value eval changed custom-quote mode res theme-setting --dolist-tail-- value custom--inhibit-theme-enable val sv] 8 (#$ . 26302)])
#@115 Convert face SPEC, replacing obsolete :bold and :italic attributes.
Also change :reverse-video to :inverse-video.
(defalias 'custom-fix-face-spec #[(spec) "<\205} \304>\204 \305>\204 \306>\203| \307\203x @A@\211\305=\203= \310 B\n\2036 \311\2027 \312 B\202o \304=\203V \313 B\n\203O \314\202P \312 B\202o \315=\203g \306 B\n B\202o B\n B*AA\211\204 \237)\207\207" [spec result val key :bold :italic :inverse-video nil :slant italic normal :weight bold :reverse-video] 3 (#$ . 27540)])
#@518 Install user customizations of variable values specified in ARGS.
These settings are registered as theme `user'.
The arguments should each be a list of the form:
(SYMBOL EXP [NOW [REQUEST [COMMENT]]])
This stores EXP (without evaluating it) as the saved value for SYMBOL.
If NOW is present and non-nil, then also evaluate EXP and set
the default value for the SYMBOL to the value of EXP.
REQUEST is a list of features we must require in order to
handle SYMBOL properly.
COMMENT is a comment string about SYMBOL.
(defalias 'custom-set-variables #[(&rest args) "\301\302\303#\207" [args apply custom-theme-set-variables user] 4 (#$ . 28061)])
#@813 Initialize variables for theme THEME according to settings in ARGS.
Each of the arguments in ARGS should be a list of this form:
(SYMBOL EXP [NOW [REQUEST [COMMENT]]])
SYMBOL is the variable name, and EXP is an expression which
evaluates to the customized value. EXP will also be stored,
without evaluating it, in SYMBOL's `saved-value' property, so
that it can be restored via the Customize interface. It is also
added to the alist in SYMBOL's `theme-value' property (by
calling `custom-push-theme').
NOW, if present and non-nil, means to install the variable's
value directly now, even if its `defcustom' declaration has not
been executed. This is for internal use only.
REQUEST is a list of features to `require' (which are loaded
prior to evaluating EXP).
COMMENT is a comment string about SYMBOL.
(defalias 'custom-theme-set-variables #[(theme &rest args) "\211\211 >)?\205 \306\307\")\210\n\310\211 \203< \f@\311 @!\211 \312N\2044
\313N\314>\2044 \315
!\210)\fA\211\204 *\316\n!\211\310\211 \205\373 \f@\211<\204U \306\317!\210\311 @! A@ &\320\321
\322&%\210'\204\362 \323 8 (\324 8 )\325 8 *\310 )\203\221 \326
\327)#\210\330\331)\"\210
\332N\206\230 \333\326
\334&C#\210\326
\335*#\210\3361\325 (\203\303 \326
\337\340#\210
\341&!\"\202\321 \342
!\205\321
\341&!\"0\202\336 +\343\344
+#)\210(\204\352 \342
!\203\361 \326
\345*#\210,*\fA\211\204I \310*\207" [theme custom-known-themes args entry --dolist-tail-- symbol error "Unknown theme `%s'" nil indirect-variable standard-value custom-autoload (nil noset) custom-load-symbol custom--sort-vars "Incompatible Custom theme spec" custom-push-theme theme-value set 2 3 4 put custom-requests mapc require custom-set custom-set-default saved-value saved-variable-comment (error) force-value t eval default-boundp message "Error setting %s: %s" variable-comment value custom--inhibit-theme-enable now requests comment data] 7 (#$ . 28715)])
#@274 Sort VARS based on custom dependencies.
VARS is a list whose elements have the same form as the ARGS
arguments to `custom-theme-set-variables'. Return the sorted
list, in which A occurs before B if B was defined with a
`:set-after' keyword specifying A (see `defcustom').
(defalias 'custom--sort-vars #[(vars) "\306 \306 \307\211\f\307 \211 \2030 @\310
@\311
B #\210\310
@
\n#\210A\211\204 *\f\307 \211 \203i @\211@\312N\307 \211 \203_ @\313\n\"\210A\211\204K *A\211\204: *\314\315\n\"\210\314\316\n\"\210\317 \"\237,\207" [last custom--sort-vars-result dependants custom--sort-vars-table vars var make-hash-table nil puthash t custom-dependencies remhash maphash #[(sym var) "\304N?\205 \305 8\204 \306N\307=\205 \310\n\"\210 B\211\207" [sym var dependants last custom-dependencies 3 custom-set custom-set-minor-mode remhash] 3] custom--sort-vars-1 append --dolist-tail-- dep] 5 (#$ . 30665)])
(defalias 'custom--sort-vars-1 #[(sym &optional _ignored) "\306 \"\211\205C \n@\307=\203 \310\311\"\202C \n@\205C \n\307\240\210\312N\313\211 \2038 \f@\314 !\210\fA\211\204* *\n\313\240\210\nA
B\211)\207" [sym custom--sort-vars-table elt dep --dolist-tail-- custom--sort-vars-result gethash dependant error "Circular custom dependency on `%s'" custom-dependencies nil custom--sort-vars-1] 4])
#@223 Declare THEME to be a Custom theme.
The optional argument DOC is a doc string describing the theme.
Any theme `foo' should be defined in a file called `foo-theme.el';
see `custom-make-theme-feature' for more information.
(defalias 'deftheme '(macro . #[(theme &optional doc &rest ignored) "\303!\304\305D\305 D\nF)\207" [theme feature doc custom-make-theme-feature custom-declare-theme quote] 4 (#$ . 32012)]))
(function-put 'deftheme 'doc-string-elt 2)
#@186 Like `deftheme', but THEME is evaluated as a normal argument.
FEATURE is the feature this theme provides. Normally, this is a symbol
created from THEME by `custom-make-theme-feature'.
(defalias 'custom-declare-theme #[(theme feature &optional doc &rest ignored) "\303!\204 \304\305\"\210\306\307\"\210\310\311 #\210\n\205 \310\312\n#\207" [theme feature doc custom-theme-name-valid-p error "Custom theme cannot be named %S" add-to-list custom-known-themes put theme-feature theme-documentation] 4 (#$ . 32477)])
#@407 Given a symbol THEME, create a new symbol by appending "-theme".
Store this symbol in the `theme-feature' property of THEME.
Calling `provide-theme' to provide THEME actually puts `THEME-theme'
into `features'.
This allows for a file-name convention for autoloading themes:
Every theme X has a property `provide-theme' whose value is "X-theme".
(load-theme X) then attempts to load the file `X-theme.el'.
(defalias 'custom-make-theme-feature #[(theme) "\301\302!\303P!\207" [theme intern symbol-name "-theme"] 3 (#$ . 33004)])
#@235 Default user directory for storing custom theme files.
The command `customize-create-theme' writes theme files into this
directory. By default, Emacs searches for custom themes in this
directory first---see `custom-theme-load-path'.
(custom-declare-variable 'custom-theme-directory 'user-emacs-directory '(#$ . 33540) :type 'string :group 'customize :version "22.1")
#@689 List of directories to search for custom theme files.
When loading custom themes (e.g. in `customize-themes' and
`load-theme'), Emacs searches for theme files in the specified
order. Each element in the list should be one of the following:
- the symbol `custom-theme-directory', meaning the value of
`custom-theme-directory'.
- the symbol t, meaning the built-in theme directory (a directory
named "themes" in `data-directory').
- a directory name (a string).
Each theme file is named THEME-theme.el, where THEME is the theme
name.
This variable is designed for use in lisp code (including
external packages). For manual user customizations, use
`custom-theme-directory' instead.
(defvar custom-theme-load-path (list 'custom-theme-directory t) (#$ . 33915))
#@242 Whether the custom-theme-set-* functions act immediately.
If nil, `custom-theme-set-variables' and `custom-theme-set-faces'
change the current values of the given variable or face. If
non-nil, they just make a record of the theme settings.
(defvar custom--inhibit-theme-enable nil (#$ . 34688))
#@201 Indicate that this file provides THEME.
This calls `provide' to provide the feature name stored in THEME's
property `theme-feature' (which is usually a symbol created by
`custom-make-theme-feature').
(defalias 'provide-theme #[(theme) "\302!\204 \303\304\"\210\211\211 >)?\205 \303\305\")\210\306\307N!\207" [theme custom-known-themes custom-theme-name-valid-p error "Custom theme cannot be named %S" "Unknown theme `%s'" provide theme-feature] 4 (#$ . 34991)])
#@376 Themes that are considered safe to load.
If the value is a list, each element should be either the SHA-256
hash of a safe theme file, or the symbol `default', which stands
for any theme in the built-in Emacs theme directory (a directory
named "themes" in `data-directory').
If the value is t, Emacs treats all themes as safe.
This variable cannot be set in a Custom theme.
(custom-declare-variable 'custom-safe-themes ''(default) '(#$ . 35469) :type '(choice (repeat :tag "List of safe themes" (choice string (const :tag "Built-in themes" default))) (const :tag "All themes" t)) :group 'customize :risky t :version "24.1")
#@790 Load Custom theme named THEME from its file.
The theme file is named THEME-theme.el, in one of the directories
specified by `custom-theme-load-path'.
If the theme is not considered safe by `custom-safe-themes',
prompt the user for confirmation before loading it. But if
optional arg NO-CONFIRM is non-nil, load the theme without
prompting.
Normally, this function also enables THEME. If optional arg
NO-ENABLE is non-nil, load the theme but don't enable it, unless
the theme was already enabled.
This function is normally called through Customize when setting
`custom-enabled-themes'. If used directly in your init file, it
should be called with a non-nil NO-CONFIRM argument, or after
`custom-safe-themes' has been loaded.
Return t if THEME was successfully loaded, nil otherwise.
(defalias 'load-theme #[(theme &optional no-confirm no-enable) "\306!\204 \307\310\"\210 \203 \211\n>)?\211 >)\2036 \311!\210\312\313\314#\210\312\315\314#\210\312\316\314#\210\317\320!\321P\322 \323#\211 \204J \307\324\"\210\325\326! r
q\210\327\216\330\f!\210%\204\214 &\331=\204\214 \332&>\203w \333\f!\334\335'\"\232\204\214 \336\337p\"\211 (&\235\206\210 \340(!)\205\351 \331\f ) *\341 \210*\313N\211 + ,\314 -,\203\314 -\204\314 ,@@\342=\203\303 ,@A@\332=\203\303 ,@-,A\211,\204\246 -\203\337 \312\313-\343-+\"B#\210+ \204\350 \344!\210\331,\207" [theme no-enable custom-enabled-themes custom-known-themes fn #1=#:temp-buffer custom-theme-name-valid-p error "Invalid theme name `%s'" disable-theme put theme-settings nil theme-feature theme-documentation locate-file symbol-name "-theme.el" custom-theme--load-path ("" "c") "Unable to find theme file for `%s'" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents t default file-name-directory expand-file-name "themes/" secure-hash sha256 custom-theme-load-confirm eval-buffer theme-face delq enable-theme no-confirm custom-safe-themes data-directory hash buffer-file-name custom--inhibit-theme-enable settings tail found] 8 (#$ . 36101) (list (intern (completing-read "Load custom theme: " (mapcar 'symbol-name (custom-available-themes)))) nil nil)])
#@185 Query the user about loading a Custom theme that may not be safe.
The theme should be in the current buffer. If the user agrees,
query also about adding HASH to `custom-safe-themes'.
(defalias 'custom-theme-load-confirm #[(hash) "?\2058 \305 \306\216\307\310\311\"\210\312 \210\313p!\210eb\210\314\315!\2054 \n\204' \2033 \314\316!\2033 \317\320\fC\"\210\311\321 \210*\207" [noninteractive #1=#:wconfig custom-file user-init-file hash current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] rename-buffer "*Custom Theme*" t emacs-lisp-mode pop-to-buffer y-or-n-p "Loading a theme can run Lisp code. Really load? " "Treat this theme as safe in future sessions? " customize-push-and-save custom-safe-themes quit-window] 3 (#$ . 38304)])
#@94 Return t if NAME is a valid name for a Custom theme, nil otherwise.
NAME should be a symbol.
(defalias 'custom-theme-name-valid-p #[(name) "9\205 \205 \301!G\302U\206 \303=\206 \304=?\207" [name symbol-name 0 user changed] 2 (#$ . 39076)])
#@401 Return a list of Custom themes available for loading.
Search the directories specified by `custom-theme-load-path' for
files named FOO-theme.el, and return a list of FOO symbols.
The returned symbols may not correspond to themes that have been
loaded, and no effort is made to check that the files contain
valid Custom themes. For a list of loaded themes, check the
variable `custom-known-themes'.
(defalias 'custom-available-themes #[nil "\305\211\306 \305\211\203V @\307\n!\203O \310\311\312\n\"\313\"\305 \211\203N @\314\f!\315\316\f\"\203G \317\320\321\f\"!\211\203G \322 !\203G B A\211\204$ * A\211\204
*\323!\237*\207" [themes sym dir --dolist-tail-- file nil custom-theme--load-path file-directory-p file-expand-wildcards expand-file-name "*-theme.el" t file-name-nondirectory string-match "\\`\\(.+\\)-theme.el\\'" intern match-string 1 custom-theme-name-valid-p delete-dups] 5 (#$ . 39332)])
(defalias 'custom-theme--load-path #[nil "\306 \306\211\2034 @\211\304=\203 \f\202# \n\307=\203# \310\311
\"\312\n!\203- \nB A\211\204\n *\237)\207" [lpath custom-theme-load-path f --dolist-tail-- custom-theme-directory data-directory nil t expand-file-name "themes" file-directory-p] 4])
#@212 Reenable all variable and face settings defined by THEME.
THEME should be either `user', or a theme loaded via `load-theme'.
After this function completes, THEME will have the highest
precedence (after `user').
(defalias 'enable-theme #[(theme) "\211 >)\204 \306\307\"\210\310N\211\311\211 \203a \f@\211@ A@\211
N \312
AA\313\"B#\210
\314=\203G \315!\210\202Y
\316=\203Y \317>\204Y \320!\210+\fA\211\204 +\321=?\205u \322\"B\323\321!\207" [theme custom-known-themes settings s --dolist-tail-- prop error "Undefined Custom theme %s" theme-settings nil put assq-delete-all theme-face custom-theme-recalc-face theme-value (custom-enabled-themes custom-safe-themes) custom-theme-recalc-variable user delq enable-theme symbol spec-list custom-enabled-themes] 8 (#$ . 40561) (list (intern (completing-read "Enable custom theme: " obarray #'(lambda (sym) (get sym 'theme-settings)) t)))])
#@374 List of enabled Custom Themes, highest precedence first.
This list does not include the `user' theme, which is set by
Customize and always takes precedence over other Custom Themes.
This variable cannot be defined inside a Custom theme; there, it
is simply ignored.
Setting this variable through Customize calls `enable-theme' or
`load-theme' for each theme in the list.
(custom-declare-variable 'custom-enabled-themes nil '(#$ . 41484) :group 'customize :type '(repeat symbol) :set-after '(custom-theme-directory custom-theme-load-path custom-safe-themes) :risky t :set #[(symbol themes) "\306\307\310\311 !\"\312\n!\203- \nJ\306\211 \203, \f@\211 >\204% \313 !\210\fA\211\204 *\314 !\306\211 \203g \f@\3151T \211
>)\203M \316 !\202P \317 !0\202_ \210 B\307 \"\211\210\fA\211\2047 *\316\310!\210\320\n \"\210\205} \321\322\323\324\325#\")\207" [failures themes symbol theme --dolist-tail-- custom-known-themes nil delq user delete-dups boundp disable-theme reverse (error) enable-theme load-theme custom-set-default message "Failed to enable theme: %s" mapconcat symbol-name ", "] 7])
#@37 Return non-nil if THEME is enabled.
(defalias 'custom-theme-enabled-p #[(theme) " >\207" [theme custom-enabled-themes] 2 (#$ . 42595)])
(put 'custom-theme-enabled-p 'byte-optimizer 'byte-compile-inline-expand)
#@116 Disable all variable and face settings defined by THEME.
See `custom-enabled-themes' for a list of enabled themes.
(defalias 'disable-theme #[(theme) "\211 >)\205\253 \306N\211\307\211 \203h \f@\211@ A@ \310
N\" !\311
!#\210
\312=\203? \313 !\210\202`
\314=\203` \315 8 \316N\232\203` \311 \316!\205^ !@A@#\210+\fA\211\204 *\317 \307 \"\211 \203\243 \f@\"\320\"\321\322\"\323\324\325\326\327&#\210\320\"\330\322\"\331\332\333\334\335&#\210\336\"!\210\fA\211\204s *\337 \"\211)\207" [theme custom-enabled-themes settings s --dolist-tail-- prop theme-settings nil assq-delete-all put theme-value custom-theme-recalc-variable theme-face 3 saved-face frame-list set-frame-parameter background-color custom--frame-color-default :background "background" "Background" "unspecified-bg" "white" foreground-color :foreground "foreground" "Foreground" "unspecified-fg" "black" face-set-after-frame-default delq symbol val frame] 11 (#$ . 42813) (list (intern (completing-read "Disable custom theme: " (mapcar 'symbol-name custom-enabled-themes) nil t)))])
(defalias 'custom--frame-color-default #[(frame attribute resource-attr resource-class tty-default x-default) "\306\307\310#\211\203 \311=\204 \202- \312\n!\204 \202- \313\f
\"\211\203+ \202- \f)\207" [attribute col frame tty-default resource-attr resource-class face-attribute default t unspecified window-system x-get-resource x-default] 5])
#@246 Return (list VALUE) indicating the custom theme value of VARIABLE.
That is to say, it specifies what the value should be according to
currently enabled custom themes.
This function returns nil if no custom theme specifies a value for VARIABLE.
(defalias 'custom-variable-theme-value #[(variable) "\301N\211\205 @A)\207" [variable theme-value] 3 (#$ . 44253)])
#@60 Set VARIABLE according to currently enabled custom themes.
(defalias 'custom-theme-recalc-variable #[(variable) "\302!\211\203 \303\304 #\210\202 \305N \2052 \306N\204% \307!\2052 \310N\206, \311\312 @!\")\207" [variable valspec custom-variable-theme-value put saved-value standard-value force-value default-boundp custom-set set-default eval] 5 (#$ . 44624)])
#@179 Set FACE according to currently enabled custom themes.
If FACE is not initialized as a face, do nothing; otherwise call
`face-spec-recalc' to recalculate the face on all frames.
(defalias 'custom-theme-recalc-face #[(face) "\303N\203\n \303N\304!\205* \305 \306\211\205) \n@\307 \"\210\nA\211\204 \306*\207" [face frame --dolist-tail-- face-alias facep frame-list nil face-spec-recalc] 4 (#$ . 45003)])
#@202 Reset some variable settings in THEME to their values in other themes.
Each of the arguments ARGS has this form:
(VARIABLE IGNORED)
This means reset VARIABLE. (The argument IGNORED is ignored).
(defalias 'custom-theme-reset-variables #[(theme &rest args) "\211\211 >)?\205 \305\306\")\210\n\307\211 \205- \f@\310\311 @\312$\210\fA\211\204 \307*\207" [theme custom-known-themes args arg --dolist-tail-- error "Unknown theme `%s'" nil custom-push-theme theme-value reset] 6 (#$ . 45423)])
#@242 Reset the specs of some variables to their values in other themes.
This creates settings in the `user' theme.
Each of the arguments ARGS has this form:
(VARIABLE IGNORED)
This means reset VARIABLE. (The argument IGNORED is ignored).
(defalias 'custom-reset-variables #[(&rest args) "\301\302\303#\207" [args apply custom-theme-reset-variables user] 4 (#$ . 45934)])
(provide 'custom)
Kontol Shell Bypass