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 : jka-compr.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:16 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/jka-compr.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 "`jka-compr.el' was compiled for Emacs 19.29 or later"))

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

(require 'jka-cmpr-hook)
#@98 Shell to be used for calling compression programs.
NOTE: Not used in MS-DOS and Windows systems.
(custom-declare-variable 'jka-compr-shell '"sh" '(#$ . 634) :type 'string :group 'jka-compr)
(byte-code "\302B\303\302!\204�\304\302	\305>?\"\210\302\207" [current-load-list system-type jka-compr-use-shell default-boundp set-default (ms-dos windows-nt)] 4)
#@174 Non-nil in a buffer whose visited file was uncompressed on visiting it.
This means compress the data on writing the file, even if the
data appears to be compressed already.
(defvar jka-compr-really-do-compress nil (#$ . 998))
(byte-code "\301\302!\210\303\302\304\305#\210\303\306\307\310#\210\311B\312\311!\204�\313\311\314\"\210\301\207" [current-load-list make-variable-buffer-local jka-compr-really-do-compress put permanent-local t compression-error error-conditions (compression-error file-error error) jka-compr-acceptable-retval-list default-boundp set-default (0 2 141)] 4)
(defalias 'jka-compr-error #[(prog args infile message &optional errfile) "\306\307!rq\210~\210\310 \210\311\312	\313\314\n\315#$c\210\f\203!�\316\f!\210)\317!\210)\320\321\322\311\323
\"E\"\207" [errbuf prog args infile errfile message get-buffer-create " *jka-compr-error*" erase-buffer format "Error while executing \"%s %s < %s\"\n\n" mapconcat identity " " insert-file-contents display-buffer signal compression-error "Opening input file" "error %s"] 7])
#@21 How to invoke `dd'.
(custom-declare-variable 'jka-compr-dd-program '"/bin/dd" '(#$ . 2055) :type 'string :group 'jka-compr)
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list jka-compr-dd-blocksize default-boundp set-default 256] 3)
#@187 Call program PROG with ARGS args taking input from INFILE.
Fourth and fifth args, BEG and LEN, specify which part of the output
to keep: LEN chars starting BEG chars from the beginning.
(defalias 'jka-compr-partial-uncompress #[(prog message args infile beg len) "`\203\212�\f\203\212�
\245\306 \203\"�\307!\203\"�\202&�\310!\311
_Z\205B�	\\
\245T\312\216\313\314\311\315\316\317\320\321 \322#\f
\203l�\316\323T\"\202m�\324!&	&\">\204\206�\325 #%\210-\202\230�\326#\314\311 &\210\203\261�\327\n	#`W\203\261�\327\n	#`|\210\n\211	\\|*\207" [beg prefix start jka-compr-use-shell jka-compr-dd-program jka-compr-dd-blocksize jka-compr-make-temp-name file-accessible-directory-p file-name-directory nil ((jka-compr-delete-temp-file err-file)) call-process t "-c" format "%s %s 2> %s | %s bs=%d skip=%d %s 2> %s" mapconcat identity " " "count=%d" "" jka-compr-error jka-compr-call-process + default-directory infile count err-file skip len jka-compr-shell prog args null-device jka-compr-acceptable-retval-list message] 17 (#$ . 2325)])
(defalias 'jka-compr-call-process #[(prog message infile output temp args) "\203�\306!\203�\202�\307	!\n\203b�\310 \206�\311\312\313\216\314	;?\2050�\315\316\317\320\321\322\323#
;\203J�\324P\202K�\325%&>\206^�\326	 
%,\202\235�\327\314	;\203r�!\202t�\315&\330=\204\210�\326	 $\210;\205\235�r!q\210\331ed#\210\332 ))\207" [default-directory infile jka-compr-use-shell coding-system-for-read coding-system-for-write err-file file-accessible-directory-p file-name-directory jka-compr-make-temp-name undecided no-conversion ((jka-compr-delete-temp-file err-file)) call-process nil "-c" format "%s %s 2> %s %s" mapconcat identity " " "> " "" jka-compr-error apply 0 write-region erase-buffer jka-compr-shell output prog args jka-compr-acceptable-retval-list message temp] 13])
#@121 Prefix added to all temp files created by jka-compr.
There should be no more than seven characters after the final `/'.
(custom-declare-variable 'jka-compr-temp-name-template '(expand-file-name "jka-com" temporary-file-directory) '(#$ . 4259) :type 'string :group 'jka-compr)
#@50 This routine will return the name of a new file.
(defalias 'jka-compr-make-temp-name #[(&optional local-copy) "\301!\207" [jka-compr-temp-name-template make-temp-file] 2 (#$ . 4541)])
(defalias 'jka-compr-delete-temp-file 'delete-file)
(defalias 'jka-compr-write-region #[(start end file &optional append visit) "\306!\n;\203�\306\n!\202�	\307!\211\205�\310\f!'\2034�(\2032�)(Z\311 U\2034�\312\f\203\203
\203p�(;\203O�(\313(G
G^O\202k�(\206U�e*)\206]�d*
G\\^+*+{*
\232\204\203\314\f!\315\f!\316\f!\317\f!\320!\312\211,-./012343\204\234�\321\322!\210\323\324!.r.q\210~\210\325 \210)5\203\317�4\204\317�\326	!\203\317�\327	!\2116\206\306�	\2117/*\202\323�\330 /2\203\340�\331\33220#\210\333\334()/\335\336\257\"\210,-\3378\34032\3410Q/.\3121&\210)r.q\210\3379:\342>\203\335;\333\334ed	5\205'4\336\257\"\210\325 \210*\343/!\2102\203B\331\34420#\210\n\335=\203T	<\335'\345 \210\202c\n;\203c\n<	<\345 \210)\n\335=\204t\n\312=\204t\n;\203y\331\346\"\210-,.\312\202\220\333\334()	5\n\257\",\207" [file filename visit visit-file info magic expand-file-name jka-compr-get-compression-info jka-compr-info-file-magic-bytes buffer-size nil 0 jka-compr-info-can-append jka-compr-info-compress-program jka-compr-info-compress-message jka-compr-info-compress-args file-name-nondirectory error "No compression program defined" get-buffer-create " *jka-compr-wr-temp*" erase-buffer file-exists-p file-local-copy jka-compr-make-temp-name message "%s %s..." jka-compr-run-real-handler write-region t dont no-conversion jka-compr-call-process " " (ms-dos windows-nt) jka-compr-delete-temp-file "%s %s...done" set-visited-file-modtime "Wrote %s" jka-compr-really-do-compress start end from to last-coding-system-used coding-system-used temp-buffer temp-file base-name compress-args compress-message compress-program can-append append local-copy local-file coding-system-for-read coding-system-for-write system-type buffer-file-type buffer-file-name] 9])
(defalias 'jka-compr-insert-file-contents #[(file &optional visit beg end replace) "\306 \210\204�	\203�\n\203�\307\310!\210\311!\312\f!\211\204-�\313\314\n	%\257\"\202\316�\315
!\316
!\317
!\320\f!\321\313\322\fC\"\321\211\211&'()*+,-.)\206Z�\f(\n\203c�\f/\323\216.\203r�\324\325.+#\210\326\327\330\217\210)*\204\216�\331``'\\\332!\n	%&\210\n\203\236�\333 \210\f/\3340\335 \210.\203\253�\324\336.+#\210\n\203\276�*\203\276�\337\340\341\342*8B\"\210\343
!\204\310�\324\344!\210\f'.	D*\207" [beg end visit file filename info barf-if-buffer-read-only error "Attempt to visit less than an entire file" expand-file-name jka-compr-get-compression-info jka-compr-run-real-handler insert-file-contents jka-compr-info-uncompress-message jka-compr-info-uncompress-program jka-compr-info-uncompress-args file-name-nondirectory nil file-local-copy ((byte-code "\203�\301!\203�\302!\210\301\207" [local-copy file-exists-p delete-file] 2)) message "%s %s..." error-code (byte-code "\306	\203	�eb\210`\204�\f\2039�\307

\310Q\206$�\311\2032�\f\2032�\fZ\2023�\f&\210\202U�?\205A�\312

\310Q\313\314&\210)`\nZ	\203b�`d|\210\nb\210)\314\207" [coding-system-for-read replace start beg end uncompress-program no-conversion jka-compr-partial-uncompress " " 0 jka-compr-call-process t nil uncompress-message base-name uncompress-args local-file visit buffer-file-name size] 8) ((error (byte-code "@\305=\203$�\3068	=\203$�\n\203�\202D�\307\305\310AAB\"\210\202D�@\305=\203=�\211A@)\311\232\203=�\312\313\3068\"\210\307@A\"\210\305\207" [error-code local-file visit notfound x file-error 3 signal "Opening input file" "Searching for program" error "Uncompression program `%s' not found"] 5))) decode-coding-inserted-region jka-compr-byte-compiler-base-file-name unlock-buffer t set-visited-file-modtime "%s %s...done" signal file-error "Opening input file" 2 jka-compr-info-compress-program "You can't save this buffer because compression program is not defined" replace start size local-file local-copy notfound base-name uncompress-args uncompress-program uncompress-message buffer-file-name jka-compr-really-do-compress] 10])
(defalias 'jka-compr-file-local-copy #[(file) "\306!\307	!\211\203~�\310\n!\311\n!\312\n!\313	!\314\315	C\"\316\317!\320\321!\322 \2067�	\323\216r\fq\210 \203K�\324\325 #\210\326\211!\"\327 \330Q\317\322&\210 \203o�\324\331 #\210\332ed
\322\333%\210,
.\202\203�\314\315	C\"*\207" [file filename info local-file temp-buffer temp-file expand-file-name jka-compr-get-compression-info jka-compr-info-uncompress-message jka-compr-info-uncompress-program jka-compr-info-uncompress-args file-name-nondirectory jka-compr-run-real-handler file-local-copy jka-compr-make-temp-name t get-buffer-create " *jka-compr-flc-temp*" nil ((byte-code "\203�\302!\203�\303!\210\304	!\207" [local-copy temp-buffer file-exists-p delete-file kill-buffer] 2)) message "%s %s..." no-conversion jka-compr-call-process " " "%s %s...done" write-region dont local-copy base-name uncompress-args uncompress-program uncompress-message coding-system-for-write coding-system-for-read] 9])
#@25 Documented as original.
(defalias 'jka-compr-load #[(file &optional noerror nomessage nosuffix) "\306!\211\206	�\307\216\310\211
\204�\311\312\"\210\313\314\n\313\211$\210)
\204.�\311\315\"\210\316\n\"\317!\203B�\320!\2025�\240\210.\313\207" [file local-copy load-file inhibit-file-name-handlers inhibit-file-name-operation nomessage jka-compr-file-local-copy ((jka-compr-delete-temp-file local-copy)) nil message "Loading %s..." t load "Loading %s...done." assoc file-name-extension file-name-sans-extension load-force-doc-strings noerror load-history l] 6 (#$ . 9770)])
(defalias 'jka-compr-byte-compiler-base-file-name #[(file) "\303!\211\203 �\304	!\203 �\305 \306\216\307\310\311	!\"O*\202!�)\207" [file info save-match-data-internal jka-compr-get-compression-info jka-compr-info-strip-extension match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 0 string-match jka-compr-info-regexp] 6])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\311#\210\300\312\302\313#\207" [put write-region jka-compr jka-compr-write-region insert-file-contents jka-compr-insert-file-contents file-local-copy jka-compr-file-local-copy load jka-compr-load byte-compiler-base-file-name jka-compr-byte-compiler-base-file-name] 4)
#@181 Non-nil means inhibit automatic uncompression temporarily.
Lisp programs can bind this to t to do that.
It is not recommended to set this variable permanently to anything but nil.
(defvar jka-compr-inhibit nil (#$ . 11103))
(defalias 'jka-compr-handler #[(operation &rest args) "\305 \306\216	\307N\211\203�\204�\310\n\f\"\202�\311	\f\"+\207" [save-match-data-internal operation jka-op jka-compr-inhibit args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) jka-compr apply jka-compr-run-real-handler] 4])
(defalias 'jka-compr-run-real-handler #[(operation args) "\304	=\205�\nB	\305	\"*\207" [inhibit-file-name-operation operation inhibit-file-name-handlers args jka-compr-handler apply] 3])
#@180 Uninstall jka-compr.
This removes the entries in `file-name-handler-alist' and `auto-mode-alist'
and `inhibit-first-line-modes-suffixes' that were added
by `jka-compr-installed'.
(defalias 'jka-compr-uninstall #[nil "\306\307\"\210\310	B\211A\203)�A@A\311=\203\"�\211AA\241\210\202�A\211\202\f�\nA*\310\fB\211\310A\203g�A@\211\235\204W�A:\203`�\3128\313=\203`�\211AA\241\210\2026�A\211\2027�
A+\203\204�\314\211A@\235@\"\202k�\310\211\203\245�@\315\"A\211\204\217�*\310\211\310\211\207" [jka-compr-compression-info-list--internal file-name-handler-alist fnha last auto-mode-alist ama mapc #[(x) "\302!\205�\303\304!	\"\211\207" [x inhibit-first-line-modes-suffixes jka-compr-info-strip-extension delete jka-compr-info-regexp] 3] nil jka-compr-handler 2 jka-compr delq delete entry jka-compr-mode-alist-additions--internal jka-compr-added-to-file-coding-system-alist file-coding-system-alist jka-compr-load-suffixes--internal suff --dolist-tail-- load-file-rep-suffixes] 4 (#$ . 11862)])
(provide 'jka-compr)

${this.title}

Code Editor : jka-compr.elc