;ELC   
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\207" [require widget cus-edit] 2)
#@37 Keymap for `custom-new-theme-mode'.
(defvar custom-new-theme-mode-map (byte-code "\302 \303\304	\"\"\210\305!\210\306\307\310#\210\306\311\312#\210\306\313\314#\210\306\315\316#\210\207" [widget-keymap special-mode-map make-keymap set-keymap-parent make-composed-keymap suppress-keymap define-key "" custom-theme-write "q" Custom-buffer-done "n" widget-forward "p" widget-backward] 6) (#$ . 153))
(defvar custom-new-theme-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [custom-new-theme-mode-hook variable-documentation put "Hook run after entering Custom-Theme mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp custom-new-theme-mode-map definition-name custom-new-theme-mode] 4)
(defvar custom-new-theme-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\317#\207" [custom-new-theme-mode-abbrev-table custom-new-theme-mode-map variable-documentation put purecopy "Keymap for `custom-new-theme-mode'." boundp custom-new-theme-mode-syntax-table definition-name custom-new-theme-mode (lambda (#1=#:def-tmp-var) (defvar custom-new-theme-mode-syntax-table #1#)) make-syntax-table "Syntax table for `custom-new-theme-mode'." (lambda (#1#) (defvar custom-new-theme-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `custom-new-theme-mode'." derived-mode-parent] 5)
#@252 Major mode for editing Custom themes.
Do not call this mode function yourself.  It is meant for internal use.

This mode runs the hook `custom-new-theme-mode-hook', as the final or
penultimate step during initialization.

\{custom-new-theme-mode-map}
(defalias 'custom-new-theme-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210\313!\210\315 \210\306\316!\210\317)\320\321!\207" [delay-mode-hooks major-mode mode-name custom-new-theme-mode-map custom-new-theme-mode-syntax-table custom-new-theme-mode-abbrev-table make-local-variable t kill-all-local-variables custom-new-theme-mode "Custom-Theme" use-local-map set-syntax-table custom--initialize-widget-variables revert-buffer-function custom-theme-revert run-mode-hooks custom-new-theme-mode-hook local-abbrev-table] 2 (#$ . 1840) nil])
(put 'custom-new-theme-mode 'mode-class 'special)
(defvar custom-theme-name nil)
(defvar custom-theme-variables nil)
(defvar custom-theme-faces nil)
(defvar custom-theme-description nil)
(defvar custom-theme--migrate-settings nil)
(defvar custom-theme-insert-variable-marker nil)
(defvar custom-theme-insert-face-marker nil)
#@55 Faces listed by default in the *Custom Theme* buffer.
(defvar custom-theme--listed-faces '(default cursor fixed-pitch variable-pitch escape-glyph homoglyph minibuffer-prompt highlight region shadow secondary-selection trailing-whitespace font-lock-builtin-face font-lock-comment-delimiter-face font-lock-comment-face font-lock-constant-face font-lock-doc-face font-lock-doc-markup-face font-lock-function-name-face font-lock-keyword-face font-lock-negation-char-face font-lock-preprocessor-face font-lock-regexp-grouping-backslash font-lock-regexp-grouping-construct font-lock-string-face font-lock-type-face font-lock-variable-name-face font-lock-warning-face button link link-visited fringe header-line tooltip mode-line mode-line-buffer-id mode-line-emphasis mode-line-highlight mode-line-inactive isearch isearch-fail lazy-highlight match next-error query-replace) (#$ . 2986))
#@366 Create or edit a custom theme.
THEME, if non-nil, should be an existing theme to edit.  If THEME
is `user', the resulting *Custom Theme* buffer also contains a
checkbox for removing the theme settings specified in the buffer
from the Custom save file.
BUFFER, if non-nil, should be a buffer to use; the default is
named *Custom Theme*.

(fn &optional THEME BUFFER)
(defalias 'customize-create-theme #[512 "\306\307\206 \310!!\210\311\312 \210\313 \210)\314 \210\315\316!\210\315\301!\210\315\302!\210\317\315\303!\210\317\315\304!\210\320\315\305!\210\317\315\321!\210\315\322!\210\315\323!\210\324\325!\203S \326\327!\204S \317\317\211\211\211\203\247 \330=\203h \331\332!\210\202o \333\317\311#\210\334N\211\203\246 \211@\211@\335=\203\221 \211A@B\262\3368B\262\202\237 \211A@B\262\3368B\262A\266\202\202r \210\337\340\341\342\343\344\345\346&\210\331\347!\210\337\340\341\350\343\351\345\352&\210\331\347!\210\337\340\341\353\343\354\345\355&\210\331\356!\210\337\357\360\203\352 \330=\204\352 \361	!\202\353 \320#\331\362!\210\337\363\364\365\360\n\366N\206\367\370!%\337\340\371\372\373$\210\330=\203*\311\331\347!\210\337\374\360\345\375%\210\331\376\377\201@ \201A #!\210\331\201B !\210\203L\203c\201C \211A\262\242\211A\262\242\"\210\2024\211\203b\211@\201C \317\"\210A\266\202\202N\210\201D  \331\201E !\210\337\340\341\201F \343\201G \201H \201I \201J \201K \201L \201M \201N \201M \345\201O &\210\331\201P !\210\203\322\203\322@\201Q =\203\272A\262A\262\202\242\201R \211A\262\242\201S \211A\262\242!\"\210\202\242\201D  \331\201E !\210\337\340\341\201T \343\201U \201H \201I \201J \201K \201L \201M \201N \201M \345\201V &\210\331\201W !\210\201X  \210eb\210\201Y \320!\207" [inhibit-read-only custom-theme--save-name custom-theme-faces custom-theme-variables custom-theme-description custom-theme--migrate-settings switch-to-buffer get-buffer-create "*Custom Theme*" t erase-buffer delete-all-overlays custom-new-theme-mode make-local-variable custom-theme-name nil "" custom-theme-insert-face-marker custom-theme-insert-variable-marker custom-theme--listed-faces called-interactively-p interactive y-or-n-p "Include basic face customizations in this theme? " user widget-insert "This buffer contains all the Custom settings you have made.\nYou can convert them into a new custom theme, and optionally\nremove them from your saved Custom file.\n\n" load-theme theme-settings theme-value 3 widget-create push-button :tag " Visit Theme " :help-echo "Insert the settings of a pre-defined theme." :action #[513 "\300\301!\207" [call-interactively custom-theme-visit-theme] 4 "\n\n(fn WIDGET &optional EVENT)"] "  " " Merge Theme " "Merge in the settings of a pre-defined theme." #[513 "\300\301!\207" [call-interactively custom-theme-merge-theme] 4 "\n\n(fn WIDGET &optional EVENT)"] " Revert " "Revert this buffer to its original state." #[128 "\300 \207" [revert-buffer] 2 "\n\n(fn &rest IGNORED)"] "\n\nTheme name : " editable-field :value symbol-name "Description: " text :format "%v" theme-documentation format-time-string "Created %Y-%m-%d." :notify custom-theme-write " Save Theme " checkbox #[513 "\301!\205 \302\"\210\301!\211\207" [custom-theme--migrate-settings widget-value widget-toggle-action] 5 "\n\n(fn WIDGET &optional EVENT)"] propertize " Remove saved theme settings from Custom save file." face (variable-pitch (:height 0.9)) "\n\n  Theme faces:\n " custom-theme-add-face-1 point-marker " " "Insert Additional Face" "Add another face to this theme." :follow-link mouse-face :button-face custom-link :mouse-face highlight :pressed-face #[513 "\300\301!\207" [call-interactively custom-theme-add-face] 4 "\n\n(fn WIDGET &optional EVENT)"] "\n\n  Theme variables:\n " custom-enabled-themes custom-theme-add-var-1 eval "Insert Variable" "Add another variable to this theme." #[513 "\300\301!\207" [call-interactively custom-theme-add-variable] 4 "\n\n(fn WIDGET &optional EVENT)"] 10 widget-setup message] 22 (#$ . 3875) nil])
#@137 Revert the current *Custom Theme* buffer.
This is the `revert-buffer-function' for `custom-new-theme-mode'.

(fn IGNORE-AUTO NOCONFIRM)
(defalias 'custom-theme-revert #[514 "\211\204\n \301\302!\205 \303p\"\207" [custom-theme--save-name y-or-n-p "Discard current changes? " customize-create-theme] 5 (#$ . 7923)])
#@205 Add a widget for VAR (a symbol) to the *New Custom Theme* buffer.
VALUE should be a value to which to set the widget; when called
interactively, this defaults to the current value of VAR.

(fn VAR VALUE)
(defalias 'custom-theme-add-variable #[514 "\236\211\204 \212	b\210\302\"\210	`\303\223\210\304 )\207\305A@\306\"\210\3078\310\311C#\210\312!\207" [custom-theme-variables custom-theme-insert-variable-marker custom-theme-add-var-1 nil widget-setup widget-value-set t 2 widget-put :shown-value custom-redraw] 8 (#$ . 8246) (byte-code "\300\301!\211JD\207" [read-variable "Variable name: "] 3)])
#@19 

(fn SYMBOL VAL)
(defalias 'custom-theme-add-var-1 #[514 "\301\302!\210\303\304\305\306\307\310%\301\302!\210\303\311\312\313!\305\314	C\315\316\317\320\321\322\323\324&EB\301\302!\207" [custom-theme-variables widget-insert " " widget-create checkbox :value t :help-echo "Enable/disable this variable." custom-variable :tag custom-unlispify-tag-name :shown-value :notify ignore :custom-level 0 :custom-state hidden :custom-style simple] 20 (#$ . 8860)])
#@162 Add a widget for FACE (a symbol) to the *New Custom Theme* buffer.
SPEC, if non-nil, should be a face spec to which to set the widget.

(fn FACE &optional SPEC)
(defalias 'custom-theme-add-face #[513 "\302!\204 \211\204 \303\304\"\210\236\211\204( \212	b\210\305\"\210	`\306\223\210\307 )\207\203@ \310A@\311\"\210\3128\313\314#\210\315!\207\316\317!\205J \303\320\"\207" [custom-theme-faces custom-theme-insert-face-marker facep error "`%s' has no face definition" custom-theme-add-face-1 nil widget-setup widget-value-set t 2 widget-put :shown-value custom-redraw called-interactively-p interactive "`%s' is already present"] 8 (#$ . 9331) (byte-code "\300\301\302\303!\"C\207" [read-face-name "Face name" face-at-point t] 4)])
#@20 

(fn SYMBOL SPEC)
(defalias 'custom-theme-add-face-1 #[514 "\301\302!\210\303\304\305\306\307\310%\301\302!\210\303\311\312\313!\314\306\305\n\315\316\317\320\321\322\323&EB\301\302!\207" [custom-theme-faces widget-insert " " widget-create checkbox :value t :help-echo "Enable/disable this face." custom-face :tag custom-unlispify-tag-name :documentation-shown :custom-state hidden :custom-style simple :shown-value :sample-indent 34] 20 (#$ . 10082)])
#@64 Set up a Custom buffer to edit custom theme THEME.

(fn THEME)
(defalias 'custom-theme-visit-theme #[257 "\302!\204 \303\304\"\210\305=\204 \306!\207\307\310!\205! \211\311\312\313\"\207" [major-mode custom-theme--save-name custom-theme-name-valid-p error "No valid theme named `%s'" custom-new-theme-mode customize-create-theme y-or-n-p "Discard current changes? " custom-theme-revert nil t] 4 (#$ . 10551) (byte-code "\300\301\302\303\304\305 \"\"!C\207" [intern completing-read "Find custom theme: " mapcar symbol-name custom-available-themes] 6)])
#@78 Merge the custom theme THEME's settings into the current buffer.

(fn THEME)
(defalias 'custom-theme-merge-theme #[257 "\211\300=\204 \301!\204 \302\303\"\210\304\305\306#\210\307\310N!\211\211\203M \211@\211@\311=A@\3128\2037 \313>\204D \203? \314\202@ \315\"\210\266A\266\202\202 \266\207" [user custom-theme-name-valid-p error "Invalid theme name `%s'" load-theme nil t reverse theme-settings theme-value 3 (custom-enabled-themes custom-safe-themes) custom-theme-add-variable custom-theme-add-face] 10 (#$ . 11116) (byte-code "\300\301\302\303\304\305 \"\"!C\207" [intern completing-read "Merge custom theme: " mapcar symbol-name custom-available-themes] 6)])
#@70 Write the current custom theme to its theme file.

(fn &rest IGNORE)
(defalias 'custom-theme-write #[128 "\306!\306	!\n\307\310\230\203 \311\312\313 \"\262\314\"\210\315\316!!\204+ \317\320\"\210\321\322P\f\"\262\323!\203F \324\325\326\"!\204F \317\327!\210\330\331\332\"r\211q\210\333\334\"\216\335 \210\336\f!\204c \337\340\f!\332\"\210\341 \210\342\261\210\203x \343\344\261\210\345c\210\346\347!\"\210\350\347!\"\210\351\345\261\210\352 \210*\210\353\354\"\2107\205\374 \355\35689\211\203\315 \211@\211@\357=\204\306 \360A@\361\"\203\306 \362\3638\364\"\210A\266\202\202\251 \210\211\203\354 \211@\360A@\361\"\203\345 \362\3638\364\"\210A\266\202\202\317 \210\365 \210*\304C:\366\316!!)\207" [custom-theme-name custom-theme-description custom-theme-variables custom-theme-faces custom-theme-directory buffer-file-name widget-value nil "" read-from-minibuffer "Theme name: " user-login-name widget-value-set custom-theme-name-valid-p intern error "Custom themes cannot be named `%s'" expand-file-name "-theme.el" file-exists-p y-or-n-p format "File %s exists.  Overwrite? " "Aborted" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] emacs-lisp-mode file-directory-p make-directory file-name-as-directory erase-buffer "(deftheme " "\n  \"" "\"" ")\n" custom-theme-write-variables reverse custom-theme-write-faces "\n(provide-theme '" save-buffer message "Theme written to %s" (t) (t) custom-enabled-themes widget-get :value widget-apply 2 :custom-mark-to-reset-standard custom-save-all load-theme custom-theme--migrate-settings custom-reset-standard-faces-list custom-reset-standard-variables-list custom-theme-load-path] 11 (#$ . 11802) nil])
#@114 Write a `custom-theme-set-variables' command for THEME.
It includes all variables in list VARS.

(fn THEME VARS)
(defalias 'custom-theme-write-variables #[514 "\211\205} p\301\302!\210\301\303!\210\301!\210\301\304!\210\211\211\203e \211@\305A@\306\"\203^ \211@\3078\305\310\"\242\211\203: \311!\202? \305\312\"@n\204G \301\304!\210\301\313!\210\314!\210\301\315!\210\314\316!!\210\301\317!\266A\266\202\202 \210n\203n \301\315!\210\301\317!\210g\320U?\205| \301\304!)\207" [standard-output princ "\n(custom-theme-set-variables\n" " '" "\n" widget-get :value 2 :children widget-value :shown-value " '(" prin1 " " custom-quote ")" 10] 11 (#$ . 13568)])
#@108 Write a `custom-theme-set-faces' command for THEME.
It includes all faces in list FACES.

(fn THEME FACES)
(defalias 'custom-theme-write-faces #[514 "\211\205\204 p\301\302!\210\301\303!\210\301!\210\301\304!\210\211\211\203l \211@\305A@\306\"\203e \211@\3078\305\310\"\242\2039 \311!\202C \305\312\"\206C \313!\211\203c \301n\203P \314\202Q \315!\210\316!\210\301\317!\210\316!\210\301\320!\210\266A\266\202\202 \210n\203u \301\317!\210\301\320!\210g\321U?\205\203 \301\304!)\207" [standard-output princ "\n(custom-theme-set-faces\n" " '" "\n" widget-get :value 2 :children custom-face-widget-to-spec :shown-value custom-face-get-current-spec " '(" "\n '(" prin1 " " ")" 10] 9 (#$ . 14239)])
#@73 Display a description of the Custom theme THEME (a symbol).

(fn THEME)
(defalias 'describe-theme #[257 "\305!\204 \306\307\"\210\310\311D\312\313!\"\210\314\211\223\210\315	B\316\nB\317 \320 \321!\211\314\211r\fq\210\322!)\262rq\210\323\314\"\262)\324\325!\203O \325\"\202P \211)\266\204*\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output custom-theme-name-valid-p error "Invalid theme name `%s'" help-setup-xref describe-theme called-interactively-p interactive nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup describe-theme-1 temp-buffer-window-show functionp help-window-setup] 8 (#$ . 14951) (byte-code "\300\301\302\303\304\305 \"\"!C\207" [intern completing-read "Describe custom theme: " mapcar symbol-name custom-available-themes] 6)])
#@14 

(fn THEME)
(defalias 'describe-theme-1 #[257 "\303!\210\304\305!\210\306\307!\310P\311 \312#\313\203+ \304\314\315!!\210\316\317!\320#\210\304\314\321!!\210\304\322!\210\211>\262\203T \211	>\262\203H \304\323!\210\202L \304\324!\210\325N\262\202\214 \304\326!\210\203\214 \327\330\331\"r\211q\210\332\333\"\216\334!\210\313\3351z \336p!0\202| \210\313)\211\242\337=\203\211 \3408\262\210*\210\304\341!\210\304;\203\234 \314!\202\235 \342!\266\304\343!\210\316\344\345#\210\304\346!\207" [custom-known-themes custom-enabled-themes read-circle prin1 princ " is a custom theme" locate-file symbol-name "-theme.el" custom-theme--load-path ("" "c") nil substitute-command-keys " in `" help-insert-xref-button file-name-nondirectory help-theme-def "'" ".\n" "It is loaded and enabled." "It is loaded but disabled." theme-documentation "It is not loaded." generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents (end-of-file) read deftheme 2 "\n\nDocumentation:\n" "No documentation available." "\n\nYou can " "customize" help-theme-edit " this theme."] 7 (#$ . 15838)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable custom-theme-allow-multiple-selections funcall function #[0 "\300\207" [nil] 1 ""] "Whether to allow multi-selections in the *Custom Themes* buffer." :version "24.1" :type boolean :group custom-buffer] 10)
#@40 Keymap for `custom-theme-choose-mode'.
(defvar custom-theme-choose-mode-map (byte-code "\302 \303\304	\"\"\210\305!\210\306\307\310#\210\306\311\312#\210\306\313\314#\210\306\315\316#\210\207" [widget-keymap special-mode-map make-keymap set-keymap-parent make-composed-keymap suppress-keymap define-key "" custom-theme-save "n" widget-forward "p" widget-backward "?" custom-describe-theme] 6) (#$ . 17310))
(defvar custom-theme-choose-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [custom-theme-choose-mode-hook variable-documentation put "Hook run after entering Themes mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp custom-theme-choose-mode-map definition-name custom-theme-choose-mode] 4)
(defvar custom-theme-choose-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [custom-theme-choose-mode-abbrev-table custom-theme-choose-mode-map variable-documentation put purecopy "Keymap for `custom-theme-choose-mode'." boundp custom-theme-choose-mode-syntax-table definition-name custom-theme-choose-mode (lambda (#1=#:def-tmp-var) (defvar custom-theme-choose-mode-syntax-table #1#)) make-syntax-table "Syntax table for `custom-theme-choose-mode'." (lambda (#1#) (defvar custom-theme-choose-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `custom-theme-choose-mode'." derived-mode-parent special-mode] 5)
#@332 Major mode for selecting Custom themes.
Do not call this mode function yourself.  It is meant for internal use.

In addition to any hooks its parent mode `special-mode' might have
run, this mode runs the hook `custom-theme-choose-mode-hook', as the
final or penultimate step during initialization.

\{custom-theme-choose-mode-map}
(defalias 'custom-theme-choose-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315!\204' \316\317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324\325\"\204R =\204R \326\325C#\210\327!\210\330\f!\210\327!\210\331 \210\306\332!\210\333)\334\335!\207" [delay-mode-hooks major-mode mode-name custom-theme-choose-mode-map custom-theme-choose-mode-syntax-table custom-theme-choose-mode-abbrev-table make-local-variable t special-mode custom-theme-choose-mode "Themes" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table custom--initialize-widget-variables revert-buffer-function #[514 "\211\204\n \300\301!\205 \302p!\207" [y-or-n-p "Discard current choices? " customize-themes] 4 "\n\n(fn IGNORE-AUTO NOCONFIRM)"] run-mode-hooks custom-theme-choose-mode-hook local-abbrev-table] 5 (#$ . 19056) nil])
(put 'custom-theme-choose-mode 'mode-class 'special)
#@179 Display a selectable list of Custom themes.
When called from Lisp, BUFFER should be the buffer to use; if
omitted, a buffer named *Custom Themes* is used.

(fn &optional BUFFER)
(defalias 'customize-themes #[256 "\305\306\206 \307!!\210\310\311 \210)\312 \210\313\301!\210\314\313\302!\210\n\204* G\315V\203* \310\316\317\320!!\210\321\322\323\324\325\326\327\330\331\330\332\333\334\f\335\336\337\340&\210\316\317\341!!\210\342\343N\211\203\211 \211A\204h \211@@\344=\203h \211@A@\303=\204\211 \316\345\346\347\350#!\210\321\322\323\351\325\326\327\330\331\330\332\352\334\f\335\336\337\353&\210\316\354!\210\210\321\355\356\357\332\360\337\361&\210\316\362!\210\321\363\323\n\337\364%\210\316\345\365\347\366#!\210\316\367!\210\314\370 \211\203\211@\321\363\323\211>\262\371\332\372\337\373&	\262\211B	B\374\355\375\376\377\376\323\201@ \201A \n\"\337\201B \332\372&\f\210\316\201C \345\201D !\347\201E #\362#\210A\266\202\202\260 \266eb\210\201F  \207" [inhibit-read-only custom--listed-themes custom-theme-allow-multiple-selections custom-enabled-themes custom-mode-link-map switch-to-buffer get-buffer-create "*Custom Themes*" t erase-buffer custom-theme-choose-mode make-local-variable nil 1 widget-insert substitute-command-keys "Type RET or click to enable/disable listed custom themes.\nType \\[custom-describe-theme] to describe the theme at point.\nTheme files are named *-theme.el in `" widget-create link :value "custom-theme-load-path" :button-face custom-link :mouse-face highlight :pressed-face :help-echo "Describe `custom-theme-load-path'." :keymap :follow-link mouse-face :action #[385 "\300\301!\207" [describe-variable custom-theme-load-path] 4 "\n\n(fn WIDGET &rest IGNORE)"] "'.\n\n" user theme-settings theme-value propertize " Note: Your custom settings take precedence over theme settings.\n       To migrate your settings into a theme, click " face font-lock-warning-face "here" "Migrate." #[385 "\300\301!\207" [customize-create-theme user] 4 "\n\n(fn WIDGET &rest IGNORE)"] ".\n\n" push-button :tag " Save Theme Settings " "Save the selected themes for future sessions." custom-theme-save 10 checkbox custom-theme-selections-toggle " Select more than one theme at a time" (variable-pitch (:height 0.9)) "\n\nAvailable Custom Themes:\n" custom-available-themes :theme-name "mouse-2: Enable this theme for this session" custom-theme-checkbox-toggle widget-create-child-and-convert :button-face-get ignore :mouse-face-get format " %s" widget-parent-action " -- " custom-theme-summary shadow widget-setup] 20 (#$ . 20479) nil])
#@47 Return the summary line of THEME.

(fn THEME)
(defalias 'custom-theme-summary #[257 "\302\211>\262\203 \303N\262\202Q \304\305!\306P\307 \310#\211\203P \311\312\313\"r\211q\210\314\315\"\216\316!\210\302\3171E \320\321!\210\322 \210\323p!0\202G \210\302)\3248\262\210*\210\210\211\204W \325\207\326\327\"\203c \330\331\"\207\207" [custom-known-themes read-circle nil theme-documentation locate-file symbol-name "-theme.el" custom-theme--load-path ("" "c") generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents (error) re-search-forward "^(deftheme" beginning-of-line read 2 "(no documentation available)" string-match ".*" match-string 0] 7 (#$ . 23061)])
#@31 

(fn WIDGET &optional EVENT)
(defalias 'custom-theme-checkbox-toggle #[513 "\303\304\"\305!\203 \306!\210\307\"\210\202j \204_ 	\211\2038 \211@\211=\2041 \211\n\236\2031 \306!\210A\266\202\202 \210\n\211\203^ \211@\211@=\204W \310A\311\"\210\312A\313A$\210A\266\202\202: \210\314!\203j \307\"\210\315\301\316\317	!C#\207" [custom-theme-allow-multiple-selections custom-enabled-themes custom--listed-themes widget-get :theme-name widget-value disable-theme widget-toggle-action widget-value-set nil widget-apply :notify load-theme put customized-value custom-quote] 10 (#$ . 23816)])
#@48 Describe the Custom theme on the current line.
(defalias 'custom-describe-theme #[0 "\300\301 !\211\205 \302\303\304\"!\207" [widget-at line-beginning-position describe-theme widget-get :theme-name] 5 (#$ . 24427) nil])
#@21 

(fn &rest IGNORE)
(defalias 'custom-theme-save #[128 "\301\300\"\210\302\303!\207" [custom-enabled-themes customize-save-variable message "Custom themes saved for future sessions."] 4 (#$ . 24655) nil])
#@31 

(fn WIDGET &optional EVENT)
(defalias 'custom-theme-selections-toggle #[513 "\302!\203 \303\304\305\306\307\"\"GW\203 \310\311!\210\312\"\210\302!\211\207" [custom--listed-themes custom-theme-allow-multiple-selections widget-value 1 delq nil mapcar #[257 "\300A!\207" [widget-value] 3 "\n\n(fn X)"] error "More than one theme is currently selected" widget-toggle-action] 8 (#$ . 24867)])
(provide 'cus-theme)