Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
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--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : thumbs.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:22 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/thumbs.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 "`thumbs.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require dired custom-declare-group thumbs nil "Thumbnails previewer." :version "22.1" :group multimedia] 8) #@32 Directory to store thumbnails. (custom-declare-variable 'thumbs-thumbsdir '(locate-user-emacs-file "thumbs") '(#$ . 777) :type 'directory :group 'thumbs) #@21 Size of thumbnails. (custom-declare-variable 'thumbs-geometry '"100x100" '(#$ . 937) :type 'string :group 'thumbs) #@53 Number of thumbnails per line to show in directory. (custom-declare-variable 'thumbs-per-line '4 '(#$ . 1058) :type 'integer :group 'thumbs) #@64 Maximum number of images initially displayed in thumbs buffer. (custom-declare-variable 'thumbs-max-image-number '16 '(#$ . 1205) :type 'integer :group 'thumbs) #@97 Maximum size for thumbnails directory. When it reaches that size (in bytes), a warning is sent. (custom-declare-variable 'thumbs-thumbsdir-max-size '50000000 '(#$ . 1372) :type 'integer :group 'thumbs) #@77 Name of conversion program for thumbnails generation. It must be 'convert'. (custom-declare-variable 'thumbs-conversion-program '(if (eq system-type 'windows-nt) "convert.exe" (or (executable-find "convert") "/usr/X11R6/bin/convert")) '(#$ . 1580) :type 'string :group 'thumbs) #@33 Command to set the root window. (custom-declare-variable 'thumbs-setroot-command '"xloadimage -onroot -fullscreen *" '(#$ . 1864) :type 'string :group 'thumbs) #@47 Size of button-like border around thumbnails. (custom-declare-variable 'thumbs-relief '5 '(#$ . 2030) :type 'integer :group 'thumbs) #@73 Size of the margin around thumbnails. This is where you see the cursor. (custom-declare-variable 'thumbs-margin '2 '(#$ . 2169) :type 'integer :group 'thumbs) #@154 If set, delete older file in the thumbnails directory. Deletion is done at load time when the directory size is bigger than `thumbs-thumbsdir-max-size'. (custom-declare-variable 'thumbs-thumbsdir-auto-clean 't '(#$ . 2335) :type 'boolean :group 'thumbs) #@48 Step by which to resize image as a percentage. (custom-declare-variable 'thumbs-image-resizing-step '10 '(#$ . 2595) :type 'integer :group 'thumbs) #@141 Temporary directory to use. Defaults to `temporary-file-directory'. Leaving it to this value can let another user see some of your images. (custom-declare-variable 'thumbs-temp-dir 'temporary-file-directory '(#$ . 2750) :type 'directory :group 'thumbs) #@30 Prefix to add to temp files. (custom-declare-variable 'thumbs-temp-prefix '"emacsthumbs" '(#$ . 3010) :type 'string :group 'thumbs) #@38 Temporary filename of current image. (defvar thumbs-current-tmp-filename nil (#$ . 3148)) (make-variable-buffer-local 'thumbs-current-tmp-filename) #@28 Filename of current image. (defvar thumbs-current-image-filename nil (#$ . 3302)) (make-variable-buffer-local 'thumbs-current-image-filename) #@52 Counter for showing extra images in thumbs buffer. (defvar thumbs-extra-images 1 (#$ . 3450)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local thumbs-extra-images put permanent-local t] 4) #@24 Size of current image. (defvar thumbs-current-image-size nil (#$ . 3672)) #@26 Number of current image. (defvar thumbs-image-num nil (#$ . 3752)) (make-variable-buffer-local 'thumbs-image-num) #@61 Name of buffer containing thumbnails associated with image. (defvar thumbs-buffer nil (#$ . 3872)) (make-variable-buffer-local 'thumbs-buffer) #@20 Current directory. (defvar thumbs-current-dir nil (#$ . 4021)) #@23 List of marked files. (defvar thumbs-marked-list nil (#$ . 4090)) (byte-code "\301\302!\210\303\302\304\305#\210\306\307\310\311!\203 \311\202& \312B\313\312!\204% \314\312\315\"\210\316\"\207" [current-load-list make-variable-buffer-local thumbs-marked-list put permanent-local t defalias thumbs-gensym fboundp gensym thumbs-gensym-counter default-boundp set-default 0 #[(&optional prefix) ";\203 \202\n \304\250\203 \202 \211T\305\306\307 \n#!*\207" [prefix thumbs-gensym-counter num pfix "G" make-symbol format "%s%d"] 5 "Generate a new uninterned symbol.\nThe name is made by appending a number to PREFIX, default \"G\"."]] 5) (defalias 'thumbs-temp-dir #[nil "\301\302!!\207" [thumbs-temp-dir file-name-as-directory expand-file-name] 3]) (put 'thumbs-temp-dir 'byte-optimizer 'byte-compile-inline-expand) #@50 Return a unique temporary filename for an image. (defalias 'thumbs-temp-file #[nil "\302\303\304\305!! \306\307!$\207" [thumbs-temp-dir thumbs-temp-prefix format "%s%s-%s.jpg" file-name-as-directory expand-file-name thumbs-gensym "T"] 6 (#$ . 4921)]) #@122 Return the current thumbnails directory (from `thumbs-thumbsdir'). Create the thumbnails directory if it does not exist. (defalias 'thumbs-thumbsdir #[nil "\301\302!!\303!\204 \304\305\"\210\306\307!\210)\207" [thumbs-thumbsdir file-name-as-directory expand-file-name file-directory-p make-directory t message "Creating thumbnails directory"] 3 (#$ . 5180)]) #@179 Clean the thumbnails directory. If the total size of all files in `thumbs-thumbsdir' is bigger than `thumbs-thumbsdir-max-size', files are deleted until the max size is reached. (defalias 'thumbs-cleanup-thumbsdir #[nil "\304\305\306\307\310 \311\312 #\"\313\"\314\315\305\316\"\" \nV\205I \317\320\211@A)\211A@)\"\210\321\211@A)\211A@)!\210 \211@A)@ZA\202 *\207" [files-list dirsize thumbs-thumbsdir-max-size x sort mapcar #[(f) "\302!\303 8\304 8E)\207" [f fattribs-list file-attributes 4 7] 3] directory-files thumbs-thumbsdir t image-file-name-regexp #[(l1 l2) "\302@ @\"\207" [l1 l2 time-less-p] 3] apply + #[(x) "\211A@)\207" [x] 2] message "Deleting file %s" delete-file] 8 (#$ . 5552)]) (byte-code "\203 \301 \210\301\207" [thumbs-thumbsdir-auto-clean thumbs-cleanup-thumbsdir] 1) #@371 Call the convert program. FILEIN is the input file, FILEOUT is the output file, ACTION is the command to send to convert. Optional arguments are: ARG any arguments to the ACTION command, OUTPUT-FORMAT is the file format to output (default is jpeg), ACTION-PREFIX is the symbol to place before the ACTION command (defaults to '-' but can sometimes be '+'). (defalias 'thumbs-call-convert #[(filein fileout action &optional arg output-format action-prefix) "\306\307\211\211 \206\n \310\n \206 \311\f\312\313 \206 \314 #& \207" [thumbs-conversion-program action-prefix action arg filein output-format call-process nil "-" "" format "%s:%s" "jpeg" fileout] 13 (#$ . 6371)]) #@39 New image (a cons of width x height). (defalias 'thumbs-new-image-size #[(s increment) " _\304 @\n @_\305\245\\!\304 A\n A_\305\245\\!)B\207" [increment thumbs-image-resizing-step d s round 100] 5 (#$ . 7066)]) #@149 Resize image in current buffer. If SIZE is specified use it. Otherwise make the image larger or smaller according to whether INCREMENT is 1 or -1. (defalias 'thumbs-resize-image-1 #[(&optional increment size) "\306 \206\f \307\f \" \310 \311 \210\312\n\206 \313\314@!\315\314A!Q$\210\212\316\317\320#\210)\211,\207" [buffer-read-only thumbs-current-tmp-filename old size thumbs-current-image-size increment nil thumbs-new-image-size thumbs-temp-file erase-buffer thumbs-call-convert "sample" number-to-string "x" thumbs-insert-image jpeg 0 x tmp thumbs-current-image-filename] 8 (#$ . 7286)]) #@59 Resize image interactively to specified WIDTH and HEIGHT. (defalias 'thumbs-resize-image #[(width height) "\302\303 B\"\207" [width height thumbs-resize-image-1 nil] 4 (#$ . 7906) "nWidth: \nnHeight: "]) #@25 Resize image (smaller). (defalias 'thumbs-shrink-image #[nil "\300\301!\207" [thumbs-resize-image-1 -1] 2 (#$ . 8117) nil]) #@24 Resize image (bigger). (defalias 'thumbs-enlarge-image #[nil "\300\301!\207" [thumbs-resize-image-1 1] 2 (#$ . 8247) nil]) #@44 Return a thumbnail name for the image IMG. (defalias 'thumbs-thumbname #[(img) "\302\303!\304\305\306 \307 !\310\311\312\313\314\315 \316\"\"#$)!\207" [img filename convert-standard-filename expand-file-name format "%s%08x-%s.jpg" thumbs-thumbsdir sxhash subst-char-in-string 32 95 apply concat split-string "/"] 13 (#$ . 8376)]) #@31 Create the thumbnail for IMG. (defalias 'thumbs-make-thumb #[(img) "\304!\305!\306 !\204 \307\n \310 $\210 *\207" [img tn fn thumbs-geometry expand-file-name thumbs-thumbname file-exists-p thumbs-call-convert "sample"] 5 (#$ . 8714)]) #@38 Return image type from filename IMG. (defalias 'thumbs-image-type #[(img) "\301\302\"\203 \303\207\301\304\"\203 \305\207\301\306\"\203 \307\207\301\310\"\203$ \311\207\301\312\"\203- \313\207\301\314\"\2036 \315\207\301\316\"\203? \317\207\301\320\"\205G \321\207" [img string-match ".*\\.jpe?g\\'" jpeg ".*\\.xpm\\'" xpm ".*\\.xbm\\'" xbm ".*\\.pbm\\'" pbm ".*\\.gif\\'" gif ".*\\.bmp\\'" bmp ".*\\.png\\'" png ".*\\.tiff?\\'" tiff] 3 (#$ . 8960)]) (defalias 'thumbs-file-size #[(img) "\302\303\304\305!\306FC!\307\"\310\311 @!!\312\310\311 A!!Q)\207" [img i image-size find-image :type thumbs-image-type :file t number-to-string round "x"] 6]) #@32 Display the thumbnail for IMG. (defalias 'thumbs-find-thumb #[(img) "\301\302!!\207" [img find-file thumbs-make-thumb] 3 (#$ . 9627) "f"]) #@191 Insert image IMG at point. TYPE and RELIEF will be used in constructing the image; see `image' in the emacs-lisp manual for further documentation. If MARKED is non-nil, the image is marked. (defalias 'thumbs-insert-image #[(img type relief &optional marked) "\306\307\310 \311\n\312 \205 \313\314\f\257 \315 !\210\316\317!\210\320 \321\"\211)\207" [type img relief marked thumbs-margin i image :type :file :relief :conversion disabled :margin insert-image make-local-variable thumbs-current-image-size image-size t] 11 (#$ . 9774)]) #@83 Insert the thumbnail for IMG at point. If MARKED is non-nil, the image is marked. (defalias 'thumbs-insert-thumb #[(img &optional marked) "\303\304!\305 \n$\210\306`S`\307\310\311!\312BBBB#\207" [img thumbs-relief marked thumbs-insert-image thumbs-make-thumb jpeg add-text-properties thumb-image-file help-echo file-name-nondirectory (rear-nonsticky help-echo)] 8 (#$ . 10318)]) #@43 Insert all thumbnails into thumbs buffer. (defalias 'thumbs-do-thumbs-insertion #[(list) "\306 G\211 \f_Z \307 \"\210 \310 \211 \203A @\311\211\235\"\210\312T\211\"\306U\2038 \313 \210A\211\204 *o\204I \313 \210 \306V\205R \314\315!+\207" [i list length thumbs-max-image-number thumbs-extra-images diff 0 nbutlast nil thumbs-insert-thumb mod newline message "Type + to display more images." img --dolist-tail-- thumbs-marked-list thumbs-per-line] 5 (#$ . 10706)]) (defalias 'thumbs-show-thumbs-list #[(list &optional dir same-window) "\306 \203 \307\310!\204 \311\312!\210\203 \313\202 \314 \203\" \315 P\202# \316!\210\317\320 \210\321 \210p \2035 \322 !\210eb\210\323\324!\210\f\211)\207" [same-window dir inhibit-read-only thumbs-buffer default-directory list display-images-p image-type-available-p jpeg error "Required image type is not supported in this Emacs session" switch-to-buffer pop-to-buffer "*Thumbs: " "*THUMB-View*" t erase-buffer thumbs-mode thumbs-do-thumbs-insertion make-local-variable thumbs-current-dir] 3]) #@153 Make a preview buffer for all images in DIR. Optional argument REG to select file matching a regexp, and SAME-WINDOW to show thumbs in the same window. (defalias 'thumbs-show-from-dir #[(dir &optional reg same-window) "\303\304\305 \206\n \306 #\n#\207" [dir reg same-window thumbs-show-thumbs-list directory-files t image-file-name-regexp] 5 (#$ . 11777) "DDir: "]) #@51 In dired, make a thumbs buffer with marked files. (defalias 'thumbs-dired-show-marked #[nil "\300\301 \302\303#\207" [thumbs-show-thumbs-list dired-get-marked-files nil t] 4 (#$ . 12152) nil]) #@69 In dired, make a thumbs buffer with all files in current directory. (defalias 'thumbs-dired-show #[nil "\301\302\303#\207" [default-directory thumbs-show-from-dir nil t] 4 (#$ . 12351) nil]) (defalias 'thumbs 'thumbs-show-from-dir) (defalias 'thumbs-find-image #[(img &optional num otherwin) "p \203\n \306\202 \307\310!\210\311 \210\312\313\n!\314\315 !R\316 \n\317 \206+ \320ed|\210\212\321\n\322\n!\320#+\207" [buffer otherwin img num mode-name thumbs-buffer switch-to-buffer-other-window switch-to-buffer "*Image*" thumbs-view-image-mode "image-view-mode: " file-name-nondirectory " - " number-to-string t nil 0 thumbs-insert-image thumbs-image-type inhibit-read-only thumbs-current-image-filename thumbs-current-tmp-filename thumbs-image-num] 5]) #@80 Display image IMG for thumbnail at point. Use another window if OTHERWIN is t. (defalias 'thumbs-find-image-at-point #[(&optional img otherwin) "\206 \303 \304 `\n#)\207" [img i otherwin thumbs-current-image thumbs-find-image] 4 (#$ . 13122) nil]) #@82 Display image for thumbnail at point in the preview buffer. Open another window. (defalias 'thumbs-find-image-at-point-other-window #[nil "\300\301\302\"\207" [thumbs-find-image-at-point nil t] 3 (#$ . 13379) nil]) #@51 Display image for thumbnail at mouse click EVENT. (defalias 'thumbs-mouse-find-image #[(event) "\301!\210\302 \207" [event mouse-set-point thumbs-find-image-at-point] 2 (#$ . 13600) "e"]) #@35 Call the setroot program for IMG. (defalias 'thumbs-call-setroot-command #[(img) "\302\303!\210\304\305\306\307\310!! \311\312%!\210\302\313!\207" [img thumbs-setroot-command run-hooks thumbs-before-setroot-hook shell-command replace-regexp-in-string "\\*" shell-quote-argument expand-file-name nil t thumbs-after-setroot-hook] 7 (#$ . 13795)]) #@50 Set the image at point as the desktop wallpaper. (defalias 'thumbs-set-image-at-point-to-root-window #[nil "\300\301 !\207" [thumbs-call-setroot-command thumbs-current-image] 2 (#$ . 14147) nil]) #@32 Set the current image as root. (defalias 'thumbs-set-root #[nil "\302\206 !\207" [thumbs-current-tmp-filename thumbs-current-image-filename thumbs-call-setroot-command] 2 (#$ . 14349) nil]) #@76 Make an alist of elements (POS . FILENAME) for all images in thumb buffer. (defalias 'thumbs-file-alist #[nil "rq\210\212\302eb\210m\204% l\204 \303 \203 \304 \303 B B\305u\210\202\n \237+\207" [thumbs-buffer list nil thumbs-current-image point-marker 1] 2 (#$ . 14548)]) #@59 Make a list of file names for all images in thumb buffer. (defalias 'thumbs-file-list #[nil "\212\301eb\210m\204 \302 \203 \302 B\303u\210\202 \237*\207" [list nil thumbs-current-image 1] 2 (#$ . 14832)]) #@73 Delete the image at point (and its thumbnail) (or marked files if any). (defalias 'thumbs-delete-images #[nil "\206 \306 C\307\310\311 G\"!\205Q \312 \313 \314 \211 \205P @\314\211 \315\316\217\210\204G \317\f \"\203B \317\f \"@b\210``T|\210\320\f\") A\211\204 \314,)\207" [thumbs-marked-list files inhibit-read-only thumbs-file-list x --dolist-tail-- thumbs-current-image yes-or-no-p format "Really delete %d files? " thumbs-file-alist t nil (byte-code "\301!\210\301\302!!\207" [x delete-file thumbs-thumbname] 3) ((file-error (byte-code "\301\211\207" [failure t] 2))) rassoc delq failure] 5 (#$ . 15050) nil]) #@73 Rename the image at point (and its thumbnail) (or marked files if any). (defalias 'thumbs-rename-images #[(newfile) "\206 \306 C\307\310 !\204' \203' \311 !\203\" \312\313 \"\210\202' \314 \315\"\210\316\317\320\nG\"!\203x \321 \315 \n\307 \211 \203w @\307\211 \322\323\217\210 \204m \324 \"\203g \324 \"@b\210``T|\210\325\")A\211\204@ , \205\205 \326\327\317\330 #\331#*\207" [thumbs-marked-list failures files newfile inhibit-read-only thumbs-file-list thumbs-current-image nil file-directory-p file-exists-p error "Renaming marked files to file name `%s'" make-directory t yes-or-no-p format "Really rename %d files? " thumbs-file-alist (byte-code "\302!\203 \303 \304\305 !\"\"\210\202 \303 \"\210\302\207" [newfile file file-directory-p rename-file expand-file-name file-name-nondirectory] 5) ((file-error (byte-code "\303 \nB\303\207" [failure file failures t] 2))) rassoc delq display-warning file-error "Rename failures for %s into %s" :error file --dolist-tail-- failure] 7 (#$ . 15687) "FRename to file or directory: "]) #@26 Kill the current buffer. (defalias 'thumbs-kill-buffer #[nil "\300\301\302 \"\207" [quit-window t selected-window] 3 (#$ . 16758) nil]) #@33 Show the image with number NUM. (defalias 'thumbs-show-image-num #[(num) "\306\307! S\310 8Arq\210\311\312\n!\313\314 !R\315 \316 \210\317\n\320\n!\321#\210eb\210* \n\211*\207" [image-buffer num img mode-name inhibit-read-only thumbs-image-num get-buffer-create "*Image*" thumbs-file-alist "image-view-mode: " file-name-nondirectory " - " number-to-string t erase-buffer thumbs-insert-image thumbs-image-type 0 thumbs-current-image-filename] 5 (#$ . 16900)]) #@26 Show the previous image. (defalias 'thumbs-previous-image #[nil "S\303 G \304U\203 \nS\305 !*\207" [thumbs-image-num i number thumbs-file-alist 0 thumbs-show-image-num] 2 (#$ . 17372) nil]) #@22 Show the next image. (defalias 'thumbs-next-image #[nil "T\303 G \nU\203 \304\305 !*\207" [thumbs-image-num i number thumbs-file-alist 1 thumbs-show-image-num] 2 (#$ . 17573) nil]) #@39 Display the associated thumbs buffer. (defalias 'thumbs-display-thumbs-buffer #[nil "\301!\207" [thumbs-buffer display-buffer] 2 (#$ . 17765) nil]) #@35 Redraw the current thumbs buffer. (defalias 'thumbs-redraw-buffer #[nil "`\303\304 \305 \210\306!\210\nb+\207" [files inhibit-read-only p t thumbs-file-list erase-buffer thumbs-do-thumbs-insertion] 3 (#$ . 17920)]) #@26 Mark the image at point. (defalias 'thumbs-mark #[nil "\303 \211\204 \304\305!\210 B\306\307\310!\210\311\306\"\210*l\205! \312u\207" [elt thumbs-marked-list inhibit-read-only thumbs-current-image error "No image here" t delete-char 1 thumbs-insert-thumb nil] 4 (#$ . 18145) nil]) #@28 Unmark the image at point. (defalias 'thumbs-unmark #[nil "\303 \211\204 \304\305!\210\306 \"\307\310\311!\210\312\313\"\210*l\205\" \313u\207" [elt thumbs-marked-list inhibit-read-only thumbs-current-image error "No image here" delete t delete-char 1 thumbs-insert-thumb nil] 4 (#$ . 18438) nil]) (byte-code "\302\303\304\305\306!!\307 #\"\207" [thumbs-temp-dir thumbs-temp-prefix mapc delete-file directory-files file-name-as-directory expand-file-name t] 6) #@105 Call convert to do ACTION on image with argument ARG. ACTION and ARG should be a valid convert command. (defalias 'thumbs-modify-image #[(action &optional arg) "\306 \307 \310 \210\311\n\206 \f \206 \312$\210\212\313 \314\315#\210) \211+\207" [buffer-read-only thumbs-current-tmp-filename old tmp thumbs-current-image-filename action nil thumbs-temp-file erase-buffer thumbs-call-convert "" thumbs-insert-image jpeg 0 arg] 5 (#$ . 18913) "sAction: \nsValue: "]) #@37 Emboss the image with value EMBOSS. (defalias 'thumbs-emboss-image #[(emboss) "\301W\204 \302V\204 \303\304\246!\203 \305\306!\210\307\310\311!\"\207" [emboss 3 31 zerop 2 error "Arg must be an odd number between 3 and 31" thumbs-modify-image "emboss" number-to-string] 4 (#$ . 19390) "nEmboss value: "]) #@31 Turn the image to monochrome. (defalias 'thumbs-monochrome-image #[nil "\300\301!\207" [thumbs-modify-image "monochrome"] 2 (#$ . 19708) nil]) #@19 Negate the image. (defalias 'thumbs-negate-image #[nil "\300\301!\207" [thumbs-modify-image "negate"] 2 (#$ . 19857) nil]) #@48 Rotate the image 90 degrees counter-clockwise. (defalias 'thumbs-rotate-left #[nil "\300\301\302\"\207" [thumbs-modify-image "rotate" "270"] 3 (#$ . 19986) nil]) #@40 Rotate the image 90 degrees clockwise. (defalias 'thumbs-rotate-right #[nil "\300\301\302\"\207" [thumbs-modify-image "rotate" "90"] 3 (#$ . 20154) nil]) #@50 Return the name of the image file name at point. (defalias 'thumbs-current-image #[nil "\300`\301\"\207" [get-text-property thumb-image-file] 3 (#$ . 20314)]) #@25 Move forward one image. (defalias 'thumbs-forward-char #[nil "\300u\210m\204 \301 \204 \300u\210\202 \302 \207" [nil thumbs-current-image thumbs-show-name] 1 (#$ . 20479) nil]) #@26 Move backward one image. (defalias 'thumbs-backward-char #[nil "\300u\210o\204 \301 \204 \300u\210\202 \302 \207" [-1 thumbs-current-image thumbs-show-name] 1 (#$ . 20665) nil]) #@19 Move up one line. (defalias 'thumbs-backward-line #[nil "\300y\210\301 \207" [-1 thumbs-show-name] 1 (#$ . 20852) nil]) #@21 Move down one line. (defalias 'thumbs-forward-line #[nil "\300y\210\301 \207" [1 thumbs-show-name] 1 (#$ . 20978) nil]) #@62 Show more than `thumbs-max-image-number' images, if present. (defalias 'thumbs-show-more-images #[(&optional arg) "\204 \302 \\\303 \207" [arg thumbs-extra-images 1 thumbs-dired-show] 2 (#$ . 21104) "P"]) #@36 Show the name of the current file. (defalias 'thumbs-show-name #[nil "\301 \211\205 \302\303\304!#)\207" [f thumbs-current-image message "%s [%s]" thumbs-file-size] 6 (#$ . 21320) nil]) #@25 Save the current image. (defalias 'thumbs-save-current-image #[nil "\206 \304\305 \"\306 \n\"*\207" [thumbs-current-tmp-filename thumbs-current-image-filename sa f read-from-minibuffer "Save image file as: " copy-file] 4 (#$ . 21516) nil]) #@46 Use `dired' on the current thumbs directory. (defalias 'thumbs-dired #[nil "\301!\207" [thumbs-current-dir dired] 2 (#$ . 21767) nil]) #@27 Keymap for `thumbs-mode'. (defvar thumbs-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\314#\210\302\340\341#\210\302\342\343#\210)\207" [map make-sparse-keymap define-key [return] thumbs-find-image-at-point [mouse-2] thumbs-mouse-find-image [(meta return)] thumbs-find-image-at-point-other-window [(control return)] thumbs-set-image-at-point-to-root-window [delete] thumbs-delete-images [right] thumbs-forward-char [left] thumbs-backward-char [up] thumbs-backward-line [down] thumbs-forward-line "+" thumbs-show-more-images "d" thumbs-dired "m" thumbs-mark "u" thumbs-unmark "R" thumbs-rename-images "x" "s" thumbs-show-name "q" thumbs-kill-buffer] 4) (#$ . 21909)) (byte-code "\302\303\304\305#\210\306\307N\204 \302\306\307\310#\210\311\312!\204 \302\312\313\303#\210\312B\314\312!\204. \315\312\316 \"\210\311\317!\204: \302\317\313\303#\210\317B\314\317!\204J \315\317\320 \"\210\302\301\313\303#\210\301B\314\301!\204d \315\301\321\301\322\"\210 \"\210\302\303\323\322#\207" [current-load-list thumbs-mode-abbrev-table put thumbs-mode mode-class special thumbs-mode-hook variable-documentation "Hook run when entering thumbs mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp thumbs-mode-map definition-name default-boundp set-default make-sparse-keymap thumbs-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 5) #@145 Preview images in a thumbnails buffer This mode runs the hook `thumbs-mode-hook', as the final step during initialization. \{thumbs-mode-map} (defalias 'thumbs-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \307)\315\316!\207" [delay-mode-hooks major-mode mode-name thumbs-mode-map thumbs-mode-syntax-table thumbs-mode-abbrev-table make-local-variable t kill-all-local-variables thumbs-mode "thumbs" use-local-map set-syntax-table run-mode-hooks thumbs-mode-hook local-abbrev-table buffer-read-only] 2 (#$ . 23610) nil]) #@38 Keymap for `thumbs-view-image-mode'. (defvar thumbs-view-image-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210)\207" [map make-sparse-keymap define-key [prior] thumbs-previous-image [next] thumbs-next-image "^" thumbs-display-thumbs-buffer "-" thumbs-shrink-image "+" thumbs-enlarge-image "<" thumbs-rotate-left ">" thumbs-rotate-right "e" thumbs-emboss-image "r" thumbs-resize-image "s" thumbs-save-current-image "q" thumbs-kill-buffer "w" thumbs-set-root] 4) (#$ . 24167)) (byte-code "\302\303\304\305#\210\306\307N\204 \302\306\307\310#\210\311\312!\204 \302\312\313\303#\210\312B\314\312!\204. \315\312\316 \"\210\311\317!\204: \302\317\313\303#\210\317B\314\317!\204J \315\317\320 \"\210\302\301\313\303#\210\301B\314\301!\204d \315\301\321\301\322\"\210 \"\210\302\303\323\322#\207" [current-load-list thumbs-view-image-mode-abbrev-table put thumbs-view-image-mode mode-class special thumbs-view-image-mode-hook variable-documentation "Hook run when entering image-view-mode mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp thumbs-view-image-mode-map definition-name default-boundp set-default make-sparse-keymap thumbs-view-image-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 5) #@290 Major-mode. Uses keymap `thumbs-view-image-mode-map', abbrev table `thumbs-view-image-mode-abbrev-table' and syntax-table `thumbs-view-image-mode-syntax-table'. This mode runs the hook `thumbs-view-image-mode-hook', as the final step during initialization. \{thumbs-view-image-mode-map} (defalias 'thumbs-view-image-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \307)\315\316!\207" [delay-mode-hooks major-mode mode-name thumbs-view-image-mode-map thumbs-view-image-mode-syntax-table thumbs-view-image-mode-abbrev-table make-local-variable t kill-all-local-variables thumbs-view-image-mode "image-view-mode" use-local-map set-syntax-table run-mode-hooks thumbs-view-image-mode-hook local-abbrev-table buffer-read-only] 2 (#$ . 25692) nil]) #@59 In dired, call the setroot program on the image at point. (defalias 'thumbs-dired-setroot #[nil "\300\301 !\207" [thumbs-call-setroot-command dired-get-filename] 2 (#$ . 26469) nil]) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\310\311!\207" [dired-mode-map define-key "a" thumbs-dired-show "m" thumbs-dired-show-marked "w" thumbs-dired-setroot provide thumbs] 4)
Close
