Current File : //usr/local/share/emacs/27.2/lisp/custom.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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))
#@315 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.
(fn SYMBOL EXP)
(defalias 'custom-initialize-default #[514 "\3001 \301!0\207\210\302\303\304N\211\203 \211@\202 \262\305\"\"\207" [(void-variable) default-toplevel-value set-default-toplevel-value eval saved-value t] 7 (#$ . 851)])
#@276 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.
(fn SYMBOL EXP)
(defalias 'custom-initialize-set #[514 "\3001 \301!0\207\210\302N\206 \303\304\305N\211\203 \211@\202 \262!\"\207" [(error) default-toplevel-value custom-set set-default-toplevel-value eval saved-value] 7 (#$ . 1396)])
#@319 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.
(fn SYMBOL EXP)
(defalias 'custom-initialize-reset #[514 "\300N\206 \301\3021$ \303!\304N\211\203 \211!\202 \266\2020\2026 \210\305\306N\211\2032 \211@\2023 \262!\"\207" [custom-set set-default-toplevel-value (error) default-toplevel-value custom-get eval saved-value] 8 (#$ . 1907)])
#@191 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'.
(fn SYMBOL EXP)
(defalias 'custom-initialize-changed #[514 "\3001% \301!\302N\206 \303\211\304N\211\203 \211!\202 \262\"\2620\207\210\305N\203< \302N\2063 \303\306\305N@!\"\207\307\306!\"\207" [(error) default-toplevel-value custom-set set-default-toplevel-value custom-get saved-value eval set-default] 8 (#$ . 2514)])
#@52 List of variables whose initialization is pending.
(defvar custom-delayed-init-variables nil (#$ . 3031))
#@679 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.
(fn SYMBOL VALUE)
(defalias 'custom-initialize-delay #[514 "B\211\207" [custom-delayed-init-variables] 4 (#$ . 3144)])
#@402 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.
(fn SYMBOL DEFAULT DOC &rest ARGS)
(defalias 'custom-declare-variable #[899 "\301\302\303C!#\210\304N\203 \301\304\305#\210\306!\203 \307\310!\210\311\305\211\312>\2041 \313\314 \315#\210\203\352 \211A\262\242\2119\204F \307\316\"\210\204O \307\317\"\210\211A\262\242\320\267\202\335 \211\262\202\345 \301 \321#\210\202\345 \301 \322#\210\202\345 \211B\262\202\345 \301 \323#\210\202\345 \301 \324#\210\202\345 \211\325>\203\232 \326\262\211\327=\203\345 \301 \330\326#\210\202\345 \301 \331\303!#\210\202\345 \332N\203\321 \333\334\335\336\337\340!\341\"\342\343%\"\210\202\345 \301 \332\344!#\210\202\345 \345 \315$\210\266\2021 \346\"\210\301\347#\210\204\"\210\211\203\f\350!\210\266\351\352!\210\207" [custom-dont-initialize 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" #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:initialize 91 :set 97 :get 107 :require 117 :risky 125 :safe 135 :local 145 :type 170 :options 182)) custom-set custom-get risky-local-variable safe-local-variable (t permanent) t permanent permanent-local custom-type custom-options mapc make-byte-code 257 "\301\300\"\207" vconcat vector [custom-add-option] 4 "\n\n(fn OPTION)" copy-sequence custom-handle-keyword internal--define-uninitialized-variable custom-requests make-variable-buffer-local run-hooks custom-define-hook] 16 (#$ . 3933)])
#@5728 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'.
:local If VALUE is t, mark SYMBOL as automatically buffer-local.
If VALUE is `permanent', also set SYMBOL's `permanent-local'
property to t.
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. For packages which
are bundled with Emacs releases, 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.)
This macro calls `custom-declare-variable'. If you want to
programmatically alter a customizable variable (for instance, to
write a package that extends the syntax of a variable), you can
call that function directly.
See Info node `(elisp) Customization' in the Emacs Lisp manual
for more information.
(fn SYMBOL STANDARD DOC &rest ARGS)
(defalias 'defcustom '(macro . #[899 "\301\302D\203 \303\304\305\306\307\310\nECBDDCB\202 \302DBBBB\207" [lexical-binding custom-declare-variable quote \` funcall function \, lambda nil] 13 (#$ . 5912)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put defcustom doc-string-elt 3 put edebug-form-spec (name body)] 5)
#@2649 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.
(fn FACE SPEC DOC &rest ARGS)
(defalias 'defface '(macro . #[899 "\300\301DF\244\207" [custom-declare-face quote] 8 (#$ . 11990)]))
(byte-code "\300\301\302\303#\300\207" [function-put defface doc-string-elt 3] 4)
(defalias 'custom-current-group #[0 "\302 \"A\207" [load-file-name custom-current-group-alist assoc] 3])
#@100 Like `defgroup', but SYMBOL is evaluated as a normal argument.
(fn SYMBOL MEMBERS DOC &rest ARGS)
(defalias 'custom-declare-group #[899 "\203 \302\303@#\210A\262\202 \203 \304\305\306!#\210\211\203a \211@A\262\2119\2042 \307\310\"\210\211@\204> \307\311\"\210A\262\312=\203T \304\313\306!#\210\202\\ \314\315$\210\266\202 \316 \"\211\203p \211\241\210\202v B B\210\317\320!\210\207" [load-file-name custom-current-group-alist 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] 12 (#$ . 14939)])
#@867 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.
(fn SYMBOL MEMBERS DOC &rest ARGS)
(defalias 'defgroup '(macro . #[899 "\300\301DF\244\207" [custom-declare-group quote] 8 (#$ . 15638)]))
(byte-code "\300\301\302\303#\300\207" [function-put defgroup doc-string-elt 3] 4)
#@147 To existing GROUP add a new OPTION of type WIDGET.
If there already is an entry for OPTION and WIDGET, nothing is done.
(fn GROUP OPTION WIDGET)
(defalias 'custom-add-to-group #[771 "\300ND\211\235?\205 \301\300C\244#\207" [custom-group put] 10 (#$ . 16702)])
#@117 Return the custom group corresponding to the major or minor MODE.
If no such group is found, return nil.
(fn MODE)
(defalias 'custom-group-of-mode #[257 "\211\300N\206( \211\301N\204' \302\303\304!\"\205( \305\306\304!\307\211\224#!\211\262\301N\205( \211\207" [custom-mode-group custom-group string-match "-mode\\'" symbol-name intern substring 0] 6 (#$ . 16978)])
#@135 For customization option SYMBOL, handle keyword arguments ARGS.
Third argument TYPE is the custom option type.
(fn SYMBOL ARGS TYPE)
(defalias 'custom-handle-all-keywords #[771 "\300>\204
\301\302 #\210\205> @A\262\2119\204! \303\304\"\210\211@\204- \303\305\"\210A\262\306$\266\202
\207" [:group custom-add-to-group custom-current-group error "Junk in args %S" "Keyword %s is missing an argument" custom-handle-keyword] 11 (#$ . 17355)])
#@141 For customization option SYMBOL, handle KEYWORD with VALUE.
Fourth argument TYPE is the custom option type.
(fn SYMBOL KEYWORD VALUE TYPE)
(defalias 'custom-handle-keyword #[1028 "\203 \301!\262\302\267\2024 \303#\207\304\"\207\305\"\207\306\"\207\307\"\207\310\311#\207\312\"\207\313\314\"\207" [purify-flag purecopy #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:group 15 :version 21 :package-version 26 :link 31 :load 36 :tag 41 :set-after 47)) custom-add-to-group custom-add-version custom-add-package-version custom-add-link custom-add-load put custom-tag custom-add-dependencies error "Unknown keyword %s"] 8 (#$ . 17824)])
#@279 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'.
(fn SYMBOL VALUE)
(defalias 'custom-add-dependencies #[514 "\211<\204\n \300\301\"\210\302N\211\2031 @\2119\204 \300\301\"\210\211>\204) \211B\262A\262\210\202 =?\205= \303\302#\207" [error "Invalid custom dependency `%s'" custom-dependencies put] 8 (#$ . 18523)])
#@284 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.
(fn SYMBOL OPTION)
(defalias 'custom-add-option #[514 "\300N\235?\205 \301\300B#\207" [custom-options put] 8 (#$ . 19071)])
(defalias 'custom-add-frequent-value 'custom-add-option)
#@70 To the custom option SYMBOL add the link WIDGET.
(fn SYMBOL WIDGET)
(defalias 'custom-add-link #[514 "\300N\235?\205 \301\300\302!B#\207" [custom-links put purecopy] 8 (#$ . 19529)])
#@75 To the custom option SYMBOL add the version VERSION.
(fn SYMBOL VERSION)
(defalias 'custom-add-version #[514 "\300\301\302!#\207" [put custom-version purecopy] 7 (#$ . 19726)])
#@83 To the custom option SYMBOL add the package version VERSION.
(fn SYMBOL VERSION)
(defalias 'custom-add-package-version #[514 "\300\301\302!#\207" [put custom-package-version purecopy] 7 (#$ . 19912)])
#@134 To the custom option SYMBOL add the dependency LOAD.
LOAD should be either a library file name, or a feature name.
(fn SYMBOL LOAD)
(defalias 'custom-add-load #[514 "\300N\235?\205 \301\300\302!B#\207" [custom-loads put purecopy] 8 (#$ . 20123)])
#@180 Mark SYMBOL as autoloaded custom variable and add dependency LOAD.
If NOSET is non-nil, don't bother autoloading LOAD when setting the variable.
(fn SYMBOL LOAD &optional NOSET)
(defalias 'custom-autoload #[770 "\300\301\203 \302\202\f \303#\210\304\"\207" [put custom-autoload noset t custom-add-load] 7 (#$ . 20385)])
#@259 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.
(fn VARIABLE)
(defalias 'custom-variable-p #[257 "\2119\205 \300!\262\211\301N\206 \211\302N\207" [indirect-variable standard-value custom-autoload] 3 (#$ . 20718)])
(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)
#@192 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.
(fn VARIABLE)
(defalias 'custom-note-var-changed #[257 "\300\301\302\303!!C#\207" [put customized-value custom-quote eval] 7 (#$ . 21268)])
#@39 Hack to avoid recursive dependencies.
(defvar custom-load-recursion nil (#$ . 21593))
#@48 Load all dependencies for SYMBOL.
(fn SYMBOL)
(defalias 'custom-load-symbol #[257 "?\205\244 \303\3041 \305\306!0\202 \210\202 \210\3071\" \305\310!0\202& \210\202' \210\211\311N\211\205\241 \211@\2119\203H \3121@ \305!0\202D \210\202\232 \210\202\232 \313 \"\204\232 \314\315!\316Q\317 \211\203~ \211@\211@;\203w @\317\303\320#)\266\203\203w \303\262A\266\202\202W \210\262\204\232 \211\321\232\204\232 \3221\225 \323!0\202\231 \210\202\232 \210A\266\202\202* \262)\207" [custom-load-recursion load-history inhibit-changing-match-data t (error) require cus-load (error) cus-start custom-loads (error) assoc "\\(\\`\\|/\\)" regexp-quote "\\(\\'\\|\\.\\)" nil string-match "cus-edit" (error) load] 14 (#$ . 21685)])
#@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 (#$ . 22428))
(put 'custom-local-buffer 'permanent-local t)
#@226 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.
(fn VARIABLE VALUE)
(defalias 'custom-set-default #[514 "\203
rq\210L)\207\301\"\207" [custom-local-buffer set-default] 5 (#$ . 22811)])
#@248 :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.
(fn VARIABLE VALUE)
(defalias 'custom-set-minor-mode #[514 "\203 rq\210\203 \301\202 \302!)\207\203 \301\202 \302!\207" [custom-local-buffer 1 0] 4 (#$ . 23167)])
#@50 Quote SEXP if it is not self quoting.
(fn SEXP)
(defalias 'custom-quote #[257 "\211:\204 \300!\204 \2119\203 \301!\203 \207\302D\207" [keywordp booleanp quote] 3 (#$ . 23574)])
#@341 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.
(fn SYMBOL)
(defalias 'customize-mark-to-save #[257 "\300!\210\211\301N\206 \302\211!\303N\304N\305N\306\303\2051 \3071. \310@!0\2020 \210\311\232?\205: \312!C#\210\306\313\311#\210\211\203N \306\314#\210\303N\232?\207" [custom-load-symbol custom-get default-value saved-value standard-value customized-variable-comment put (error) eval nil custom-quote customized-value saved-variable-comment] 12 (#$ . 23766)])
#@382 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.
(fn SYMBOL)
(defalias 'customize-mark-as-set #[257 "\300!\210\211\301N\206 \302\211!\303N\304N\206 \305N\211\2031 \3061+ \307@!0\202- \210\310\232\204J \311\303\312!C#\210\313\314\315\316\312!%\210\202P \311\303\310#\210\303N\232?\207" [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] 12 (#$ . 24537)])
#@297 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.
(fn SYMBOL)
(defalias 'custom-reevaluate-setting #[257 "\300!\204 \301\302\303BB!\210\211\304N\206 \305\301\306N\206 \307N@!\"\207" [default-boundp eval defvar (nil) custom-set set-default saved-value standard-value] 6 (#$ . 25349)])
#@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) (#$ . 25882))
#@50 Non-nil when THEME has been defined.
(fn THEME)
(defalias 'custom-theme-p #[257 "\211>\207" [custom-known-themes] 3 (#$ . 26285)])
(put 'custom-theme-p 'byte-optimizer 'byte-compile-inline-expand)
#@77 Check whether THEME is valid, and signal an error if it is not.
(fn THEME)
(defalias 'custom-check-theme #[257 "\211\211>\262?\205 \301\302\"\207" [custom-known-themes error "Unknown theme `%s'"] 4 (#$ . 26490)])
(put 'custom-check-theme 'byte-optimizer 'byte-compile-inline-expand)
#@14
(fn THEME)
(defalias 'custom--should-apply-setting #[257 "?\206 \301=\205 \211\302=\207" [custom--inhibit-theme-enable apply-only-user user] 3 (#$ . 26784)])
#@437 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.
(fn PROP SYMBOL THEME MODE &optional VALUE)
(defalias 'custom-push-theme #[1284 "\300>\204\n \301\302!\210N\236\303N\304=\203[ \205\305\211\203@ \211@\211@ =\2039 \211A@\n=\2039 \211\262A\266\202\202 \210\306\303\307\"#\266\306 \307\"#\202\203\257 \305\211\203\202 \211@\211@ =\203{ \211A@\n=\203{ \211\262A\266\202\202a \210\306\303 \nF\307\"B#\210\306\n D\307 \"B#\262\202\310!\203\365 \204\346 \311=\203\346 \312!\203\346 \313NJ\203\334 \314@!\232\204\344 \315\316!DC\262\266\306 DB#\210\306\303\n\n\n FB#\207" [(theme-value theme-face) error "Unknown theme property" theme-settings reset nil put delq custom--should-apply-setting theme-value boundp standard-value eval changed custom-quote] 16 (#$ . 26955)])
#@126 Convert face SPEC, replacing obsolete :bold and :italic attributes.
Also change :reverse-video to :inverse-video.
(fn SPEC)
(defalias 'custom-fix-face-spec #[257 "\211<\205v \300>\204 \301>\204 \302>\203u \303\203r @A@\304\267\202^ \305B\262\211\2034 \306\2025 \307B\262\202h \310B\262\211\203I \311\202J \307B\262\202h \302B\262\211B\262\202h B\262\211B\262\266AA\262\202 \211\237\207\211\207" [:bold :italic :inverse-video nil #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:italic 39 :bold 60 :reverse-video 81)) :slant italic normal :weight bold] 6 (#$ . 28159)])
#@535 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.
(fn &rest ARGS)
(defalias 'custom-set-variables #[128 "\300\301\302#\207" [apply custom-theme-set-variables user] 5 (#$ . 28804)])
#@836 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.
(fn THEME &rest ARGS)
(defalias 'custom-theme-set-variables #[385 "\211\211>\262?\205 \301\302\"\266\211\211\2036 \211@\303@!\211\304N\204. \211\305N\306>\204. \307!\210\210A\266\202\202 \210\310!\262\211\211\205\351 \211@\211<\204L \301\311!\210\303@!A@\312\313\314%\210\315!\203\340 \3168\3178\3208\321\203} \322\323#\210\324\325\"\210\326N\206\204 \327\262\322\330C#\210\322\331#\210\3321\303 \203\260 \322\333\334#\210\211\335!\"\202\277 \336!\205\277 \211\335!\"0\202\313 \337\340#\262\210\204\327 \336!\203\336 \322\341#\210\266\266A\266\202\202= \207" [custom-known-themes error "Unknown theme `%s'" indirect-variable standard-value custom-autoload (nil noset) custom-load-symbol custom--sort-vars "Incompatible Custom theme spec" custom-push-theme theme-value set custom--should-apply-setting 2 3 4 nil 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] 15 (#$ . 29461)])
#@285 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').
(fn VARS)
(defalias 'custom--sort-vars #[257 "\302 \302 \303\211C\211\203* \211@\304@\305B #\210\304@#\210A\266\202\202\f \210\211\203Q \211@\211@\306N\211\203I \211@\307\"\210A\266\202\2026 \210A\266\202\202, \210\310\311\312\313\314\315\"\316\"\317\320%\"\210\310\321\"\210\322\242\"\237*\207" [custom--sort-vars-result custom--sort-vars-table make-hash-table nil puthash t custom-dependencies remhash maphash make-byte-code 514 "\302N?\205 \3038\204 \304N\305=\205 \306\300\"\210\301\301\242B\240\207" vconcat vector [custom-dependencies 3 custom-set custom-set-minor-mode remhash] 5 "\n\n(fn SYM VAR)" custom--sort-vars-1 append] 13 (#$ . 31362)])
#@30
(fn SYM &optional IGNORED)
(defalias 'custom--sort-vars-1 #[513 "\302\"\211\205> \211@\303=\203 \304\305\"\202> \211@\205> \211\303\240\210\306N\211\2033 \211@\307!\210A\266\202\202\" \210\211\310\240\210\211A B\211\207" [custom--sort-vars-table custom--sort-vars-result gethash dependant error "Circular custom dependency on `%s'" custom-dependencies custom--sort-vars-1 nil] 7 (#$ . 32328)])
#@263 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.
(fn THEME &optional DOC &rest IGNORED)
(defalias 'deftheme '(macro . #[641 "\300!\301\302D\302DF\207" [custom-make-theme-feature custom-declare-theme quote] 8 (#$ . 32739)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put deftheme doc-string-elt 2 set-advertised-calling-convention (theme &optional doc) "22.1"] 5)
#@234 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'.
(fn THEME FEATURE &optional DOC &rest IGNORED)
(defalias 'custom-declare-theme #[898 "\301!\204 \302\303\"\210>\204 B\304\305#\210\205$ \304\306#\207" [custom-known-themes custom-theme-name-valid-p error "Custom theme cannot be named %S" put theme-feature theme-documentation] 8 (#$ . 33307)])
(set-advertised-calling-convention 'custom-declare-theme '(theme feature &optional doc) "22.1")
#@419 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'.
(fn THEME)
(defalias 'custom-make-theme-feature #[257 "\300\301!\302P!\207" [intern symbol-name "-theme"] 4 (#$ . 33904)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable custom-theme-directory funcall function #[0 "\207" [user-emacs-directory] 1] "Default user directory for storing custom theme files.\nThe command `customize-create-theme' writes theme files into this\ndirectory. By default, Emacs searches for custom themes in this\ndirectory first---see `custom-theme-load-path'." :initialize custom-initialize-delay :type string :group customize :version "22.1"] 12)
#@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) (#$ . 34949))
#@348 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
t, they just make a record of the theme settings. If the
value is `apply-only-user', then apply setting to the
`user' theme immediately and defer other updates.
(defvar custom--inhibit-theme-enable 'apply-only-user (#$ . 35722))
#@213 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').
(fn THEME)
(defalias 'provide-theme #[257 "\301!\204 \302\303\"\210\211\211\211>\262?\205 \302\304\"\266\305\306N!\207" [custom-known-themes custom-theme-name-valid-p error "Custom theme cannot be named %S" "Unknown theme `%s'" provide theme-feature] 5 (#$ . 36144)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable custom-safe-themes funcall function #[0 "\300\207" [(default)] 1] "Themes that are considered safe to load.\nIf the value is a list, each element should be either the SHA-256\nhash of a safe theme file, or the symbol `default', which stands\nfor any theme in the built-in Emacs theme directory (a directory\nnamed \"themes\" in `data-directory').\n\nIf the value is t, Emacs treats all themes as safe.\n\nThis variable cannot be set in a Custom theme." :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"] 12)
#@1069 Load Custom theme named THEME from its file and possibly enable it.
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.
Note that enabling THEME does not disable any other
already-enabled themes. If THEME is enabled, it has the highest
precedence (after `user') among enabled themes. To disable other
themes, use `disable-theme'.
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.
(fn THEME &optional NO-CONFIRM NO-ENABLE)
(defalias 'load-theme #[769 "\305!\204 \306\307\"\210\211\203 \211>\262?\262\211 >\262\2037 \310!\210\311\312\313#\210\311\314\313#\210\311\315\313#\210\316\317!\320P\321 \322#\323\211\204O \306\324\"\210\202\262 \204j \323=\204j \325 >\203w \326!\327\330\f\"\232\203w \331\332!\313\323\313\323%\210\202\262 \333\334!r\211q\210\335\336\337\340\341!\342\"\343$\216\344!\210\345\346p\"\211 \235\204\236 \347!\205\245 \350\313\211#\210\323\262*\262\204\262 \306\351\"\210)\210\312N\211\313\203\335 \211\204\335 @@\352=\203\326 @A@\325=\203\326 @\262A\262\202\271 \211\203\356 \311\312\353\"B#\210\266\211\204\370 \354!\210\323\207" [custom-enabled-themes custom-known-themes custom--inhibit-theme-enable custom-safe-themes data-directory 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") t "Unable to find theme file for `%s'" default file-name-directory expand-file-name "themes/" load file-name-sans-extension generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents secure-hash sha256 custom-theme-load-confirm eval-buffer "Unable to load theme `%s'" theme-face delq enable-theme] 13 (#$ . 37367) (byte-code "\300\301\302\303\304\305 \"\"!\306\211E\207" [intern completing-read "Load custom theme: " mapcar symbol-name custom-available-themes nil] 6)])
#@196 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'.
(fn HASH)
(defalias 'custom-theme-load-confirm #[257 "?\205C \303 \304\305\306\307\310!\311\"\312$\216\313\314\315\"\210\316 \210\317p!\210eb\210\320\321!\205= \2040 \n\203< \320\322!\203< \323\324C\"\210\315\325 \210)\262\207" [noninteractive custom-file user-init-file current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [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] 8 (#$ . 39972)])
#@105 Return t if NAME is a valid name for a Custom theme, nil otherwise.
NAME should be a symbol.
(fn NAME)
(defalias 'custom-theme-name-valid-p #[257 "\211\300>?\205 \2119\205 \301!\302\230?\207" [(nil user changed) symbol-name ""] 3 (#$ . 40791)])
#@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 #[0 "\301\302\303 \211\203S \211@\304!\205 \305\302#\211\203K \211@\306\307\310 \302\311\312#)\266\203#!\313!\203C \211>\204C \211B\262\210A\266\202\202 \210A\266\202\202 \210\211\237\207" [inhibit-changing-match-data "-theme\\.el\\'" nil custom-theme--load-path file-directory-p directory-files intern substring 0 t string-match custom-theme-name-valid-p] 17 (#$ . 41047)])
#@176 Expand `custom-theme-load-path' into a list of directories.
Members of `custom-theme-load-path' that either don't exist or
are not directories are omitted from the expansion.
(defalias 'custom-theme--load-path #[0 "\303\211\203, \211@\211\304\267\202 \262\202 \305\306\n\"\262\307!\203% \211B\262A\266\202\202 \210\211\237\207" [custom-theme-load-path custom-theme-directory data-directory nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (custom-theme-directory 14 t 20)) expand-file-name "themes" file-directory-p] 6 (#$ . 41886)])
#@372 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') among enabled themes.
Note that any already-enabled themes remain enabled after this
function runs. To disable other themes, use `disable-theme'.
(fn THEME)
(defalias 'enable-theme #[257 "\211\211>\262\204 \302\303\"\210\211\304N\211\211\203P \211@\211@A@\211N\305AA\306 \"B#\210\307\267\202G \310!\210\202G \311>\204G \312!\210\266A\266\202\202 \266\211\313=?\205c \211\314 \"B\315\313!\207" [custom-known-themes custom-enabled-themes error "Undefined Custom theme %s" theme-settings put assq-delete-all #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (theme-face 54 theme-value 61)) custom-theme-recalc-face (custom-enabled-themes custom-safe-themes) custom-theme-recalc-variable user remq enable-theme] 14 (#$ . 42478) (byte-code "\301\302\303\304\305$!C\207" [obarray intern completing-read "Enable custom theme: " #[257 "\211\300N\207" [theme-settings] 3 "\n\n(fn SYM)"] t] 6)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317&
\207" [custom-declare-variable custom-enabled-themes funcall function #[0 "\300\207" [nil] 1] "List of enabled Custom Themes, highest precedence first.\nThis list does not include the `user' theme, which is set by\nCustomize and always takes precedence over other Custom Themes.\n\nThis variable cannot be defined inside a Custom theme; there, it\nis simply ignored.\n\nSetting this variable through Customize calls `enable-theme' or\n`load-theme' for each theme in the list." :group customize :type (repeat symbol) :set-after (custom-theme-directory custom-theme-load-path custom-safe-themes) :risky t :set #[514 "\301\302\303\304!\"\262\305!\205 J\211\203( \211@\211>\204! \306!\210A\266\202\202 \210\307!\211\203a \211@\3101L \211\211>\262\203E \311!\202H \312!0\202Y \210\211B\262\302\"\211\262\210A\266\202\202, \210\311\303!\210\313\"\210\211\205w \314\315\316\317\320#\"\207" [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): %s" mapconcat symbol-name ", "] 9 "\n\n(fn SYMBOL THEMES)"]] 14)
#@49 Return non-nil if THEME is enabled.
(fn THEME)
(defalias 'custom-theme-enabled-p #[257 "\211>\207" [custom-enabled-themes] 3 (#$ . 44857)])
(put 'custom-theme-enabled-p 'byte-optimizer 'byte-compile-inline-expand)
#@128 Disable all variable and face settings defined by THEME.
See `custom-enabled-themes' for a list of enabled themes.
(fn THEME)
(defalias 'disable-theme #[257 "\211\211>\262\205\206 \211\301N\211\211\203N \211@\211@A@\302N\"\303#\210\304\267\202E \305!\210\202E \3068\307N\232\203E \303\307@A@#\210\266A\266\202\202
\266\310 \211\203 \211@\311\312\313\314\315\316\317\320&#\210\311\321\313\322\323\324\325\326&#\210\327!\210A\266\202\202R \210\330\"\211\207" [custom-enabled-themes theme-settings assq-delete-all put #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (theme-value 43 theme-face 50)) custom-theme-recalc-variable 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] 13 (#$ . 45080) (byte-code "\301\302\303\304\305\"\306\307$!C\207" [custom-enabled-themes intern completing-read "Disable custom theme: " mapcar symbol-name nil t] 6)])
#@75
(fn FRAME ATTRIBUTE RESOURCE-ATTR RESOURCE-CLASS TTY-DEFAULT X-DEFAULT)
(defalias 'custom--frame-color-default #[1542 "\300\301\302#\211\203 \211\303=\204 \211\202. \304!\204 \202. \305\"\211\262\203- \211\202. \207" [face-attribute default t unspecified window-system x-get-resource] 10 (#$ . 46217)])
#@261 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.
(fn VARIABLE)
(defalias 'custom-variable-theme-value #[257 "\211\300N\211\205\n \211@A\207" [theme-value] 3 (#$ . 46541)])
#@75 Set VARIABLE according to currently enabled custom themes.
(fn VARIABLE)
(defalias 'custom-theme-recalc-variable #[257 "\300!\211\203 \301\302#\210\202 \303N\262\211\2052 \304N\204% \305!\2052 \306N\206, \307\310@!\"\207" [custom-variable-theme-value put saved-value standard-value force-value default-boundp custom-set set-default eval] 6 (#$ . 46916)])
#@190 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.
(fn FACE)
(defalias 'custom-theme-recalc-face #[257 "\211\300N\203 \211\300N\262\301!\205' \302 \211\205% \211@\303\"\210A\266\202\202 \262\207" [face-alias facep frame-list face-spec-recalc] 6 (#$ . 47291)])
#@225 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).
(fn THEME &rest ARGS)
(defalias 'custom-theme-reset-variables #[385 "\211\211>\262?\205 \301\302\"\266\211\211\205( \211@\303\304@\305$\210A\266\202\202 \207" [custom-known-themes error "Unknown theme `%s'" custom-push-theme theme-value reset] 9 (#$ . 47694)])
#@259 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).
(fn &rest ARGS)
(defalias 'custom-reset-variables #[128 "\300\301\302#\207" [apply custom-theme-reset-variables user] 5 (#$ . 48175)])
(provide 'custom)
Mini Shell