WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp
Viewing File: /usr/share/emacs/24.3/lisp/cus-theme.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:48:04 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cus-theme.el
;;; in Emacs version 24.3.1
;;; 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	\"\210\304!\210\305\306\307#\210\305\310\311#\210\305\312\313#\210)\207" [map widget-keymap make-keymap set-keymap-parent suppress-keymap define-key "" custom-theme-write "n" widget-forward "p" widget-backward] 4) (#$ . 621))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [custom-new-theme-mode-hook variable-documentation put purecopy "Hook run when 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] 5)
(defvar custom-new-theme-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [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] 5)
(defvar custom-new-theme-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [custom-new-theme-mode-syntax-table variable-documentation put purecopy "Syntax table for `custom-new-theme-mode'." custom-new-theme-mode-abbrev-table definition-name custom-new-theme-mode] 5)
(defvar custom-new-theme-mode-abbrev-table (progn (define-abbrev-table 'custom-new-theme-mode-abbrev-table nil) custom-new-theme-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [custom-new-theme-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `custom-new-theme-mode'." custom-new-theme-mode derived-mode-parent nil] 5)
#@237 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 step
during initialization.

\{custom-new-theme-mode-map}
(defalias 'custom-new-theme-mode #[nil "\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 (#$ . 2428) 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 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) (#$ . 3561))
#@337 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*.
(defalias 'customize-create-theme #[(&optional theme buffer) "\306\307\206\310!!\210\311\312 \210\313ed\"\314\211\203(@\315\n!\210A\211\204+\316 \210\317\320!\210\317\305!\210\f\317\321!\210\314\317\322!\210\314\317\323!\210\324\317\325!\210\314\317\326!\210\317\327!\210\317\330!\210\331\332!\203m\333\334!\204m\314\f\335=\203w\336\337!\210\340\341\342\343\344\345\346\347&\210\336\350!\210\340\341\342\351\344\352\346\353&\210\336\350!\210\340\341\342\354\344\355\346\356&\210\336\357!\210\340\360\361\f\203\267\f\335=\204\267\362\f!\202\270\324#\336\363!\210\340\364\361\365\366!#\340\341\367\370\371$\210\f\335=\203\355\311\336\350!\210\340\372\361\346\373%\210\336\374\375\376\377#!\210\314\211\211\211@ABC\f\203X\f\335=\204\201E\f\314\311#\210\f\201FN\314D\211\203W@\211D@\201G=\203<DA@CBC\201HD8BBB\202PDA@ABA\201HD8@B@A\211\204*\336\201I!\210\f\203}A\203\233\201JA\211AA@@\211A@@\"\210\202b\314>\211\203\232@>\201J>\314\"\210A\211\204\207*\201K \336\201L!\210\340\341\342\201M\344\201N\201O\201P\201Q\201R\201S\201T\201U\201T\346\201V&\210\336\201W!\210\f\203C\203C@\201X=\203\374C\210CACB\211AB@\210\202\332\201YC\211AC@\201ZB\211AB@!\"\210\202\332\201K \336\201L!\210\340\341\342\201[\344\201\\\201O\201P\201Q\201R\201S\201T\201U\201T\346\201]&\210\336\201^!\210\201_ \210eb\210\201`\324!,\207" [buffer inhibit-read-only ov --dolist-tail-- theme custom-theme--save-name switch-to-buffer get-buffer-create "*Custom Theme*" t erase-buffer overlays-in nil delete-overlay custom-new-theme-mode make-local-variable custom-theme-name custom-theme-faces custom-theme-variables custom-theme-description "" custom-theme--migrate-settings 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 #[(_widget &optional _event) "\300\301!\207" [call-interactively custom-theme-visit-theme] 2] "  " " Merge Theme " "Merge in the settings of a pre-defined theme." #[(_widget &optional _event) "\300\301!\207" [call-interactively custom-theme-merge-theme] 2] " Revert " "Revert this buffer to its original state." #[(&rest ignored) "\300 \207" [revert-buffer] 1] "\n\nTheme name : " editable-field :value symbol-name "Description: " text format-time-string "Created %Y-%m-%d." :notify custom-theme-write " Save Theme " checkbox #[(widget &optional event) "\303!\205\304	\"\210\303!\211\207" [widget event custom-theme--migrate-settings widget-value widget-toggle-action] 3] propertize " Remove saved theme settings from Custom save file." face (variable-pitch (:height 0.9)) face-specs faces values vars setting 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 #[(_widget &optional _event) "\300\301!\207" [call-interactively custom-theme-add-face] 2] "\n\n  Theme variables:\n " custom-enabled-themes custom-theme-add-var-1 eval "Insert Variable" "Add another variable to this theme." #[(_widget &optional _event) "\300\301!\207" [call-interactively custom-theme-add-variable] 2] 10 widget-setup message] 17 (#$ . 4414) nil])
#@109 Revert the current *Custom Theme* buffer.
This is the `revert-buffer-function' for `custom-new-theme-mode'.
(defalias 'custom-theme-revert #[(_ignore-auto noconfirm) "\204\n\302\303!\205\304	p\"\207" [noconfirm custom-theme--save-name y-or-n-p "Discard current changes? " customize-create-theme] 3 (#$ . 8475)])
#@189 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.
(defalias 'custom-theme-add-variable #[(var value) "	\236\211\204\212b\210\306\f\"\210`\307\223\210\310 )\2022\311\nA@\312\"\210\313\n8\314
\315\fC#\210\316
!))\207" [var custom-theme-variables entry custom-theme-insert-variable-marker value widget custom-theme-add-var-1 nil widget-setup widget-value-set t 2 widget-put :shown-value custom-redraw] 5 (#$ . 8798) (let ((v (read-variable "Variable name: "))) (list v (symbol-value v)))])
(defalias 'custom-theme-add-var-1 #[(symbol val) "\303\304!\210\305\306\307\310\311\312%\303\304!\210\305\313\314\315!\307\316	C\317\320\321\322\323\324\325\326&E\nB\303\304!\207" [symbol val 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] 18])
#@136 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.
(defalias 'custom-theme-add-face #[(face &optional spec) "\306!\204	\204\307\310\"\210\n\236\211\204+\212\fb\210\311	\"\210\f`\312\223\210\313 )\202Q	\203G\314A@\315\"\210\3168\317
\320	#\210\321
!)\202Q\322\323!\205Q\307\324\")\207" [face spec custom-theme-faces entry custom-theme-insert-face-marker widget 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"] 5 (#$ . 9891) (list (read-face-name "Face name" nil nil) nil)])
(defalias 'custom-theme-add-face-1 #[(symbol spec) "\303\304!\210\305\306\307\310\311\312%\303\304!\210\305\313\314\315!\316\310\307\317\320\321\322\323	\324\325&E\nB\303\304!\207" [symbol spec 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] 18])
#@52 Set up a Custom buffer to edit custom theme THEME.
(defalias 'custom-theme-visit-theme #[(theme) "\303!\204\304\305\"\210	\306=\204\307!\207\310\311!\205!\312\313\314\"\207" [theme 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] 3 (#$ . 11077) (list (intern (completing-read "Find custom theme: " (mapcar 'symbol-name (custom-available-themes)))))])
#@66 Merge the custom theme THEME's settings into the current buffer.
(defalias 'custom-theme-merge-theme #[(theme) "\306=\204\307!\204\310\311\"\210\312\313\314#\210\315\316N!\211\313\211\203V@\211@\317=\nA@\320\n8\211\203@
\321>\204N\203I\322\202J\323
\f\"\210+A\211\204%+\207" [theme settings setting --dolist-tail-- value name 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 option] 5 (#$ . 11599) (list (intern (completing-read "Merge custom theme: " (mapcar 'symbol-name (custom-available-themes)))))])
#@51 Write the current custom theme to its theme file.
(defalias 'custom-theme-write #[(&rest _ignore) "\306!\306\n!\f78\3079	\310\230\203\"\311\312\313 \"\314	\"\210\315\316	!!\204/\317\320	\"\210\321	\322P5\"9\3239!\203M\324\325\3269\"!\204M\317\327!\210\330\331!:r:q\210\332\216\333 \210\3345!\204k\335\3365!\337\"\2109;\340 \210\341	\261\210\203\201\342\343\261\210\344c\210\345	\346
!\"\210\347	\3468!\"\210\350	\344\261\210\351 \210+\352\3539\"\210<\205\354\355=>
\307?\211@\203\337@@\211?@\356=\204\326\357?A@\360\"\203\326\361\362?8\363\"\210@A\211@\204\270*8\307A\211@\203@@A\357AA@\360\"\203\361\362A8\363\"\210@A\211@\204\353*\364 \210*\365CB\366\316	!!)-\207" [custom-theme-name name custom-theme-description doc custom-theme-variables vars 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*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer 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 2 :custom-mark-to-reset-standard custom-save-all custom-theme-directory load-theme custom-theme-faces faces filename #1# buffer-file-name custom-theme--migrate-settings custom-reset-standard-faces-list custom-reset-standard-variables-list var --dolist-tail-- face custom-theme-load-path] 5 (#$ . 12298) nil])
#@97 Write a `custom-theme-set-variables' command for THEME.
It includes all variables in list VARS.
(defalias 'custom-theme-write-variables #[(theme vars) "\205\222p\306\307!\210\306\310!\210\306\n!\210\306\311!\210\312\211\203z\f@\313A@\314\"\203s@\3158\313\316\"\242\211\203E\317!\202K\313\320\"@\321
!\203rn\204[\306\311!\210\306\322!\210\323
!\210\306\324!\210\323\325!!\210\306\326!\210,\fA\211\204*n\203\203\306\324!\210\306\326!\210\327\311!?\205\221\306\311!)\207" [vars standard-output theme spec --dolist-tail-- symbol princ "\n(custom-theme-set-variables\n" " '" "\n" nil widget-get :value 2 :children widget-value :shown-value boundp " '(" prin1 " " custom-quote ")" looking-at widget child value] 4 (#$ . 14118)])
#@90 Write a `custom-theme-set-faces' command for THEME.
It includes all faces in list FACES.
(defalias 'custom-theme-write-faces #[(theme faces) "\205\227p\306\307!\210\306\310!\210\306\n!\210\306\311!\210\312\211\203\f@\313A@\314\"\203x@\3158\313\316\"\242\203B\317!\202M\313\320\"\206M\321
!\322
!\203w\203w\306n\203c\323\202d\324!\210\325
!\210\306\326!\210\325!\210\306\327!\210+\fA\211\204*n\203\210\306\326!\210\306\327!\210\330\311!?\205\226\306\311!)\207" [faces standard-output theme spec --dolist-tail-- symbol princ "\n(custom-theme-set-faces\n" " '" "\n" nil widget-get :value 2 :children custom-face-widget-to-spec :shown-value custom-face-get-current-spec facep " '(" "\n '(" prin1 " " ")" looking-at widget value] 4 (#$ . 14883)])
#@61 Display a description of the Custom theme THEME (a symbol).
(defalias 'describe-theme #[(theme) "\306!\204\307\310\"\210\311\312D\313\314!\"\210	\315\211\223\210\315\316B\fr\317\320 !q\210p\321 \210
\315\211\322\211\322\323 \210\324\325!\210+\211rq\210\326!)\327!\210+\330\n!\210*\207" [theme help-window-point-marker help-window temp-buffer-show-hook default-directory #1=#:old-dir custom-theme-name-valid-p error "Invalid theme name `%s'" help-setup-xref describe-theme called-interactively-p interactive nil #[nil "\301 \211\207" [help-window selected-window] 2] get-buffer-create help-buffer kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook describe-theme-1 internal-temp-output-buffer-show help-window-setup buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 5 (#$ . 15671) (list (intern (completing-read "Describe custom theme: " (mapcar 'symbol-name (custom-available-themes)))))])
(defalias 'describe-theme-1 #[(theme) "\306!\210\307\310!\210\311\312!\313P\314 \315#\316\211\203)\307\317!\210\320\321\n!\322\n#\210\307\323!\210\307\324!\210\211>)\203Q\211\f>)\203F\307\325!\210\202J\307\326!\210\327N\202\211\307\330!\210\n\203\211\331\332!r
q\210\333\216\334\n!\210\316\211'\335\336\217)\211(\203\210(<\203\210(@\337=\203\210\340(8,\307\341!\210\307	;\203\227	\202\230\342!\210*\307\343!\210\320\344\345#\210\307\346!\207" [theme doc fn custom-known-themes custom-enabled-themes #1=#:temp-buffer prin1 princ " is a custom theme" locate-file symbol-name "-theme.el" custom-theme--load-path ("" "c") nil " 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*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents (byte-code "\300p!\207" [read] 2) ((end-of-file)) deftheme 2 "\n\nDocumentation:\n" "No documentation available." "\n\nYou can " "customize" help-theme-edit " this theme." read-circle sexp] 5])
#@66 Whether to allow multi-selections in the *Custom Themes* buffer.
(custom-declare-variable 'custom-theme-allow-multiple-selections nil '(#$ . 17845) :version "24.1" :type 'boolean :group 'custom-buffer)
#@40 Keymap for `custom-theme-choose-mode'.
(defvar custom-theme-choose-mode-map (byte-code "\303 \304\305	\n\"\"\210\306!\210\307\310\311#\210\307\312\313#\210\307\314\315#\210\307\316\317#\210)\207" [map 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] 5) (#$ . 18053))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [custom-theme-choose-mode-hook variable-documentation put purecopy "Hook run when 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] 5)
(defvar custom-theme-choose-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [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] 5)
(defvar custom-theme-choose-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [custom-theme-choose-mode-syntax-table variable-documentation put purecopy "Syntax table for `custom-theme-choose-mode'." custom-theme-choose-mode-abbrev-table definition-name custom-theme-choose-mode] 5)
(defvar custom-theme-choose-mode-abbrev-table (progn (define-abbrev-table 'custom-theme-choose-mode-abbrev-table nil) custom-theme-choose-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [custom-theme-choose-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `custom-theme-choose-mode'." custom-theme-choose-mode derived-mode-parent special-mode] 5)
#@317 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 step
during initialization.

\{custom-theme-choose-mode-map}
(defalias 'custom-theme-choose-mode #[nil "\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\2036
\321 =\203<\322\f\323 \"\210)\324\325\"\204V=\204V\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 parent 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 #[(_ignore-auto noconfirm) "\204\n\301\302!\205
\303p!\207" [noconfirm y-or-n-p "Discard current choices? " customize-themes] 2] run-mode-hooks custom-theme-choose-mode-hook custom-theme-choose-mode-abbrev-table local-abbrev-table] 6 (#$ . 20017) nil])
(put 'custom-theme-choose-mode 'mode-class 'special)
#@156 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.
(defalias 'customize-themes #[(&optional buffer) "\306\307\206\310!!\210\311\312 \210)\313 \210\314\302!\210\315\314\303!\210\204*\fG\316V\203*\311\317\320\321!!\210\322\323\324\325\326\327\330\331\332\331\333\334\335
\336\337\340\341&\210\317\342!\210\343\344N\211@\203\224@A\204s@\211A@@)\345=\203s@@\211AA@)\304=\204\224\317\346\347\350\351#!\210\322\323\324\352\326\327\330\331\332\331\333\353\335
\336\337\340\354&\210\317\355!\210)\322\356\357\360\333\361\340\362&\210\317\363!\210\322\364\324\340\365%\210\317\346\366\350\367#!\210\317\370!\210\371\315BC\372 \315D\211E\203'E@D\322\364\324D\211D\f>)\373D\333C\340\374&	BDBB\nB\375B\356\376\377\201F\377\324\201G\201HD\"\340\201I\333C&\f\210\317\201J\346\201KD!\350\201L#\363#\210EA\211E\204\311,eb\210\201M \207" [buffer 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 #[(_widget &rest _ignore) "\300\301!\207" [describe-variable custom-theme-load-path] 2] "'.\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." #[(_widget &rest _ignore) "\300\301!\207" [customize-create-theme user] 2] ".\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 user-settings x widget help-echo theme --dolist-tail-- :mouse-face-get format " %s" widget-parent-action " -- " custom-theme-summary shadow widget-setup] 19 (#$ . 21428) nil])
#@35 Return the summary line of THEME.
(defalias 'custom-theme-summary #[(theme) "\306	\211\n>)\203	\307N\202Q\310\311	!\312P\313 \314#\211\203P\315\316!r\fq\210\317\216\320!\210\306\211\321\322\217)\211\203O<\203O@\323=\203O\3248,)\204Y\325\202h\326\327\"\203g\330\331\"\202h)\207" [doc theme custom-known-themes fn #1=#:temp-buffer read-circle nil theme-documentation locate-file symbol-name "-theme.el" custom-theme--load-path ("" "c") generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents (byte-code "\300p!\207" [read] 2) ((end-of-file)) deftheme 2 "(no documentation available)" string-match ".*" match-string 0 sexp] 5 (#$ . 24049)])
(defalias 'custom-theme-checkbox-toggle #[(widget &optional event) "\306\307\"\310!\203\311	!\210\312\n\"\210\202|\204q\f\313\211\203B@\211	=\2049
\236\2039\311
!\210A\211\204$*\313\211\203p@\211@	=\204g\314
A\313\"\210\315
A\316
A\n$\210A\211\204M*\317	!\203|\312\n\"\210\320\304\321\322\f!C#)\207" [widget this-theme event custom-theme-allow-multiple-selections custom-enabled-themes theme widget-get :theme-name widget-value disable-theme widget-toggle-action nil widget-value-set widget-apply :notify load-theme put customized-value custom-quote --dolist-tail-- custom--listed-themes] 6])
#@48 Describe the Custom theme on the current line.
(defalias 'custom-describe-theme #[nil "\301\302 !\211\205\303\304\305\"!)\207" [widget widget-at line-beginning-position describe-theme widget-get :theme-name] 5 (#$ . 25434) nil])
(defalias 'custom-theme-save #[(&rest _ignore) "\301\300\"\210\302\303!\207" [custom-enabled-themes customize-save-variable message "Custom themes saved for future sessions."] 3 nil nil])
(defalias 'custom-theme-selections-toggle #[(widget &optional event) "\304!\203\305\306\307\310\311	\"\"GW\203\312\313!\210\314\n\"\210\304!\211\207" [widget custom--listed-themes event custom-theme-allow-multiple-selections widget-value 1 delq nil mapcar #[(x) "\301A!\207" [x widget-value] 2] error "More than one theme is currently selected" widget-toggle-action] 6])
(provide 'cus-theme)
F1l3 Manager
