Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/cus-theme.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(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\211\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) (#$ . 477))
(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 (#$ . 2168) 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-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) (#$ . 3314))
#@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
\330=\203]\331\332!\210\333\334\335\336\337\340\341\342&\210\331\343!\210\333\334\335\344\337\345\341\346&\210\331\343!\210\333\334\335\347\337\350\341\351&\210\331\352!\210\333\353\354\203\235\330=\204\235\355!\202\236\320#\331\356!\210\333\357\354\360\361!#\333\334\362\363\364$\210
\330=\203\320\311\331\343!\210\333\365\354
\341\366%\210\331\367\370\371\372#!\210\317\211\211\211\203
\330=\204\345\373\317\311#\210\374N\211\203
\211@\211@\375=\203
\211A@B\262\376
8B\262\202
\211A@B\262\376
8B\262
A\266\202\202\350\210\331\377!\210\203=

\203T
\201@\211A\262\242\211A\262\242\"\210\202%
\211\203S
\211@\201@
\317\"\210
A\266\202\202?
\210\201A \331\201B!\210\333\334\335\201C\337\201D\201E\201F\201G\201H\201I\201J\201K\201J\341\201L&\210\331\201M!\210\203\305
\203\305
@\201N=\203\255
A\262\211A\262\210\202\223
\201O\211A\262\242\201P\211A\262\242!\"\210\202\223
\201A \331\201B!\210\333\334\335\201Q\337\201R\201E\201F\201G\201H\201I\201J\201K\201J\341\201S&\210\331\201T!\210\201U \210eb\210\201V\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" 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-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)) load-theme theme-settings theme-value 3 "\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 (#$ . 4177) 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\303p\"\207" [custom-theme--save-name y-or-n-p "Discard current changes? " customize-create-theme] 5 (#$ . 8172)])
#@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 )\2021\305
A@\306\"\210\307
8\310
\311C#\210\312
!\262
\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 (#$ . 8495) (byte-code "\300\301!\211
JD\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&EB\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 (#$ . 9116)])
#@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 )\202P
\203F\310
A@\311\"\210\312
8\313
\314#\210\315
!\262
\202P\316\317!\205P\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 (#$ . 9587) (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&EB\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 (#$ . 10347)])
#@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 (#$ . 10816) (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\266
A\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 (#$ . 11381) (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!r\211q\210\332\333\334\335\336!\337\"\340$\216\341 \210\342\f!\204i\343\344\f!\345\"\210
\346 \210\347\261\210\203~\350\351\261\210\352c\210\353\354!\"\210\355\354!\"\210\356\352\261\210\357 \210*\210\360\361\"\210;\205
\362\363<=\211\203\323\211@\211@\364=\204\314\365
A@\366\"\203\314\367\3408\370\"\210
A\266\202\202\257\210
\211\203\362\211@\365
A@\366\"\203\353\367\3408\370\"\210
A\266\202\202\325\210\371 \210*\304C>\372\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*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 emacs-lisp-mode file-directory-p make-directory file-name-as-directory t 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 :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] 13 (#$ . 12067) 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\204p\301\302!\210\301\303!\210\301!\210\301\304!\210\211\211\203l\211@\305
A@\306\"\203e\211@\3078\305
\310\"\242\211\203:\311
!\202?\305\312\"@\313!\203cn\204M\301\304!\210\301\314!\210\315!\210\301\316!\210\315\317!!\210\301\320!\210\266
A\266\202\202\210n\203u\301\316!\210\301\320!\210g\321U?\205\203\301\304!)\207" [standard-output princ "\n(custom-theme-set-variables\n" " '" "\n" widget-get :value 2 :children widget-value :shown-value boundp " '(" prin1 " " custom-quote ")" 10] 11 (#$ . 13856)])
#@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\212p\301\302!\210\301\303!\210\301!\210\301\304!\210\211\211\203r\211@\305
A@\306\"\203k\211@\3078\305
\310\"\242\2039\311
!\202C\305
\312\"\206C\313!\314!\203i\211\203i\301n\203V\315\202W\316!\210\317!\210\301\320!\210\317
!\210\301\321!\210\266
A\266\202\202\210n\203{\301\320!\210\301\321!\210g\322U?\205\211\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 facep " '(" "\n '(" prin1 " " ")" 10] 9 (#$ . 14556)])
#@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!)\262
rq\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 (#$ . 15286) (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\222\304\326!\210
\203\222\327\330!r\211q\210\331\332\333\334\335!\336\"\337$\216\340!\210\313\3411\200\342p!0\202\202\210\313)\211\242\343=\203\217\337
8\262\210*\210\304\344!\210\304
;\203\242\314!\202\243\345!\266\304\346!\210\316\347\350#\210\304\351!\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*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents (end-of-file) read deftheme "\n\nDocumentation:\n" "No documentation available." "\n\nYou can " "customize" help-theme-edit " this theme."] 10 (#$ . 16173)])
(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\211\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) (#$ . 17673))
(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
\325C#\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 (#$ . 19423) 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\370\314\371 \211\203
\211@\321\363\323\211>\262
\372\332\n\337\373&	\262\211B	B\374\355\375\376\377\376\323\201@\201A\n\"\337\201B\332&\f\210\316\201C\345\201D!\347\201E#\362#\210
A\266\202\202\261\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" "mouse-2: Enable this theme for this session" custom-available-themes :theme-name 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 (#$ . 20846) nil])
#@47 Return the summary line of THEME.

(fn THEME)
(defalias 'custom-theme-summary #[257 "\302
\211>\262
\203
\303N\262
\202W\304\305!\306P\307 \310#\211\203V\311\312!r\211q\210\313\314\315\316\317!\320\"\321$\216\322!\210\302\3231D\324p!0\202F\210\302)\211\242\325=\203S\321
8\262\210*\210\210\211\204_\326\202n\327\330\"\203m\331\314\"\202n\211\207" [custom-known-themes read-circle nil theme-documentation locate-file symbol-name "-theme.el" custom-theme--load-path ("" "c") generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents (end-of-file) read deftheme "(no documentation available)" string-match ".*" match-string] 10 (#$ . 23429)])
#@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
!\210
A\266\202\202\210\n\211\203^\211@\211@=\204W\310
A\311\"\210\312
A\313A$\210
A\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 (#$ . 24178)])
#@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 (#$ . 24789) 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 (#$ . 25017) 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 "\300
A!\207" [widget-value] 3 "\n\n(fn X)"] error "More than one theme is currently selected" widget-toggle-action] 8 (#$ . 25229)])
(provide 'cus-theme)