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 : uniquify.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/uniquify.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 "`uniquify.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'uniquify nil "Unique buffer names dependent on file name." :group 'applications) #@697 If non-nil, buffer names are uniquified with parts of directory name. The value determines the buffer name style and is one of `forward', `reverse', `post-forward', or `post-forward-angle-brackets'. For example, files `/foo/bar/mumble/name' and `/baz/quux/mumble/name' would have the following buffer names in the various styles: forward bar/mumble/name quux/mumble/name reverse name\mumble\bar name\mumble\quux post-forward name|bar/mumble name|quux/mumble post-forward-angle-brackets name<bar/mumble> name<quux/mumble> nil name name<2> Of course, the "mumble" part may be stripped as well, depending on the setting of `uniquify-strip-common-suffix'. (custom-declare-variable 'uniquify-buffer-name-style 'nil '(#$ . 712) :type '(radio (const forward) (const reverse) (const post-forward) (const post-forward-angle-brackets) (const :tag "standard Emacs behavior (nil)" nil)) :require 'uniquify :group 'uniquify) #@72 If non-nil, rerationalize buffer names after a buffer has been killed. (custom-declare-variable 'uniquify-after-kill-buffer-p 't '(#$ . 1674) :type 'boolean :group 'uniquify) #@179 If non-nil, permit user to choose names for buffers with same base file. If the user chooses to name a buffer, uniquification is preempted and no other buffer names are changed. (custom-declare-variable 'uniquify-ask-about-buffer-names-p 'nil '(#$ . 1856) :type 'boolean :group 'uniquify) #@276 Regular expression matching buffer names that should not be uniquified. For instance, set this to "^draft-[0-9]+$" to avoid having uniquify rename draft buffers even if `uniquify-after-kill-buffer-p' is non-nil and the visited file name isn't the same as that of the buffer. (custom-declare-variable 'uniquify-ignore-buffers-re 'nil '(#$ . 2152) :type '(choice (const :tag "Uniquify all buffers" nil) regexp) :group 'uniquify) #@70 Minimum number of directory name components included in buffer name. (custom-declare-variable 'uniquify-min-dir-content '0 '(#$ . 2585) :type 'integer :group 'uniquify) #@273 String separator for buffer name components. When `uniquify-buffer-name-style' is `post-forward', separates base file name from directory part in buffer names (default "|"). When `uniquify-buffer-name-style' is `reverse', separates all file name components (default "\"). (custom-declare-variable 'uniquify-separator 'nil '(#$ . 2761) :type '(choice (const nil) string) :group 'uniquify) #@231 If non-nil, add a file name separator to dired buffer names. If `uniquify-buffer-name-style' is `forward', add the separator at the end; if it is `reverse', add the separator at the beginning; otherwise, this variable is ignored. (custom-declare-variable 'uniquify-trailing-separator-p 'nil '(#$ . 3156) :type 'boolean :group 'uniquify) #@250 If non-nil, strip common directory suffixes of conflicting files. E.g. if you open /a1/b/c/d and /a2/b/c/d, the buffer names will say "d|a1" and "d|a2" instead of "d|a1/b/c" and "d|a2/b/c". This can be handy when you have deep parallel hierarchies. (custom-declare-variable 'uniquify-strip-common-suffix '(eq 0 uniquify-min-dir-content) '(#$ . 3500) :type 'boolean :group 'uniquify) #@217 List of modes for which uniquify should obey `list-buffers-directory'. That means that when `buffer-file-name' is set to nil, `list-buffers-directory' contains the name of the directory which the buffer is visiting. (defvar uniquify-list-buffers-directory-modes '(dired-mode cvs-mode vc-dir-mode) (#$ . 3890)) (byte-code "\300\301\302\303#\210\301\304N\204 \300\301\304\305#\210\300\207" [put uniquify-item-base cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block uniquify-item-base (or (and (memq (aref cl-x 0) cl-struct-uniquify-item-tags)) (error "uniquify-item-base accessing a non-uniquify-item")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'uniquify-item-base #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-uniquify-item-tags 0 error "uniquify-item-base accessing a non-uniquify-item" 1] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put uniquify-item-base setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander uniquify-item uniquify-item-base #1=(and (memq (aref cl-x 0) cl-struct-uniquify-item-tags)) 1] 6] uniquify-item-dirname cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block uniquify-item-dirname (or #1# (error "uniquify-item-dirname accessing a non-uniquify-item")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'uniquify-item-dirname #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-uniquify-item-tags 0 error "uniquify-item-dirname accessing a non-uniquify-item" 2] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put uniquify-item-dirname setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander uniquify-item uniquify-item-dirname #1=(and (memq (aref cl-x 0) cl-struct-uniquify-item-tags)) 2] 6] uniquify-item-buffer cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block uniquify-item-buffer (or #1# (error "uniquify-item-buffer accessing a non-uniquify-item")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'uniquify-item-buffer #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-uniquify-item-tags 0 error "uniquify-item-buffer accessing a non-uniquify-item" 3] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put uniquify-item-buffer setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander uniquify-item uniquify-item-buffer #1=(and (memq (aref cl-x 0) cl-struct-uniquify-item-tags)) 3] 6] uniquify-item-proposed cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block uniquify-item-proposed (or #1# (error "uniquify-item-proposed accessing a non-uniquify-item")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'uniquify-item-proposed #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-uniquify-item-tags 0 error "uniquify-item-proposed accessing a non-uniquify-item" 4] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put uniquify-item-proposed setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander uniquify-item uniquify-item-proposed (and #1=(memq (aref cl-x 0) cl-struct-uniquify-item-tags)) 4] 6] uniquify-item-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block uniquify-item-p (and (vectorp cl-x) (>= (length cl-x) 5) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'uniquify-item-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-uniquify-item-tags vectorp 5 0 t] 2]) (byte-code "\300\301\302\303#\210\301\304N\204 \300\301\304\305#\210\300\207" [put uniquify-make-item cl-compiler-macro #[(--cl-whole-arg-- base dirname buffer &rest #1=#:--cl-rest--) "\211A@\203 \305\306\307\310G\\D\"\210\311\312\313\314\315\211\n \f & )\207" [#1# proposed base dirname buffer signal wrong-number-of-arguments uniquify-make-item 5 cl-defsubst-expand (base dirname buffer proposed) (block uniquify-make-item (vector 'cl-struct-uniquify-item base dirname buffer proposed)) t nil] 10 "Not documented\n\n(fn --CL-WHOLE-ARG-- &cl-quote BASE DIRNAME BUFFER &optional PROPOSED)"] byte-compile cl-byte-compile-compiler-macro] 4) #@61 Not documented (fn BASE DIRNAME BUFFER &optional PROPOSED) (defalias 'uniquify-make-item #[(base dirname buffer &rest #1=#:--cl-rest--) "\211A@\203 \305\306\307\310G\\D\"\210\311\312\n \f %)\207" [#1# proposed base dirname buffer signal wrong-number-of-arguments uniquify-make-item 4 vector cl-struct-uniquify-item] 6 (#$ . 8553)]) (byte-code "\303B\304C\305\306\307\310#\210\305\306\311\312#\210\305\306\313\314#\210\305\306\315\316#\210\305\317\320\316#\210\305\321\320\322#\210\305\323\320\316#\210\305\324\320\316#\210\305\325\320\316#\210\305\326\320\316#\210\327\nB\330\327!\204R \331\327\314\"\210\314\207" [custom-print-functions cl-struct-uniquify-item-tags current-load-list #[(cl-x cl-s cl-n) "\303!\205\200 G\304Y\205\200 \305H >\205\200 \306\307\n\"\210\306\310\n\"\210\311\305H >\204, \312\313!\210\314H\n\"\210\306\315\n\"\210\311\305H >\204D \312\316!\210\317H\n\"\210\306\320\n\"\210\311\305H >\204\\ \312\321!\210\322H\n\"\210\306\323\n\"\210\311\305H >\204t \312\324!\210\325H\n\"\210\306\326\n\"\210\327\207" [cl-x cl-struct-uniquify-item-tags cl-s vectorp 5 0 princ "#S(uniquify-item" " base" prin1 error "uniquify-item-base accessing a non-uniquify-item" 1 " dirname" "uniquify-item-dirname accessing a non-uniquify-item" 2 " buffer" "uniquify-item-buffer accessing a non-uniquify-item" 3 " proposed" "uniquify-item-proposed accessing a non-uniquify-item" 4 ")" t] 3] cl-struct-uniquify-item put uniquify-item cl-struct-slots ((cl-tag-slot) (base) (dirname) (buffer) (proposed)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t uniquify-make-item side-effect-free uniquify-item-p error-free uniquify-item-proposed uniquify-item-buffer uniquify-item-dirname uniquify-item-base uniquify-possibly-resolvable default-boundp set-default] 4) #@138 Non-nil if the name of this buffer is managed by uniquify. It actually holds the list of `uniquify-item's corresponding to the conflict. (defvar uniquify-managed nil (#$ . 10359)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local uniquify-managed put permanent-local t] 4) #@98 Return the base name of the current buffer. Return nil if the buffer is not managed by uniquify. (defalias 'uniquify-buffer-base-name #[nil "\205 @\302H >\204 \303\304!\210@\305H\207" [uniquify-managed cl-struct-uniquify-item-tags 0 error "uniquify-item-base accessing a non-uniquify-item" 1] 2 (#$ . 10664)]) #@237 Make file buffer names unique by adding segments from file name. If `uniquify-min-dir-content' > 0, always pulls that many file name elements. Arguments BASE, DIRNAME, and NEWBUF specify the new buffer that causes this rationalization. (defalias 'uniquify-rationalize-file-buffer-names #[(base dirname newbuf) "rq\210\306)\n\205\343 \307\310\n!!\311\312 \n\306%C\306 \313 \306 \211 \203\336 @ \203< \314 \315 !\"\204\325 \316\301 \"\211\203\325 \f@\317H!>\204U \320\321!\210\f@\322H\232\203\325 \f@ >\204\325 \fA\204\310 \f@ \"\323\f@\317H!>\204| \320\324!\210\f@\325H! #\"\317H!>\204\221 \320\326!\210\"\327#I\210*\f@\317H!>\204\247 \320\330!\210\f@\327H\204\310 r\f@\317H!>\204\275 \320\324!\210\f@\325Hq\210\306)\306\331\306\332\333\f\"\"\334 \f\" A\211 \204' *\335 !*\207" [newbuf uniquify-managed dirname base items fix-list nil expand-file-name directory-file-name vector cl-struct-uniquify-item buffer-list string-match buffer-name buffer-local-value 0 error "uniquify-item-base accessing a non-uniquify-item" 1 uniquify-buffer-file-name #1="uniquify-item-buffer accessing a non-uniquify-item" 3 "uniquify-item-dirname storing a non-uniquify-item" 2 "uniquify-item-dirname accessing a non-uniquify-item" delq mapcar #[(item) "\302\303H >\204 \304\305!\210\306H!\205 \207" [item cl-struct-uniquify-item-tags buffer-live-p 0 error #1# 3] 3] append uniquify-rationalize buffer #2=#:--cl-dolist-temp-- uniquify-ignore-buffers-re cl-struct-uniquify-item-tags #3=#:--cl-x-- #4=#:--cl-store--] 6 (#$ . 10986) (list (if uniquify-managed (uniquify-item-base (car uniquify-managed)) (buffer-name)) (uniquify-buffer-file-name (current-buffer)) (current-buffer))]) #@211 Return name of directory, file BUFFER is visiting, or nil if none. Works on ordinary file-visiting buffers and buffers whose mode is mentioned in `uniquify-list-buffers-directory-modes', otherwise returns nil. (defalias 'uniquify-buffer-file-name #[(buffer) "rq\210 \206 \n >\205 \f\211 \205 \306\307\310\306 !!!!*\207" [buffer buffer-file-name major-mode uniquify-list-buffers-directory-modes list-buffers-directory filename directory-file-name file-name-directory expand-file-name] 6 (#$ . 12689)]) #@72 Re-rationalize the buffers in FIX-LIST, but ignoring `current-buffer'. (defalias 'uniquify-rerationalize-w/o-cb #[(fix-list) "\306 \306\211\2035 @\211\307H\f>\204 \310\311!\210\n\312H\211 p=\204- \313 !\203- \nB) A\211\204\n *\205= \314!)\207" [new-fix-list fix-list item #1=#:--cl-dolist-temp-- cl-struct-uniquify-item-tags buf nil 0 error "uniquify-item-buffer accessing a non-uniquify-item" 3 buffer-live-p uniquify-rationalize] 3 (#$ . 13200)]) (defalias 'uniquify-rationalize #[(fix-list) "\306\211\203] \n@r \307H >\204 \310\311!\210 \312Hq\210 \313 \307H >\204, \310\314!\210 \315H \307H >\204; \310\316!\210 \317H\" \f\307H >\204L \310\320!\210\f\321 I\210*)\nA\211\204 *A\2030\2030\322 \323@\307H >\204y \310\316!\210@\317H! G\307V\205\300 \203\276 \203\276 \323 \211A @\211 \307H >\204\255 \310\316!\210 \317H)!\232\204\213 \306\211 \204\220 *\203/\306\211\211 \203+ @\324\325 \307H >\204\341 \310\314!\210 \315H\326 \307H >\204\361 \310\316!\210 \317H!\211 !\205\377 \327!!) \307H >\204\f\310\311!\210 \312H \307H >\204\310\330!\210 \321H%B A\211 \204\317 *\202k )\331!\207" [fix-list item #1=#:--cl-dolist-temp-- cl-struct-uniquify-item-tags #2=#:--cl-x-- #3=#:--cl-store-- nil 0 error "uniquify-item-buffer accessing a non-uniquify-item" 3 uniquify-get-proposed-name "uniquify-item-base accessing a non-uniquify-item" 1 "uniquify-item-dirname accessing a non-uniquify-item" 2 "uniquify-item-proposed storing a non-uniquify-item" 4 t file-name-nondirectory vector cl-struct-uniquify-item file-name-directory directory-file-name "uniquify-item-proposed accessing a non-uniquify-item" uniquify-rationalize-a-list uniquify-managed uniquify-strip-common-suffix strip base items cl-x #4=#:--cl-dolist-temp-- f] 10]) (defalias 'uniquify-item-greaterp #[(item1 item2) "\303H >\204\f \304\305!\210\306H\n\303H >\204 \304\305!\210\n\306H\231\207" [item2 cl-struct-uniquify-item-tags item1 0 error "uniquify-item-proposed accessing a non-uniquify-item" 4] 3]) (defalias 'uniquify-rationalize-a-list #[(fix-list &optional depth) "\204 \306\307\306 \310\311 !\312\"\306 \211 \203P @\211\313H>\204- \314\315!\210\316H\211 \232\204@ \317\f #\210\306\fB\nA\211\204 *\317\f #+\207" [depth uniquify-min-dir-content proposed old-proposed conflicting-sublist fix-list nil "" sort copy-sequence uniquify-item-greaterp 0 error "uniquify-item-proposed accessing a non-uniquify-item" 4 uniquify-rationalize-conflicting-sublist item #1=#:--cl-dolist-temp-- cl-struct-uniquify-item-tags] 5]) (defalias 'uniquify-get-proposed-name #[(base dirname &optional depth) "\204 \306\n!\n\232\204 \307\310\311C\"\210 \203C \312\313\f\n\"!\203C \f\314\230\204C \315=\2034 \316\f!\202C \317=\203C \"\206@ \320\fP\321 # $#\322V\203\211 \n\203\211 \323\n! %\324\n!\211\203e \306\n!#S#\325%G!\203~ \326\n!\206y \314\321\202\200 %$B$)\202I \325#!\203\252 \n\203\247 $\203\247 \n\324\n!\232\203\247 \314$B$\327&$\204\263 \f\202\f\314\230\203\302 \330\331$\332#\202 \317=\203\331 \330\331\f$\237B\"\206\325 \320#\202 \315=\203\353 \330\331$\fC\244\332#\202 \333=\203\f\"\206\370 \334\330\331$\332#Q\202 \335=\203\f\336\330\331$\332#\337R\202\340\341 \"*\207" [depth uniquify-min-dir-content dirname uniquify-trailing-separator-p base uniquify-buffer-name-style directory-file-name signal cl-assertion-failed (equal (directory-file-name dirname) dirname) file-directory-p expand-file-name "" forward file-name-as-directory reverse "\\" nil 0 file-name-nondirectory file-name-directory zerop file-remote-p t mapconcat identity "/" post-forward "|" post-forward-angle-brackets "<" ">" error "Bad value for uniquify-buffer-name-style: %s" uniquify-separator n extra-string file uniquify-possibly-resolvable] 6]) (defalias 'uniquify-rationalize-conflicting-sublist #[(conf-list old-name depth) "\205\233 A\204) \306 !\211\205% \n@\307H >\204 \310\311!\210@\312H=?)\203\217 \f\205\233 \313 T\313 \211 \203\211 @\211 \314\307H >\204R \310\315!\210\316H\307H >\204c \310\317!\210\320H # \307H >\204x \310\321!\210\322I\210*A\211\204< *\323 \"\207 \324\230?\205\233 \325@ \"\207" [conf-list old-name buf cl-struct-uniquify-item-tags uniquify-possibly-resolvable depth get-buffer 0 error "uniquify-item-buffer accessing a non-uniquify-item" 3 nil uniquify-get-proposed-name "uniquify-item-base accessing a non-uniquify-item" 1 "uniquify-item-dirname accessing a non-uniquify-item" 2 "uniquify-item-proposed storing a non-uniquify-item" 4 uniquify-rationalize-a-list "" uniquify-rename-buffer item #1=#:--cl-dolist-temp-- #2=#:--cl-x-- #3=#:--cl-store--] 6]) (defalias 'uniquify-rename-buffer #[(item newname) "\305H >\204\f \306\307!\210\310H \311\n!\232?\205$ r\nq\210\312 \313 \314\"*)\207" [item cl-struct-uniquify-item-tags buffer newname uniquify-buffer-name-style 0 error "uniquify-item-buffer accessing a non-uniquify-item" 3 buffer-name nil rename-buffer t] 3]) #@55 Re-rationalize buffer names, ignoring current buffer. (defalias 'uniquify-maybe-rerationalize-w/o-cb #[nil "A\205\f \205\f \302!\207" [uniquify-managed uniquify-buffer-name-style uniquify-rerationalize-w/o-cb] 2 (#$ . 18223)]) #@86 Re-rationalize buffer names, ignoring current buffer. For use on `kill-buffer-hook'. (defalias 'uniquify-kill-buffer-function #[nil "\205 \301 \207" [uniquify-after-kill-buffer-p uniquify-maybe-rerationalize-w/o-cb] 1 (#$ . 18459)]) (byte-code "\300\301\302\"\210\303\304\305\306\307$\210\310\304\307\"\210\303\311\312\306\307$\210\310\311\307\"\207" [add-hook kill-buffer-hook uniquify-kill-buffer-function ad-add-advice rename-buffer (rename-buffer-uniquify nil t (advice lambda nil "Uniquify buffer names with parts of directory name." (uniquify-maybe-rerationalize-w/o-cb) (if (null (ad-get-arg 1)) (setq uniquify-managed nil) (when uniquify-buffer-name-style (uniquify-rationalize-file-buffer-names (ad-get-arg 0) (uniquify-buffer-file-name (current-buffer)) (current-buffer)) (setq ad-return-value (buffer-name (current-buffer))))))) after nil ad-activate create-file-buffer (create-file-buffer-uniquify nil t (advice lambda nil "Uniquify buffer names with parts of directory name." (if uniquify-buffer-name-style (let ((filename (expand-file-name (directory-file-name (ad-get-arg 0))))) (uniquify-rationalize-file-buffer-names (file-name-nondirectory filename) (file-name-directory filename) ad-return-value)))))] 5) #@30 Unload the uniquify library. (defalias 'uniquify-unload-function #[nil "r\306\307 \306\211\2033 \n@\211q\210 \203, @\310H\f>\204$ \311\312!\210 @\313HBB\nA\211\204\f *\314\306 \211 \203Z @\315 \316\317\320 !\321P!#\210\322 !\210A\211\204= *\306\211 \203{ @\211@q\210\323 A\324\"\210A\211\204d ,\306\207" [buffers buf #1=#:--cl-dolist-temp-- uniquify-managed cl-struct-uniquify-item-tags fun nil buffer-list 0 error "uniquify-item-base accessing a non-uniquify-item" 1 (rename-buffer create-file-buffer) ad-remove-advice after intern symbol-name "-uniquify" ad-update rename-buffer t #2=#:--cl-dolist-temp-- #3=#:--cl-dolist-temp--] 7 (#$ . 19691)]) (provide 'uniquify)
Close
