Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
Delete
Unzip
Name
Size
Permission
Date
Action
calc
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
calendar
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
cedet
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
emacs-lisp
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
emulation
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
erc
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
eshell
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
gnus
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
international
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
language
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
mail
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
mh-e
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
net
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
nxml
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
obsolete
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
org
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
play
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
progmodes
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
term
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
textmodes
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
url
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
vc
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
COPYING
34.32
KB
-rw-r--r--
2013-03-08 03:32
README
538
B
-rw-r--r--
2012-04-13 21:33
abbrev.elc
30.89
KB
-rw-r--r--
2023-06-07 04:18
align.elc
38.85
KB
-rw-r--r--
2023-06-07 04:02
allout-widgets.elc
62.73
KB
-rw-r--r--
2023-06-07 04:02
allout.elc
205.09
KB
-rw-r--r--
2023-06-07 04:02
ansi-color.elc
17.13
KB
-rw-r--r--
2023-06-07 04:02
apropos.elc
34.55
KB
-rw-r--r--
2023-06-07 04:02
arc-mode.elc
58.2
KB
-rw-r--r--
2023-06-07 04:02
array.elc
26.08
KB
-rw-r--r--
2023-06-07 04:02
autoarg.elc
5.92
KB
-rw-r--r--
2023-06-07 04:02
autoinsert.elc
11.59
KB
-rw-r--r--
2023-06-07 04:02
autorevert.elc
17.96
KB
-rw-r--r--
2023-06-07 04:02
avoid.elc
11.37
KB
-rw-r--r--
2023-06-07 04:02
battery.elc
19.36
KB
-rw-r--r--
2023-06-07 04:02
bindings.elc
38.45
KB
-rw-r--r--
2023-06-07 04:18
bookmark.elc
65.98
KB
-rw-r--r--
2023-06-07 04:02
bs.elc
49.12
KB
-rw-r--r--
2023-06-07 04:02
buff-menu.elc
25.26
KB
-rw-r--r--
2023-06-07 04:19
button.elc
13.22
KB
-rw-r--r--
2023-06-07 04:18
calculator.elc
50.38
KB
-rw-r--r--
2023-06-07 04:02
case-table.elc
4.7
KB
-rw-r--r--
2023-06-07 04:18
cdl.elc
1.2
KB
-rw-r--r--
2023-06-07 04:02
chistory.elc
6.03
KB
-rw-r--r--
2023-06-07 04:02
cmuscheme.elc
18.25
KB
-rw-r--r--
2023-06-07 04:02
color.elc
11.98
KB
-rw-r--r--
2023-06-07 04:02
comint.elc
111.01
KB
-rw-r--r--
2023-06-07 04:02
completion.elc
42.08
KB
-rw-r--r--
2023-06-07 04:02
composite.elc
25.33
KB
-rw-r--r--
2023-06-07 04:18
cus-dep.elc
4.88
KB
-rw-r--r--
2023-06-07 04:02
cus-edit.elc
135.22
KB
-rw-r--r--
2023-06-07 04:02
cus-face.elc
11.21
KB
-rw-r--r--
2023-06-07 04:18
cus-load.el
72.07
KB
-rw-r--r--
2023-06-07 04:16
cus-start.elc
15.41
KB
-rw-r--r--
2023-06-07 04:18
cus-theme.elc
25.64
KB
-rw-r--r--
2023-06-07 04:02
custom.elc
43.88
KB
-rw-r--r--
2023-06-07 04:18
dabbrev.elc
22.38
KB
-rw-r--r--
2023-06-07 04:02
delim-col.elc
8.07
KB
-rw-r--r--
2023-06-07 04:02
delsel.elc
6.44
KB
-rw-r--r--
2023-06-07 04:02
descr-text.elc
23.76
KB
-rw-r--r--
2023-06-07 04:02
desktop.elc
34.73
KB
-rw-r--r--
2023-06-07 04:02
dframe.elc
21.42
KB
-rw-r--r--
2023-06-07 04:02
dired-aux.elc
73.91
KB
-rw-r--r--
2023-06-07 04:02
dired-x.elc
43.31
KB
-rw-r--r--
2023-06-07 04:02
dired.elc
129.27
KB
-rw-r--r--
2023-06-07 04:02
dirtrack.elc
7.39
KB
-rw-r--r--
2023-06-07 04:02
disp-table.elc
9.09
KB
-rw-r--r--
2023-06-07 04:19
dnd.elc
7.29
KB
-rw-r--r--
2023-06-07 04:19
doc-view.elc
47.2
KB
-rw-r--r--
2023-06-07 04:02
dos-fns.elc
6.31
KB
-rw-r--r--
2023-06-07 04:19
dos-vars.elc
1.2
KB
-rw-r--r--
2023-06-07 04:19
dos-w32.elc
11.18
KB
-rw-r--r--
2023-06-07 04:19
double.elc
3.99
KB
-rw-r--r--
2023-06-07 04:02
dynamic-setting.elc
2.23
KB
-rw-r--r--
2023-06-07 04:19
ebuff-menu.elc
10.74
KB
-rw-r--r--
2023-06-07 04:02
echistory.elc
4.94
KB
-rw-r--r--
2023-06-07 04:02
edmacro.elc
20.48
KB
-rw-r--r--
2023-06-07 04:02
ehelp.elc
11.7
KB
-rw-r--r--
2023-06-07 04:02
electric.elc
11.97
KB
-rw-r--r--
2023-06-07 04:02
elide-head.elc
2.8
KB
-rw-r--r--
2023-06-07 04:02
emacs-lock.elc
9.19
KB
-rw-r--r--
2023-06-07 04:02
env.elc
5.47
KB
-rw-r--r--
2023-06-07 04:18
epa-dired.elc
1.78
KB
-rw-r--r--
2023-06-07 04:02
epa-file.elc
8.19
KB
-rw-r--r--
2023-06-07 04:02
epa-hook.elc
4.46
KB
-rw-r--r--
2023-06-07 04:18
epa-mail.elc
7.7
KB
-rw-r--r--
2023-06-07 04:02
epa.elc
34.21
KB
-rw-r--r--
2023-06-07 04:02
epg-config.elc
3.89
KB
-rw-r--r--
2023-06-07 04:02
epg.elc
88.76
KB
-rw-r--r--
2023-06-07 04:02
expand.elc
9.24
KB
-rw-r--r--
2023-06-07 04:03
ezimage.elc
9.91
KB
-rw-r--r--
2023-06-07 04:03
face-remap.elc
15
KB
-rw-r--r--
2023-06-07 04:03
facemenu.elc
26.49
KB
-rw-r--r--
2023-06-07 04:19
faces.elc
80.49
KB
-rw-r--r--
2023-06-07 04:18
ffap.elc
47.01
KB
-rw-r--r--
2023-06-07 04:03
filecache.elc
15.38
KB
-rw-r--r--
2023-06-07 04:03
files-x.elc
12.22
KB
-rw-r--r--
2023-06-07 04:03
files.elc
193.24
KB
-rw-r--r--
2023-06-07 04:18
filesets.elc
71.89
KB
-rw-r--r--
2023-06-07 04:03
find-cmd.elc
4.95
KB
-rw-r--r--
2023-06-07 04:03
find-dired.elc
8.27
KB
-rw-r--r--
2023-06-07 04:03
find-file.elc
18.12
KB
-rw-r--r--
2023-06-07 04:03
find-lisp.elc
7.35
KB
-rw-r--r--
2023-06-07 04:03
finder-inf.el
37.71
KB
-rw-r--r--
2023-06-07 04:16
finder.elc
13.95
KB
-rw-r--r--
2023-06-07 04:03
flow-ctrl.elc
2.38
KB
-rw-r--r--
2023-06-07 04:03
foldout.elc
7.42
KB
-rw-r--r--
2023-06-07 04:03
follow.elc
29.11
KB
-rw-r--r--
2023-06-07 04:03
font-core.elc
12.04
KB
-rw-r--r--
2023-06-07 04:19
font-lock.elc
62.75
KB
-rw-r--r--
2023-06-07 04:19
format-spec.elc
1.92
KB
-rw-r--r--
2023-06-07 04:03
format.elc
27.65
KB
-rw-r--r--
2023-06-07 04:18
forms.elc
35.14
KB
-rw-r--r--
2023-06-07 04:03
frame.elc
49.73
KB
-rw-r--r--
2023-06-07 04:19
fringe.elc
8.81
KB
-rw-r--r--
2023-06-07 04:19
generic-x.elc
43.94
KB
-rw-r--r--
2023-06-07 04:03
gs.elc
3.87
KB
-rw-r--r--
2023-06-07 04:03
help-at-pt.elc
11.21
KB
-rw-r--r--
2023-06-07 04:03
help-fns.elc
32.37
KB
-rw-r--r--
2023-06-07 04:03
help-macro.elc
4.42
KB
-rw-r--r--
2023-06-07 04:03
help-mode.elc
23.45
KB
-rw-r--r--
2023-06-07 04:03
help.elc
39.42
KB
-rw-r--r--
2023-06-07 04:18
hex-util.elc
1.42
KB
-rw-r--r--
2023-06-07 04:03
hexl.elc
33.06
KB
-rw-r--r--
2023-06-07 04:03
hfy-cmap.elc
24.87
KB
-rw-r--r--
2023-06-07 04:03
hi-lock.elc
23.53
KB
-rw-r--r--
2023-06-07 04:03
hilit-chg.elc
27.9
KB
-rw-r--r--
2023-06-07 04:03
hippie-exp.elc
22.68
KB
-rw-r--r--
2023-06-07 04:03
hl-line.elc
8.23
KB
-rw-r--r--
2023-06-07 04:03
htmlfontify.el.htmlfontify-command-injection-vulnerability
101.78
KB
-rw-r--r--
2013-01-01 15:37
htmlfontify.elc
66.45
KB
-rw-r--r--
2023-06-07 04:03
ibuf-ext.elc
55.96
KB
-rw-r--r--
2023-06-07 04:03
ibuf-macs.elc
11.32
KB
-rw-r--r--
2023-06-07 04:03
ibuffer.elc
101.47
KB
-rw-r--r--
2023-06-07 04:03
icomplete.elc
10.18
KB
-rw-r--r--
2023-06-07 04:03
ido.elc
113.4
KB
-rw-r--r--
2023-06-07 04:03
ielm.elc
18.26
KB
-rw-r--r--
2023-06-07 04:03
iimage.elc
4.6
KB
-rw-r--r--
2023-06-07 04:03
image-dired.elc
84.38
KB
-rw-r--r--
2023-06-07 04:03
image-file.elc
6.05
KB
-rw-r--r--
2023-06-07 04:03
image-mode.elc
23.73
KB
-rw-r--r--
2023-06-07 04:03
image.elc
24.66
KB
-rw-r--r--
2023-06-07 04:19
imenu.elc
26.35
KB
-rw-r--r--
2023-06-07 04:03
indent.elc
18.37
KB
-rw-r--r--
2023-06-07 04:19
info-look.elc
27.92
KB
-rw-r--r--
2023-06-07 04:03
info-xref.elc
16.12
KB
-rw-r--r--
2023-06-07 04:03
info.elc
138.16
KB
-rw-r--r--
2023-06-07 04:03
informat.elc
9.99
KB
-rw-r--r--
2023-06-07 04:03
isearch.elc
98.16
KB
-rw-r--r--
2023-06-07 04:19
isearchb.elc
4.68
KB
-rw-r--r--
2023-06-07 04:03
iswitchb.elc
31.48
KB
-rw-r--r--
2023-06-07 04:03
jit-lock.elc
17.68
KB
-rw-r--r--
2023-06-07 04:19
jka-cmpr-hook.el
14.3
KB
-rw-r--r--
2013-01-01 15:37
jka-cmpr-hook.elc
12.4
KB
-rw-r--r--
2023-06-07 04:18
jka-compr.el
24.25
KB
-rw-r--r--
2013-01-01 15:37
jka-compr.elc
12.43
KB
-rw-r--r--
2023-06-07 04:03
json.elc
13.49
KB
-rw-r--r--
2023-06-07 04:03
kermit.elc
2.9
KB
-rw-r--r--
2023-06-07 04:03
kmacro.elc
30.69
KB
-rw-r--r--
2023-06-07 04:03
ldefs-boot.el
1.16
MB
-rw-r--r--
2013-03-04 22:54
linum.elc
9.48
KB
-rw-r--r--
2023-06-07 04:03
loaddefs.el
1.16
MB
-rw-r--r--
2023-06-07 04:19
loadhist.elc
8.98
KB
-rw-r--r--
2023-06-07 04:03
loadup.el
14.09
KB
-rw-r--r--
2013-01-01 15:37
locate.elc
17.66
KB
-rw-r--r--
2023-06-07 04:03
longlines.elc
14.81
KB
-rw-r--r--
2023-06-07 04:03
lpr.elc
9.23
KB
-rw-r--r--
2023-06-07 04:03
ls-lisp.elc
18.79
KB
-rw-r--r--
2023-06-07 04:19
macros.elc
7.26
KB
-rw-r--r--
2023-06-07 04:03
makesum.elc
2.51
KB
-rw-r--r--
2023-06-07 04:03
man.elc
44.16
KB
-rw-r--r--
2023-06-07 04:03
master.elc
4.42
KB
-rw-r--r--
2023-06-07 04:03
mb-depth.elc
3.09
KB
-rw-r--r--
2023-06-07 04:03
md4.elc
8.09
KB
-rw-r--r--
2023-06-07 04:03
menu-bar.elc
71.76
KB
-rw-r--r--
2023-06-07 04:19
midnight.elc
8.52
KB
-rw-r--r--
2023-06-07 04:03
minibuf-eldef.elc
6.11
KB
-rw-r--r--
2023-06-07 04:03
minibuffer.elc
83.45
KB
-rw-r--r--
2023-06-07 04:18
misc.elc
5.53
KB
-rw-r--r--
2023-06-07 04:03
misearch.elc
11.59
KB
-rw-r--r--
2023-06-07 04:03
mouse-copy.elc
3.86
KB
-rw-r--r--
2023-06-07 04:03
mouse-drag.elc
6.57
KB
-rw-r--r--
2023-06-07 04:03
mouse.elc
53.62
KB
-rw-r--r--
2023-06-07 04:19
mpc.elc
78.45
KB
-rw-r--r--
2023-06-07 04:03
msb.elc
26.64
KB
-rw-r--r--
2023-06-07 04:03
mwheel.elc
9.61
KB
-rw-r--r--
2023-06-07 04:19
newcomment.elc
35.2
KB
-rw-r--r--
2023-06-07 04:19
notifications.elc
12.25
KB
-rw-r--r--
2023-06-07 04:03
novice.elc
4.75
KB
-rw-r--r--
2023-06-07 04:03
outline.elc
34.97
KB
-rw-r--r--
2023-06-07 04:03
paren.elc
6.48
KB
-rw-r--r--
2023-06-07 04:03
password-cache.elc
3.59
KB
-rw-r--r--
2023-06-07 04:03
pcmpl-cvs.elc
6.33
KB
-rw-r--r--
2023-06-07 04:03
pcmpl-gnu.elc
11.17
KB
-rw-r--r--
2023-06-07 04:03
pcmpl-linux.elc
3.38
KB
-rw-r--r--
2023-06-07 04:03
pcmpl-rpm.elc
11
KB
-rw-r--r--
2023-06-07 04:03
pcmpl-unix.elc
7.7
KB
-rw-r--r--
2023-06-07 04:03
pcomplete.elc
36.63
KB
-rw-r--r--
2023-06-07 04:03
printing.elc
157.61
KB
-rw-r--r--
2023-06-07 04:03
proced.elc
63.27
KB
-rw-r--r--
2023-06-07 04:03
profiler.elc
37.19
KB
-rw-r--r--
2023-06-07 04:03
ps-bdf.elc
13.15
KB
-rw-r--r--
2023-06-07 04:03
ps-def.elc
3.01
KB
-rw-r--r--
2023-06-07 04:03
ps-mule.elc
34.8
KB
-rw-r--r--
2023-06-07 04:03
ps-print.elc
140.25
KB
-rw-r--r--
2023-06-07 04:03
ps-samp.elc
5.43
KB
-rw-r--r--
2023-06-07 04:03
recentf.elc
48.71
KB
-rw-r--r--
2023-06-07 04:03
rect.elc
11.74
KB
-rw-r--r--
2023-06-07 04:03
register.elc
20.55
KB
-rw-r--r--
2023-06-07 04:19
repeat.elc
5.24
KB
-rw-r--r--
2023-06-07 04:03
replace.elc
66.96
KB
-rw-r--r--
2023-06-07 04:19
reposition.elc
2.82
KB
-rw-r--r--
2023-06-07 04:03
reveal.elc
7.01
KB
-rw-r--r--
2023-06-07 04:03
rfn-eshadow.elc
6.86
KB
-rw-r--r--
2023-06-07 04:19
rot13.elc
2.54
KB
-rw-r--r--
2023-06-07 04:03
ruler-mode.elc
20.12
KB
-rw-r--r--
2023-06-07 04:03
savehist.elc
11.11
KB
-rw-r--r--
2023-06-07 04:03
saveplace.elc
7.92
KB
-rw-r--r--
2023-06-07 04:03
sb-image.elc
2.89
KB
-rw-r--r--
2023-06-07 04:03
scroll-all.elc
4.04
KB
-rw-r--r--
2023-06-07 04:03
scroll-bar.elc
10.34
KB
-rw-r--r--
2023-06-07 04:19
scroll-lock.elc
4.68
KB
-rw-r--r--
2023-06-07 04:03
select.elc
11.17
KB
-rw-r--r--
2023-06-07 04:19
server.elc
48.81
KB
-rw-r--r--
2023-06-07 04:03
ses.elc
101.59
KB
-rw-r--r--
2023-06-07 04:03
shadowfile.elc
22.26
KB
-rw-r--r--
2023-06-07 04:03
shell.elc
39.68
KB
-rw-r--r--
2023-06-07 04:03
simple.elc
229.5
KB
-rw-r--r--
2023-06-07 04:18
skeleton.elc
16.16
KB
-rw-r--r--
2023-06-07 04:03
sort.elc
13.16
KB
-rw-r--r--
2023-06-07 04:03
soundex.elc
1.29
KB
-rw-r--r--
2023-06-07 04:03
speedbar.elc
116.63
KB
-rw-r--r--
2023-06-07 04:03
startup.elc
63.41
KB
-rw-r--r--
2023-06-07 04:18
strokes.elc
43.91
KB
-rw-r--r--
2023-06-07 04:03
subdirs.el
409
B
-rw-r--r--
2023-06-07 04:19
subr.elc
139.35
KB
-rw-r--r--
2023-06-07 04:18
t-mouse.elc
3.31
KB
-rw-r--r--
2023-06-07 04:03
tabify.elc
1.96
KB
-rw-r--r--
2023-06-07 04:03
talk.elc
3.11
KB
-rw-r--r--
2023-06-07 04:03
tar-mode.elc
52.65
KB
-rw-r--r--
2023-06-07 04:03
tempo.elc
19.35
KB
-rw-r--r--
2023-06-07 04:03
term.elc
101.1
KB
-rw-r--r--
2023-06-07 04:03
terminal.elc
30.78
KB
-rw-r--r--
2023-06-07 04:03
thingatpt.elc
12.61
KB
-rw-r--r--
2023-06-07 04:03
thumbs.elc
26.94
KB
-rw-r--r--
2023-06-07 04:03
time-stamp.elc
18.8
KB
-rw-r--r--
2023-06-07 04:03
time.elc
20.34
KB
-rw-r--r--
2023-06-07 04:03
timezone.elc
11.13
KB
-rw-r--r--
2023-06-07 04:03
tmm.elc
12.73
KB
-rw-r--r--
2023-06-07 04:03
tool-bar.elc
9.35
KB
-rw-r--r--
2023-06-07 04:19
tooltip.elc
12.19
KB
-rw-r--r--
2023-06-07 04:19
tree-widget.elc
20.43
KB
-rw-r--r--
2023-06-07 04:03
tutorial.elc
22.55
KB
-rw-r--r--
2023-06-07 04:03
type-break.elc
38.3
KB
-rw-r--r--
2023-06-07 04:03
uniquify.elc
18.52
KB
-rw-r--r--
2023-06-07 04:03
userlock.elc
5.21
KB
-rw-r--r--
2023-06-07 04:03
vcursor.elc
23.53
KB
-rw-r--r--
2023-06-07 04:03
version.elc
5.52
KB
-rw-r--r--
2023-06-07 04:18
view.elc
34.38
KB
-rw-r--r--
2023-06-07 04:03
vt-control.elc
2.13
KB
-rw-r--r--
2023-06-07 04:03
vt100-led.elc
1.47
KB
-rw-r--r--
2023-06-07 04:03
w32-common-fns.elc
3.72
KB
-rw-r--r--
2023-06-07 04:03
w32-fns.elc
10.26
KB
-rw-r--r--
2023-06-07 04:19
w32-vars.elc
5.17
KB
-rw-r--r--
2023-06-07 04:19
wdired.elc
22.84
KB
-rw-r--r--
2023-06-07 04:03
whitespace.elc
65.65
KB
-rw-r--r--
2023-06-07 04:03
wid-browse.elc
8.14
KB
-rw-r--r--
2023-06-07 04:03
wid-edit.elc
104.79
KB
-rw-r--r--
2023-06-07 04:03
widget.elc
1.33
KB
-rw-r--r--
2023-06-07 04:18
windmove.elc
9.42
KB
-rw-r--r--
2023-06-07 04:03
window.elc
196.08
KB
-rw-r--r--
2023-06-07 04:19
winner.elc
11.41
KB
-rw-r--r--
2023-06-07 04:03
woman.elc
108.03
KB
-rw-r--r--
2023-06-07 04:03
x-dnd.elc
19.55
KB
-rw-r--r--
2023-06-07 04:19
xml.elc
25.16
KB
-rw-r--r--
2023-06-07 04:03
xt-mouse.elc
9.7
KB
-rw-r--r--
2023-06-07 04:03
Save
Rename
;;; jka-cmpr-hook.el --- preloaded code to enable jka-compr.el ;; Copyright (C) 1993-1995, 1997, 1999-2000, 2002-2013 Free Software ;; Foundation, Inc. ;; Author: jka@ece.cmu.edu (Jay K. Adams) ;; Maintainer: FSF ;; Keywords: data ;; Package: emacs ;; This file is part of GNU Emacs. ;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; This file contains the code to enable and disable Auto-Compression mode. ;; It is preloaded. The guts of this mode are in jka-compr.el, which ;; is loaded only when you really try to uncompress something. ;;; Code: (defgroup compression nil "Data compression utilities." :group 'data) (defgroup jka-compr nil "jka-compr customization." :group 'compression) (defcustom jka-compr-verbose t "If non-nil, output messages whenever compressing or uncompressing files." :version "24.1" :type 'boolean :group 'jka-compr) ;; List of all the elements we actually added to file-coding-system-alist. (defvar jka-compr-added-to-file-coding-system-alist nil) (defvar jka-compr-file-name-handler-entry nil "`file-name-handler-alist' entry used by jka-compr I/O functions.") ;; Compiler defvars. These three variables will be defined later with ;; `defcustom' when everything used in the :set functions is defined. (defvar jka-compr-compression-info-list) (defvar jka-compr-mode-alist-additions) (defvar jka-compr-load-suffixes) (defvar jka-compr-compression-info-list--internal nil "Stored value of `jka-compr-compression-info-list'. If Auto Compression mode is enabled, this is the value of `jka-compr-compression-info-list' when `jka-compr-install' was last called. Otherwise, it is nil.") (defvar jka-compr-mode-alist-additions--internal nil "Stored value of `jka-compr-mode-alist-additions'. If Auto Compression mode is enabled, this is the value of `jka-compr-mode-alist-additions' when `jka-compr-install' was last called. Otherwise, it is nil.") (defvar jka-compr-load-suffixes--internal nil "Stored value of `jka-compr-load-suffixes'. If Auto Compression mode is enabled, this is the value of `jka-compr-load-suffixes' when `jka-compr-install' was last called. Otherwise, it is nil.") (defun jka-compr-build-file-regexp () (purecopy (let ((re-anchored '()) (re-free '())) (dolist (e jka-compr-compression-info-list) (let ((re (jka-compr-info-regexp e))) (if (string-match "\\\\'\\'" re) (push (substring re 0 (match-beginning 0)) re-anchored) (push re re-free)))) (concat (if re-free (concat (mapconcat 'identity re-free "\\|") "\\|")) "\\(?:" (mapconcat 'identity re-anchored "\\|") "\\)" file-name-version-regexp "?\\'")))) ;; Functions for accessing the return value of jka-compr-get-compression-info (defun jka-compr-info-regexp (info) (aref info 0)) (defun jka-compr-info-compress-message (info) (aref info 1)) (defun jka-compr-info-compress-program (info) (aref info 2)) (defun jka-compr-info-compress-args (info) (aref info 3)) (defun jka-compr-info-uncompress-message (info) (aref info 4)) (defun jka-compr-info-uncompress-program (info) (aref info 5)) (defun jka-compr-info-uncompress-args (info) (aref info 6)) (defun jka-compr-info-can-append (info) (aref info 7)) (defun jka-compr-info-strip-extension (info) (aref info 8)) (defun jka-compr-info-file-magic-bytes (info) (aref info 9)) (defun jka-compr-get-compression-info (filename) "Return information about the compression scheme of FILENAME. The determination as to which compression scheme, if any, to use is based on the filename itself and `jka-compr-compression-info-list'." (setq filename (file-name-sans-versions filename)) (catch 'compression-info (let ((case-fold-search nil)) (dolist (x jka-compr-compression-info-list) (and (string-match (jka-compr-info-regexp x) filename) (throw 'compression-info x))) nil))) (defun jka-compr-install () "Install jka-compr. This adds entries to `file-name-handler-alist' and `auto-mode-alist' and `inhibit-local-variables-suffixes'." (setq jka-compr-file-name-handler-entry (cons (jka-compr-build-file-regexp) 'jka-compr-handler)) (push jka-compr-file-name-handler-entry file-name-handler-alist) (setq jka-compr-compression-info-list--internal jka-compr-compression-info-list jka-compr-mode-alist-additions--internal jka-compr-mode-alist-additions jka-compr-load-suffixes--internal jka-compr-load-suffixes) (dolist (x jka-compr-compression-info-list) ;; Don't do multibyte encoding on the compressed files. (let ((elt (cons (jka-compr-info-regexp x) '(no-conversion . no-conversion)))) (push elt file-coding-system-alist) (push elt jka-compr-added-to-file-coding-system-alist)) (and (jka-compr-info-strip-extension x) ;; Make entries in auto-mode-alist so that modes ;; are chosen right according to the file names ;; sans `.gz'. (push (list (jka-compr-info-regexp x) nil 'jka-compr) auto-mode-alist) ;; Also add these regexps to inhibit-local-variables-suffixes, ;; so that a -*- line in the first file of a compressed tar file, ;; or a Local Variables section in a member file at the end of ;; the tar file don't override tar-mode. (push (jka-compr-info-regexp x) inhibit-local-variables-suffixes))) (setq auto-mode-alist (append auto-mode-alist jka-compr-mode-alist-additions)) ;; Make sure that (load "foo") will find /bla/foo.el.gz. (setq load-file-rep-suffixes (append load-file-rep-suffixes jka-compr-load-suffixes nil))) (defun jka-compr-installed-p () "Return non-nil if jka-compr is installed. The return value is the entry in `file-name-handler-alist' for jka-compr." (let ((fnha file-name-handler-alist) (installed nil)) (while (and fnha (not installed)) (and (eq (cdr (car fnha)) 'jka-compr-handler) (setq installed (car fnha))) (setq fnha (cdr fnha))) installed)) (defun jka-compr-update () "Update Auto Compression mode for changes in option values. If you change the options `jka-compr-compression-info-list', `jka-compr-mode-alist-additions' or `jka-compr-load-suffixes' outside Custom, while Auto Compression mode is already enabled \(as it is by default), then you have to call this function afterward to properly update other variables. Setting these options through Custom does this automatically." (when (jka-compr-installed-p) (jka-compr-uninstall) (jka-compr-install))) (defun jka-compr-set (variable value) "Internal Custom :set function." (set-default variable value) (jka-compr-update)) ;; I have this defined so that .Z files are assumed to be in unix ;; compress format; and .gz files, in gzip format, and .bz2 files in bzip fmt. (defcustom jka-compr-compression-info-list ;;[regexp ;; compr-message compr-prog compr-args ;; uncomp-message uncomp-prog uncomp-args ;; can-append strip-extension-flag file-magic-bytes] (mapcar 'purecopy '(["\\.Z\\'" "compressing" "compress" ("-c") ;; gzip is more common than uncompress. It can only read, not write. "uncompressing" "gzip" ("-c" "-q" "-d") nil t "\037\235"] ;; Formerly, these had an additional arg "-c", but that fails with ;; "Version 0.1pl2, 29-Aug-97." (RedHat 5.1 GNU/Linux) and ;; "Version 0.9.0b, 9-Sept-98". ["\\.bz2\\'" "bzip2ing" "bzip2" nil "bunzip2ing" "bzip2" ("-d") nil t "BZh"] ["\\.tbz2?\\'" "bzip2ing" "bzip2" nil "bunzip2ing" "bzip2" ("-d") nil nil "BZh"] ["\\.\\(?:tgz\\|svgz\\|sifz\\)\\'" "compressing" "gzip" ("-c" "-q") "uncompressing" "gzip" ("-c" "-q" "-d") t nil "\037\213"] ["\\.g?z\\'" "compressing" "gzip" ("-c" "-q") "uncompressing" "gzip" ("-c" "-q" "-d") t t "\037\213"] ["\\.lz\\'" "Lzip compressing" "lzip" ("-c" "-q") "Lzip uncompressing" "lzip" ("-c" "-q" "-d") t t "LZIP"] ["\\.lzma\\'" "LZMA compressing" "lzma" ("-c" "-q" "-z") "LZMA uncompressing" "lzma" ("-c" "-q" "-d") t t ""] ["\\.xz\\'" "XZ compressing" "xz" ("-c" "-q") "XZ uncompressing" "xz" ("-c" "-q" "-d") t t "\3757zXZ\0"] ;; dzip is gzip with random access. Its compression program can't ;; read/write stdin/out, so .dz files can only be viewed without ;; saving, having their contents decompressed with gzip. ["\\.dz\\'" nil nil nil "uncompressing" "gzip" ("-c" "-q" "-d") nil t "\037\213"])) "List of vectors that describe available compression techniques. Each element, which describes a compression technique, is a vector of the form [REGEXP COMPRESS-MSG COMPRESS-PROGRAM COMPRESS-ARGS UNCOMPRESS-MSG UNCOMPRESS-PROGRAM UNCOMPRESS-ARGS APPEND-FLAG STRIP-EXTENSION-FLAG FILE-MAGIC-CHARS], where: regexp is a regexp that matches filenames that are compressed with this format compress-msg is the message to issue to the user when doing this type of compression (nil means no message) compress-program is a program that performs this compression (nil means visit file in read-only mode) compress-args is a list of args to pass to the compress program uncompress-msg is the message to issue to the user when doing this type of uncompression (nil means no message) uncompress-program is a program that performs this compression uncompress-args is a list of args to pass to the uncompress program append-flag is non-nil if this compression technique can be appended strip-extension-flag non-nil means strip the regexp from file names before attempting to set the mode. file-magic-chars is a string of characters that you would find at the beginning of a file compressed in this way. If you set this outside Custom while Auto Compression mode is already enabled \(as it is by default), you have to call `jka-compr-update' after setting it to properly update other variables. Setting this through Custom does that automatically." :type '(repeat (vector regexp (choice :tag "Compress Message" (string :format "%v") (const :tag "No Message" nil)) (choice :tag "Compress Program" (string) (const :tag "None" nil)) (repeat :tag "Compress Arguments" string) (choice :tag "Uncompress Message" (string :format "%v") (const :tag "No Message" nil)) (choice :tag "Uncompress Program" (string) (const :tag "None" nil)) (repeat :tag "Uncompress Arguments" string) (boolean :tag "Append") (boolean :tag "Strip Extension") (string :tag "Magic Bytes"))) :set 'jka-compr-set :version "24.1" ; removed version extension piece :group 'jka-compr) (defcustom jka-compr-mode-alist-additions (list (cons (purecopy "\\.tgz\\'") 'tar-mode) (cons (purecopy "\\.tbz2?\\'") 'tar-mode)) "List of pairs added to `auto-mode-alist' when installing jka-compr. Uninstalling jka-compr removes all pairs from `auto-mode-alist' that installing added. If you set this outside Custom while Auto Compression mode is already enabled \(as it is by default), you have to call `jka-compr-update' after setting it to properly update other variables. Setting this through Custom does that automatically." :type '(repeat (cons string symbol)) :set 'jka-compr-set :group 'jka-compr) (defcustom jka-compr-load-suffixes (list (purecopy ".gz")) "List of compression related suffixes to try when loading files. Enabling Auto Compression mode appends this list to `load-file-rep-suffixes', which see. Disabling Auto Compression mode removes all suffixes from `load-file-rep-suffixes' that enabling added. If you set this outside Custom while Auto Compression mode is already enabled \(as it is by default), you have to call `jka-compr-update' after setting it to properly update other variables. Setting this through Custom does that automatically." :type '(repeat string) :set 'jka-compr-set :group 'jka-compr) (define-minor-mode auto-compression-mode "Toggle Auto Compression mode. With a prefix argument ARG, enable Auto Compression mode if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. Auto Compression mode is a global minor mode. When enabled, compressed files are automatically uncompressed for reading, and compressed when writing." :global t :init-value t :group 'jka-compr :version "22.1" (let* ((installed (jka-compr-installed-p)) (flag auto-compression-mode)) (cond ((and flag installed) t) ; already installed ((and (not flag) (not installed)) nil) ; already not installed (flag (jka-compr-install)) (t (jka-compr-uninstall))))) (defmacro with-auto-compression-mode (&rest body) "Evaluate BODY with automatic file compression and uncompression enabled." (declare (indent 0)) (let ((already-installed (make-symbol "already-installed"))) `(let ((,already-installed (jka-compr-installed-p))) (unwind-protect (progn (unless ,already-installed (jka-compr-install)) ,@body) (unless ,already-installed (jka-compr-uninstall)))))) ;; This is what we need to know about jka-compr-handler ;; in order to decide when to call it. (put 'jka-compr-handler 'safe-magic t) (put 'jka-compr-handler 'operations '(byte-compiler-base-file-name write-region insert-file-contents file-local-copy load)) ;; Turn on the mode. (when auto-compression-mode (auto-compression-mode 1)) (provide 'jka-cmpr-hook) ;;; jka-cmpr-hook.el ends here