Gecko [ 122.154.134.11 ]

Name	Size	Permission
calc	[ DIR ]	drwxr-xr-x
calendar	[ DIR ]	drwxr-xr-x
emacs-lisp	[ DIR ]	drwxr-xr-x
emulation	[ DIR ]	drwxr-xr-x
erc	[ DIR ]	drwxr-xr-x
eshell	[ DIR ]	drwxr-xr-x
gnus	[ DIR ]	drwxr-xr-x
international	[ DIR ]	drwxr-xr-x
language	[ DIR ]	drwxr-xr-x
mail	[ DIR ]	drwxr-xr-x
mh-e	[ DIR ]	drwxr-xr-x
net	[ DIR ]	drwxr-xr-x
nxml	[ DIR ]	drwxr-xr-x
obsolete	[ DIR ]	drwxr-xr-x
org	[ DIR ]	drwxr-xr-x
play	[ DIR ]	drwxr-xr-x
progmodes	[ DIR ]	drwxr-xr-x
term	[ DIR ]	drwxr-xr-x
textmodes	[ DIR ]	drwxr-xr-x
url	[ DIR ]	drwxr-xr-x
COPYING	34.32 KB	-rw-r--r--
README	538 B	-rw-r--r--
abbrev.elc	29.69 KB	-rw-r--r--
abbrevlist.elc	1.12 KB	-rw-r--r--
add-log.elc	35.21 KB	-rw-r--r--
align.elc	38.38 KB	-rw-r--r--
allout.elc	208.3 KB	-rw-r--r--
ansi-color.elc	16.3 KB	-rw-r--r--
apropos.elc	31.93 KB	-rw-r--r--
arc-mode.elc	54.72 KB	-rw-r--r--
array.elc	25.83 KB	-rw-r--r--
autoarg.elc	5.98 KB	-rw-r--r--
autoinsert.elc	12.01 KB	-rw-r--r--
autorevert.elc	18.25 KB	-rw-r--r--
avoid.elc	10.17 KB	-rw-r--r--
battery.elc	17.98 KB	-rw-r--r--
bindings.elc	39.04 KB	-rw-r--r--
bookmark.elc	55.9 KB	-rw-r--r--
bs.elc	48.34 KB	-rw-r--r--
buff-menu.elc	28 KB	-rw-r--r--
button.elc	13.92 KB	-rw-r--r--
calculator.elc	49.18 KB	-rw-r--r--
case-table.elc	4.42 KB	-rw-r--r--
cdl.elc	1.26 KB	-rw-r--r--
chistory.elc	5.75 KB	-rw-r--r--
cmuscheme.elc	17.43 KB	-rw-r--r--
comint.elc	100.97 KB	-rw-r--r--
compare-w.elc	10.98 KB	-rw-r--r--
complete.elc	23.62 KB	-rw-r--r--
completion.elc	45.06 KB	-rw-r--r--
composite.elc	29.39 KB	-rw-r--r--
cus-dep.elc	5.04 KB	-rw-r--r--
cus-edit.elc	129.67 KB	-rw-r--r--
cus-face.elc	10.46 KB	-rw-r--r--
cus-load.el	63.45 KB	-rw-r--r--
cus-start.elc	10.67 KB	-rw-r--r--
cus-theme.elc	13.7 KB	-rw-r--r--
custom.elc	36.46 KB	-rw-r--r--
cvs-status.elc	23 KB	-rw-r--r--
dabbrev.elc	23.08 KB	-rw-r--r--
delim-col.elc	8.41 KB	-rw-r--r--
delsel.elc	5.24 KB	-rw-r--r--
descr-text.elc	20.69 KB	-rw-r--r--
desktop.elc	34.52 KB	-rw-r--r--
dframe.elc	22.51 KB	-rw-r--r--
diff-mode.elc	55.58 KB	-rw-r--r--
diff.elc	5.51 KB	-rw-r--r--
dired-aux.elc	67.5 KB	-rw-r--r--
dired-x.elc	44.96 KB	-rw-r--r--
dired.elc	96.48 KB	-rw-r--r--
dirtrack.elc	7.39 KB	-rw-r--r--
disp-table.elc	8.33 KB	-rw-r--r--
dnd.elc	7.04 KB	-rw-r--r--
doc-view.elc	36.01 KB	-rw-r--r--
dos-fns.elc	5.53 KB	-rw-r--r--
dos-vars.elc	1.24 KB	-rw-r--r--
dos-w32.elc	11.12 KB	-rw-r--r--
double.elc	4.13 KB	-rw-r--r--
ebuff-menu.elc	9.11 KB	-rw-r--r--
echistory.elc	4.93 KB	-rw-r--r--
ediff-diff.elc	35.54 KB	-rw-r--r--
ediff-help.elc	11.47 KB	-rw-r--r--
ediff-hook.elc	5.89 KB	-rw-r--r--
ediff-init.elc	60.88 KB	-rw-r--r--
ediff-merg.elc	10.04 KB	-rw-r--r--
ediff-mult.elc	58.31 KB	-rw-r--r--
ediff-ptch.elc	18.63 KB	-rw-r--r--
ediff-util.elc	118.44 KB	-rw-r--r--
ediff-vers.elc	4.74 KB	-rw-r--r--
ediff-wind.elc	30.56 KB	-rw-r--r--
ediff.elc	36.28 KB	-rw-r--r--
edmacro.elc	21.45 KB	-rw-r--r--
ehelp.elc	11.03 KB	-rw-r--r--
electric.elc	2.81 KB	-rw-r--r--
elide-head.elc	2.8 KB	-rw-r--r--
emacs-lock.elc	2.77 KB	-rw-r--r--
emerge.elc	80.16 KB	-rw-r--r--
env.elc	5.69 KB	-rw-r--r--
epa-dired.elc	1.87 KB	-rw-r--r--
epa-file.elc	6.77 KB	-rw-r--r--
epa-hook.elc	4.28 KB	-rw-r--r--
epa-mail.elc	7.04 KB	-rw-r--r--
epa.elc	34.03 KB	-rw-r--r--
epg-config.elc	4.01 KB	-rw-r--r--
epg.elc	85.05 KB	-rw-r--r--
expand.elc	9.42 KB	-rw-r--r--
ezimage.elc	9.2 KB	-rw-r--r--
face-remap.elc	13.15 KB	-rw-r--r--
facemenu.elc	23.61 KB	-rw-r--r--
faces.elc	81.51 KB	-rw-r--r--
ffap.elc	46.14 KB	-rw-r--r--
filecache.elc	16.1 KB	-rw-r--r--
files.elc	175.25 KB	-rw-r--r--
filesets.elc	73.03 KB	-rw-r--r--
find-cmd.elc	4.94 KB	-rw-r--r--
find-dired.elc	7.4 KB	-rw-r--r--
find-file.elc	18.68 KB	-rw-r--r--
find-lisp.elc	7.42 KB	-rw-r--r--
finder-inf.el	93.47 KB	-rw-r--r--
finder.elc	12.11 KB	-rw-r--r--
flow-ctrl.elc	2.44 KB	-rw-r--r--
foldout.elc	7.6 KB	-rw-r--r--
follow.elc	37.11 KB	-rw-r--r--
font-core.elc	12.92 KB	-rw-r--r--
font-lock.elc	61.1 KB	-rw-r--r--
format-spec.elc	1.98 KB	-rw-r--r--
format.elc	27.73 KB	-rw-r--r--
forms-d2.el	3.13 KB	-rw-r--r--
forms-pass.el	742 B	-rw-r--r--
forms.elc	35.13 KB	-rw-r--r--
frame.elc	48.66 KB	-rw-r--r--
fringe.elc	8.01 KB	-rw-r--r--
generic-x.elc	44.25 KB	-rw-r--r--
gs.elc	3.93 KB	-rw-r--r--
help-at-pt.elc	11.27 KB	-rw-r--r--
help-fns.elc	21.77 KB	-rw-r--r--
help-macro.elc	4.37 KB	-rw-r--r--
help-mode.elc	19.38 KB	-rw-r--r--
help.elc	40.91 KB	-rw-r--r--
hex-util.elc	1.48 KB	-rw-r--r--
hexl.elc	32.06 KB	-rw-r--r--
hi-lock.elc	23.27 KB	-rw-r--r--
hilit-chg.elc	28.02 KB	-rw-r--r--
hippie-exp.elc	23.39 KB	-rw-r--r--
hl-line.elc	7.71 KB	-rw-r--r--
ibuf-ext.elc	54.62 KB	-rw-r--r--
ibuf-macs.elc	11.65 KB	-rw-r--r--
ibuffer.elc	91.96 KB	-rw-r--r--
icomplete.elc	10.36 KB	-rw-r--r--
ido.elc	110.93 KB	-rw-r--r--
ielm.elc	17.67 KB	-rw-r--r--
iimage.elc	4.06 KB	-rw-r--r--
image-dired.elc	82.24 KB	-rw-r--r--
image-file.elc	6.11 KB	-rw-r--r--
image-mode.elc	14.54 KB	-rw-r--r--
image.elc	17.09 KB	-rw-r--r--
imenu.elc	24.8 KB	-rw-r--r--
indent.elc	17 KB	-rw-r--r--
info-look.elc	26.13 KB	-rw-r--r--
info-xref.elc	7.04 KB	-rw-r--r--
info.elc	119.11 KB	-rw-r--r--
informat.elc	9.69 KB	-rw-r--r--
isearch.elc	76.23 KB	-rw-r--r--
isearchb.elc	4.92 KB	-rw-r--r--
iswitchb.elc	32.11 KB	-rw-r--r--
jit-lock.elc	17.93 KB	-rw-r--r--
jka-cmpr-hook.elc	11.67 KB	-rw-r--r--
jka-compr.elc	12.64 KB	-rw-r--r--
json.elc	13.04 KB	-rw-r--r--
kermit.elc	2.96 KB	-rw-r--r--
kmacro.elc	31.07 KB	-rw-r--r--
ldefs-boot.el	1.17 MB	-rw-r--r--
ledit.elc	4.74 KB	-rw-r--r--
linum.elc	9.56 KB	-rw-r--r--
loaddefs.el	1.17 MB	-rw-r--r--
loadhist.elc	8.65 KB	-rw-r--r--
loadup.el	12.67 KB	-rw-r--r--
locate.elc	17.81 KB	-rw-r--r--
log-edit.elc	24.93 KB	-rw-r--r--
log-view.elc	14.06 KB	-rw-r--r--
longlines.elc	14.94 KB	-rw-r--r--
lpr.elc	8.61 KB	-rw-r--r--
ls-lisp.elc	17.35 KB	-rw-r--r--
macros.elc	6.99 KB	-rw-r--r--
makesum.elc	2.16 KB	-rw-r--r--
man.elc	40.03 KB	-rw-r--r--
master.elc	4.52 KB	-rw-r--r--
mb-depth.elc	3.12 KB	-rw-r--r--
md4.elc	8.14 KB	-rw-r--r--
menu-bar.elc	67.01 KB	-rw-r--r--
midnight.elc	8.92 KB	-rw-r--r--
minibuf-eldef.elc	5.15 KB	-rw-r--r--
minibuffer.elc	42.75 KB	-rw-r--r--
misc.elc	3.67 KB	-rw-r--r--
misearch.elc	8.96 KB	-rw-r--r--
mouse-copy.elc	4.07 KB	-rw-r--r--
mouse-drag.elc	7.33 KB	-rw-r--r--
mouse-sel.elc	20.93 KB	-rw-r--r--
mouse.elc	60.03 KB	-rw-r--r--
msb.elc	27.27 KB	-rw-r--r--
mwheel.elc	9.41 KB	-rw-r--r--
newcomment.elc	32.76 KB	-rw-r--r--
novice.elc	4.75 KB	-rw-r--r--
outline.elc	34.54 KB	-rw-r--r--
paren.elc	6.43 KB	-rw-r--r--
password-cache.elc	3.58 KB	-rw-r--r--
patcomp.el	775 B	-rw-r--r--
paths.el	7.28 KB	-rw-r--r--
pcmpl-cvs.elc	6 KB	-rw-r--r--
pcmpl-gnu.elc	8.21 KB	-rw-r--r--
pcmpl-linux.elc	3.17 KB	-rw-r--r--
pcmpl-rpm.elc	7.5 KB	-rw-r--r--
pcmpl-unix.elc	5.44 KB	-rw-r--r--
pcomplete.elc	34.1 KB	-rw-r--r--
pcvs-defs.elc	16.27 KB	-rw-r--r--
pcvs-info.elc	25.83 KB	-rw-r--r--
pcvs-parse.elc	15.34 KB	-rw-r--r--
pcvs-util.elc	26.8 KB	-rw-r--r--
pcvs.elc	85.52 KB	-rw-r--r--
pgg-def.elc	2.78 KB	-rw-r--r--
pgg-gpg.elc	13.09 KB	-rw-r--r--
pgg-parse.elc	13.45 KB	-rw-r--r--
pgg-pgp.elc	7.64 KB	-rw-r--r--
pgg-pgp5.elc	7.68 KB	-rw-r--r--
pgg.elc	18.01 KB	-rw-r--r--
printing.elc	157.56 KB	-rw-r--r--
proced.elc	57.95 KB	-rw-r--r--
ps-bdf.elc	13.34 KB	-rw-r--r--
ps-def.elc	3.09 KB	-rw-r--r--
ps-mule.elc	36.17 KB	-rw-r--r--
ps-print.elc	145.59 KB	-rw-r--r--
ps-samp.elc	5.5 KB	-rw-r--r--
recentf.elc	49.04 KB	-rw-r--r--
rect.elc	10.79 KB	-rw-r--r--
register.elc	10.69 KB	-rw-r--r--
repeat.elc	6.05 KB	-rw-r--r--
replace.elc	55.02 KB	-rw-r--r--
reposition.elc	2.88 KB	-rw-r--r--
reveal.elc	6.61 KB	-rw-r--r--
rfn-eshadow.elc	7.12 KB	-rw-r--r--
rot13.elc	2.6 KB	-rw-r--r--
ruler-mode.elc	22.48 KB	-rw-r--r--
s-region.elc	3.3 KB	-rw-r--r--
savehist.elc	10.57 KB	-rw-r--r--
saveplace.elc	7.51 KB	-rw-r--r--
sb-image.elc	2.51 KB	-rw-r--r--
scroll-all.elc	4.05 KB	-rw-r--r--
scroll-bar.elc	11.47 KB	-rw-r--r--
scroll-lock.elc	4.64 KB	-rw-r--r--
select.elc	11.8 KB	-rw-r--r--
server.elc	39.79 KB	-rw-r--r--
ses.elc	87.39 KB	-rw-r--r--
sha1.elc	8 KB	-rw-r--r--
shadowfile.elc	22.61 KB	-rw-r--r--
shell.elc	34.08 KB	-rw-r--r--
simple.elc	196.35 KB	-rw-r--r--
skeleton.elc	15.78 KB	-rw-r--r--
smerge-mode.elc	33.61 KB	-rw-r--r--
sort.elc	12.94 KB	-rw-r--r--
soundex.elc	1.34 KB	-rw-r--r--
speedbar.elc	115.06 KB	-rw-r--r--
startup.elc	60.78 KB	-rw-r--r--
strokes.elc	44.11 KB	-rw-r--r--
subdirs.el	426 B	-rw-r--r--
subr.elc	113.48 KB	-rw-r--r--
t-mouse.elc	3.38 KB	-rw-r--r--
tabify.elc	2 KB	-rw-r--r--
talk.elc	3.19 KB	-rw-r--r--
tar-mode.elc	52.24 KB	-rw-r--r--
tempo.elc	18.63 KB	-rw-r--r--
term.elc	99.67 KB	-rw-r--r--
terminal.elc	31.36 KB	-rw-r--r--
thingatpt.elc	10.84 KB	-rw-r--r--
thumbs.elc	26.23 KB	-rw-r--r--
time-stamp.elc	21.03 KB	-rw-r--r--
time.elc	18.2 KB	-rw-r--r--
timezone.elc	10.99 KB	-rw-r--r--
tmm.elc	13.9 KB	-rw-r--r--
tool-bar.elc	9.69 KB	-rw-r--r--
tooltip.elc	12.35 KB	-rw-r--r--
tree-widget.elc	20.87 KB	-rw-r--r--
tutorial.elc	21.41 KB	-rw-r--r--
type-break.elc	35.61 KB	-rw-r--r--
uniquify.elc	19.91 KB	-rw-r--r--
userlock.elc	4.69 KB	-rw-r--r--
vc-annotate.elc	22.68 KB	-rw-r--r--
vc-arch.elc	17.58 KB	-rw-r--r--
vc-bzr.elc	26.84 KB	-rw-r--r--
vc-cvs.elc	32.19 KB	-rw-r--r--
vc-dav.elc	5.3 KB	-rw-r--r--
vc-dir.elc	39.5 KB	-rw-r--r--
vc-dispatcher.elc	14.61 KB	-rw-r--r--
vc-git.elc	32.75 KB	-rw-r--r--
vc-hg.elc	25.95 KB	-rw-r--r--
vc-hooks.elc	32.75 KB	-rw-r--r--
vc-mtn.elc	10.95 KB	-rw-r--r--
vc-rcs.elc	34.99 KB	-rw-r--r--
vc-sccs.elc	13.24 KB	-rw-r--r--
vc-svn.elc	20.57 KB	-rw-r--r--
vc.elc	59.4 KB	-rw-r--r--
vcursor.elc	23.44 KB	-rw-r--r--
version.el	3.37 KB	-rw-r--r--
view.elc	35.96 KB	-rw-r--r--
vt-control.elc	2.06 KB	-rw-r--r--
vt100-led.elc	1.53 KB	-rw-r--r--
w32-fns.elc	15.82 KB	-rw-r--r--
w32-vars.elc	5.53 KB	-rw-r--r--
wdired.elc	21.69 KB	-rw-r--r--
whitespace.elc	59.83 KB	-rw-r--r--
wid-browse.elc	7.89 KB	-rw-r--r--
wid-edit.elc	104.76 KB	-rw-r--r--
widget.elc	1.37 KB	-rw-r--r--
windmove.elc	9.57 KB	-rw-r--r--
window.elc	57.4 KB	-rw-r--r--
winner.elc	11.61 KB	-rw-r--r--
woman.elc	107.73 KB	-rw-r--r--
x-dnd.elc	19.35 KB	-rw-r--r--
xml.elc	18.38 KB	-rw-r--r--
xt-mouse.elc	7.43 KB	-rw-r--r--

Code Editor : cus-theme.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:47 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/cus-theme.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`cus-theme.el' was compiled for Emacs 19.29 or later"))

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

(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)\207" [map widget-keymap make-keymap set-keymap-parent suppress-keymap define-key "n" widget-forward "p" widget-backward] 4) (#$ . 678))
(byte-code "\302\303N\204\f�\304\302\303\305#\210\306\307!\204�\304\307\310\311#\210\307B\312\307!\204(�\313\307\314 \"\210\306\315!\2044�\304\315\310\311#\210\315B\312\315!\204D�\313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^�\313\301\317\301\320\"\210	\"\210\304\311\321\320#\207" [current-load-list custom-new-theme-mode-abbrev-table custom-new-theme-mode-hook variable-documentation put "Hook run when entering New-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 default-boundp set-default make-sparse-keymap custom-new-theme-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 5)
#@295 Major mode for the buffer created by `customize-create-theme'.
Do not call this mode function yourself.  It is only meant for internal
use by `customize-create-theme'.

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\316\317#\210\306\320!\210\321\306\322!\210\306\323!\210\306\324!\210 \203b�\306\325!\210\326\306\327!\210\326\306\330!\210\326\306\331!\210\326)\332\333!\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 "New-Theme" use-local-map set-syntax-table define-key [mouse-1] widget-move-and-invoke widget-documentation-face custom-documentation widget-button-face widget-button-pressed-face widget-mouse-face widget-push-button-prefix "" widget-push-button-suffix widget-link-prefix widget-link-suffix run-mode-hooks custom-new-theme-mode-hook local-abbrev-table custom-button custom-button-pressed custom-button-mouse custom-raised-buttons] 4 (#$ . 1766) nil])
(byte-code "\301\302\303\304#\210\305B\306\305!\204�\307\305\310\"\210\311B\306\311!\204$�\307\311\310\"\210\312B\306\312!\2043�\307\312\310\"\210\310\207" [current-load-list put custom-new-theme-mode mode-class special custom-theme-name default-boundp set-default nil custom-theme-variables custom-theme-faces] 4)
#@24 Create a custom theme.
(defalias 'customize-create-theme #[nil "\306\307\310!!\210\311\312 \210)\313 \210\314\303!\210\314\315!\210\314\316!\210\314\304!\210\314\305!\210\314\317!\210\320\321	\322#\210\323\324\325\326\327\330\331\332&\210\320\333!\210\323\324\325\334\327\335\331\336&\210\320\333!\210\323\324\337\340\341$\210\320\333!\210\323\324\337\342\343$\210\320\344!\210\320\345!\210\323\346\347\350\n$\320\351!\210\323\352\353\354\355!#\320\344!\210\323\324\325\356\327\357\331\360&\210\320\344!\210\361 \320\344!\210\323\324\325\362\327\363\331\364&\210\320\344!\210\361 \320\344!\210\323\324\337\365\341$\210\320\333!\210\323\324\337\342\343$\210\320\344!\210\366 \210eb\210\367\370!\207" [inhibit-read-only custom-theme-directory user-login-name custom-theme-name custom-theme-description custom-theme-insert-variable-marker switch-to-buffer generate-new-buffer "*New Custom Theme*" t erase-buffer custom-new-theme-mode make-local-variable custom-theme-variables custom-theme-faces custom-theme-insert-face-marker widget-insert "This buffer helps you write a custom theme elisp file.\nThis will help you share your customizations with other people.\n\nInsert the names of all variables and faces you want the theme to include.\nInvoke \"Save Theme\" to save the theme.  The theme file will be saved to\nthe directory " "\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] :notify #[(&rest ignore) "\300\301!\205\f�\302p!\210\303 \207" [y-or-n-p "Discard current changes? " kill-buffer customize-create-theme] 2] "Reset Buffer" custom-theme-write "Save Theme" "\n" "\n\nTheme name: " editable-field :size 10 "\n\nDocumentation:\n" text :value format-time-string "Created %Y-%m-%d." "Insert Variable" "Add another variable to this theme." #[(widget &optional event) "\300\301!\207" [call-interactively custom-theme-add-variable] 2] point-marker "Insert Face" "Add another face to this theme." #[(widget &optional event) "\300\301!\207" [call-interactively custom-theme-add-face] 2] #[(&rest ignore) "\300\301!\205\f�\302p!\210\303 \207" [y-or-n-p "Discard current changes? " kill-buffer customize-create-theme] 2] widget-setup message ""] 8 (#$ . 3342) nil])
(defalias 'custom-theme-add-variable #[(symbol) "	\236\203
�\304\305\306!\"\207\307!\204�\304\310\306!\"\207\311=\203$�\304\312!\207\212\nb\210\313\314!\210\315\316\317\320!\321\322\323\324\325\326\327&B	B\330!\210)\331 )\207" [symbol custom-theme-variables custom-theme-insert-variable-marker widget message "%s is already in the theme" symbol-name boundp "%s is not defined as a variable" custom-enabled-themes "Custom theme cannot contain `custom-enabled-themes'" widget-insert "\n" widget-create custom-variable :tag custom-unlispify-tag-name :custom-level 0 :action custom-theme-variable-action :custom-state unknown :value custom-magic-reset widget-setup] 12 nil "vVariable name: "])
#@118 Alist of actions for the `custom-variable' widget in Custom Theme Mode.
See the documentation for `custom-variable'.
(defvar custom-theme-variable-menu '(("Reset to Current" custom-redraw (lambda (widget) (and (boundp (widget-value widget)) (memq (widget-get widget :custom-state) '(themed modified changed))))) ("Reset to Theme Value" custom-variable-reset-theme (lambda (widget) (let ((theme (intern (widget-value custom-theme-name))) (symbol (widget-value widget)) found) (and (custom-theme-p theme) (dolist (setting (get theme 'theme-settings) found) (if (and (eq (cadr setting) symbol) (eq (car setting) 'theme-value)) (setq found t))))))) ("---" ignore ignore) ("Delete" custom-theme-delete-variable nil)) (#$ . 6546))
#@110 Show the Custom Theme Mode menu for a `custom-variable' widget.
Optional EVENT is the location for the menu.
(defalias 'custom-theme-variable-action #[(widget &optional event) "\304\n\")\207" [custom-theme-variable-menu custom-variable-menu widget event custom-variable-action] 3 (#$ . 7278)])
#@59 Reset WIDGET to its value for the currently edited theme.
(defalias 'custom-variable-reset-theme #[(widget) "\306\307!!\307	!\310\211\311N\310\211\2039�@\211\211A@)=\2030�
@\312=\2030�
A\211\204�*\313\314	\315\"@\316\n8\"\210+\317	\320\321#\210\322	!\210\323 \207" [custom-theme-name widget found symbol theme setting intern widget-value nil theme-settings theme-value widget-value-set widget-get :children 3 widget-put :custom-state themed custom-redraw-magic widget-setup #1=#:--cl-dolist-temp-- x] 5 (#$ . 7581)])
(defalias 'custom-theme-delete-variable #[(widget) "\302\303!	\"\304!\207" [widget custom-theme-variables assq-delete-all widget-value widget-delete] 3])
(defalias 'custom-theme-add-face #[(symbol) "	\236\203
�\304\305\306!\"\207\307!\204�\304\310\306!\"\207\212\nb\210\311\312!\210\313\314\315\316!\317\320\321\322\323\324\325&B	B\326!\210\327 *\207" [symbol custom-theme-faces custom-theme-insert-face-marker widget message "%s is already in the theme" symbol-name facep "%s is not defined as a face" widget-insert "\n" widget-create custom-face :tag custom-unlispify-tag-name :custom-level 0 :action custom-theme-face-action :custom-state unknown :value custom-magic-reset widget-setup] 12 nil (list (read-face-name "Face name" nil nil))])
#@118 Alist of actions for the `custom-variable' widget in Custom Theme Mode.
See the documentation for `custom-variable'.
(defvar custom-theme-face-menu '(("Reset to Theme Value" custom-face-reset-theme (lambda (widget) (let ((theme (intern (widget-value custom-theme-name))) (symbol (widget-value widget)) found) (and (custom-theme-p theme) (dolist (setting (get theme 'theme-settings) found) (if (and (eq (cadr setting) symbol) (eq (car setting) 'theme-face)) (setq found t))))))) ("---" ignore ignore) ("Delete" custom-theme-delete-face nil)) (#$ . 8883))
#@106 Show the Custom Theme Mode menu for a `custom-face' widget.
Optional EVENT is the location for the menu.
(defalias 'custom-theme-face-action #[(widget &optional event) "\304\n\")\207" [custom-theme-face-menu custom-face-menu widget event custom-face-action] 3 (#$ . 9444)])
#@59 Reset WIDGET to its value for the currently edited theme.
(defalias 'custom-face-reset-theme #[(widget) "\306\307!!\307	!\310\211\311N\310\211\2039�@\211\211A@)=\2030�
@\312=\2030�
A\211\204�*\313\314	\315\"@\316\n8\"\210+\317	\320\321#\210\322	!\210\323 \207" [custom-theme-name widget found symbol theme setting intern widget-value nil theme-settings theme-face widget-value-set widget-get :children 3 widget-put :custom-state themed custom-redraw-magic widget-setup #1=#:--cl-dolist-temp-- x] 5 (#$ . 9727)])
(defalias 'custom-theme-delete-face #[(widget) "\302\303!	\"\304!\207" [widget custom-theme-faces assq-delete-all widget-value widget-delete] 3])
(defalias 'custom-theme-visit-theme #[nil "\203
�\304\305!\205.�\306 \210\307\310!\211\311=\204�\312\n\313	!\"\210\312	\314N\206)�\315\316!\"\210\317 )\207" [custom-theme-variables theme custom-theme-name custom-theme-description y-or-n-p "Discard current changes? " customize-create-theme call-interactively custom-theme-merge-theme user widget-value-set symbol-name theme-documentation format-time-string "Created %Y-%m-%d." widget-setup] 5 nil nil])
(defalias 'custom-theme-merge-theme #[(theme) "\305=\204\n�\306!\210\307N\211\310\211\203<�@\211@\311=\203,�\312\n\211A@)!\210\2025�\313\n\211A@)!\210A\211\204�+\314!\210\207" [theme settings setting #1=#:--cl-dolist-temp-- x user load-theme theme-settings nil theme-value custom-theme-add-variable custom-theme-add-face disable-theme] 4 nil "SCustom theme name: "])
(defalias 'custom-theme-write #[(&rest ignore) "\306!\307	\310P\n\"\306\f!+,-.	\311\230\204)�	\312\230\204)�	\313\230\2031�\314\315	\"\210\202R�\316\317	\"\203?�\314\320!\210\202R�\321!\203R�\322\323\324\"!\204R�\314\325!\210\326\327!/r/q\210\330\216\331 \210\321\n!\204n�\332\333\n!\334\"\2100\335 \210\336	\261\210
\203\203�\337
\340\261\210\341c\210\342	,\"\210\343	.\"\210\344	\341\261\210\345 \210+,\3461\2112\203\303�2@1\3471A\350\351#\210\3521A!\2102A\2112\204\247�*.\3463\2114\203\353�4@3\3473A\350\351#\210\3523A!\2104A\2114\204\317�.\346\207" [custom-theme-name name custom-theme-directory filename custom-theme-description doc widget-value expand-file-name "-theme.el" "" "user" "changed" error "Custom themes cannot be named `%s'" string-match " " "Custom theme names should not contain spaces" 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 make-directory file-name-as-directory t erase-buffer "(deftheme " "\n  \"" "\"" ")\n" custom-theme-write-variables custom-theme-write-faces "\n(provide-theme '" save-buffer nil widget-put :custom-state saved custom-redraw-magic custom-theme-variables vars custom-theme-faces faces #1# buffer-file-name var #2=#:--cl-dolist-temp-- face #3=#:--cl-dolist-temp--] 5])
#@97 Write a `custom-theme-set-variables' command for THEME.
It includes all variables in list VARS.
(defalias 'custom-theme-write-variables #[(theme vars) "\2052�p\303\304!\210\303\305!\210\303\n!\210\303\306!\210\307\310\"\210n\203#�\303\311!\210\303\312!\210\313\306!?\2051�\303\306!)\207" [vars standard-output theme princ "\n(custom-theme-set-variables\n" " '" "\n" mapc #[(spec) "@\304A\305\"\242\211\203�\306\n!\202�	\307N\310	!\205;�n\204&�\311\312!\210\311\313!\210\314	!\210\311\315!\210\314\316!!\210\311\317!+\207" [spec symbol child value widget-get :children widget-value standard-value boundp princ "\n" " '(" prin1 " " custom-quote ")"] 4] " " ")" looking-at] 3 (#$ . 12671)])
#@90 Write a `custom-theme-set-faces' command for THEME.
It includes all faces in list FACES.
(defalias 'custom-theme-write-faces #[(theme faces) "\2052�p\303\304!\210\303\305!\210\303\n!\210\303\306!\210\307\310\"\210n\203#�\303\311!\210\303\312!\210\313\306!?\2051�\303\306!)\207" [faces standard-output theme princ "\n(custom-theme-set-faces\n" " '" "\n" mapc #[(spec) "@\304A\305\"\242\211\205�\306\n!\307	!\2057�\n\2057�n\204$�\310\311!\210\310\312!\210\313	!\210\310\314!\210\313!\210\310\315!+\207" [spec symbol child value widget-get :children widget-value facep princ "\n" " '(" prin1 " " ")"] 4] " " ")" looking-at] 3 (#$ . 13376)])

${this.title}

Code Editor : cus-theme.elc