Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ DIR ]
drwxr-xr-x
cedet
[ 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
image
[ DIR ]
drwxr-xr-x
international
[ DIR ]
drwxr-xr-x
language
[ DIR ]
drwxr-xr-x
leim
[ 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
vc
[ DIR ]
drwxr-xr-x
COPYING
34.32
KB
-rw-r--r--
README
537
B
-rw-r--r--
abbrev.elc
34.55
KB
-rw-r--r--
align.elc
39.88
KB
-rw-r--r--
allout-widgets.elc
62.37
KB
-rw-r--r--
allout.elc
203.33
KB
-rw-r--r--
ansi-color.elc
17.12
KB
-rw-r--r--
apropos.elc
37.42
KB
-rw-r--r--
arc-mode.elc
58.06
KB
-rw-r--r--
array.elc
27.07
KB
-rw-r--r--
auth-source-pass.elc
11.68
KB
-rw-r--r--
auth-source.elc
64.32
KB
-rw-r--r--
autoarg.elc
6.63
KB
-rw-r--r--
autoinsert.elc
13.41
KB
-rw-r--r--
autorevert.elc
30.71
KB
-rw-r--r--
avoid.elc
11.62
KB
-rw-r--r--
battery.elc
24.42
KB
-rw-r--r--
bindings.elc
42.76
KB
-rw-r--r--
bookmark.elc
77.09
KB
-rw-r--r--
bs.elc
49.32
KB
-rw-r--r--
buff-menu.elc
27.02
KB
-rw-r--r--
button.elc
14.97
KB
-rw-r--r--
calculator.elc
53.9
KB
-rw-r--r--
case-table.elc
4.99
KB
-rw-r--r--
cdl.elc
1.07
KB
-rw-r--r--
char-fold.elc
311.81
KB
-rw-r--r--
chistory.elc
8.16
KB
-rw-r--r--
cmuscheme.elc
18.07
KB
-rw-r--r--
color.elc
12.83
KB
-rw-r--r--
comint.elc
114.46
KB
-rw-r--r--
completion.elc
41.12
KB
-rw-r--r--
composite.elc
27.94
KB
-rw-r--r--
cus-dep.elc
6.42
KB
-rw-r--r--
cus-edit.elc
139.04
KB
-rw-r--r--
cus-face.elc
10.54
KB
-rw-r--r--
cus-load.el
85.19
KB
-rw-r--r--
cus-start.elc
21.92
KB
-rw-r--r--
cus-theme.elc
25.05
KB
-rw-r--r--
custom.elc
47.41
KB
-rw-r--r--
dabbrev.elc
22.28
KB
-rw-r--r--
delim-col.elc
8.95
KB
-rw-r--r--
delsel.elc
9.2
KB
-rw-r--r--
descr-text.elc
26.87
KB
-rw-r--r--
desktop.elc
47.64
KB
-rw-r--r--
dframe.elc
19.92
KB
-rw-r--r--
dired-aux.elc
85.75
KB
-rw-r--r--
dired-loaddefs.el
22.29
KB
-rw-r--r--
dired-x.elc
44.53
KB
-rw-r--r--
dired.elc
127.27
KB
-rw-r--r--
dirtrack.elc
7.75
KB
-rw-r--r--
disp-table.elc
8.76
KB
-rw-r--r--
display-fill-column-indicator....
8.32
KB
-rw-r--r--
display-line-numbers.elc
8.67
KB
-rw-r--r--
dnd.elc
7.13
KB
-rw-r--r--
doc-view.elc
65.25
KB
-rw-r--r--
dom.elc
7.36
KB
-rw-r--r--
dos-fns.elc
6.14
KB
-rw-r--r--
dos-vars.elc
1.1
KB
-rw-r--r--
dos-w32.elc
11.67
KB
-rw-r--r--
double.elc
4.34
KB
-rw-r--r--
dynamic-setting.elc
2.2
KB
-rw-r--r--
ebuff-menu.elc
10.46
KB
-rw-r--r--
echistory.elc
4.75
KB
-rw-r--r--
ecomplete.elc
7.1
KB
-rw-r--r--
edmacro.elc
19.94
KB
-rw-r--r--
ehelp.elc
11.32
KB
-rw-r--r--
elec-pair.elc
21.41
KB
-rw-r--r--
electric.elc
23.69
KB
-rw-r--r--
elide-head.elc
2.65
KB
-rw-r--r--
emacs-lock.elc
9.29
KB
-rw-r--r--
env.elc
6.12
KB
-rw-r--r--
epa-dired.elc
1.62
KB
-rw-r--r--
epa-file.elc
8.65
KB
-rw-r--r--
epa-hook.elc
4.63
KB
-rw-r--r--
epa-mail.elc
9.43
KB
-rw-r--r--
epa.elc
45.25
KB
-rw-r--r--
epg-config.elc
8.97
KB
-rw-r--r--
epg.elc
166.06
KB
-rw-r--r--
expand.elc
9.07
KB
-rw-r--r--
ezimage.elc
9.65
KB
-rw-r--r--
face-remap.elc
16.58
KB
-rw-r--r--
facemenu.elc
27.89
KB
-rw-r--r--
faces.elc
90.21
KB
-rw-r--r--
ffap.elc
50.3
KB
-rw-r--r--
filecache.elc
16.69
KB
-rw-r--r--
fileloop.elc
6.62
KB
-rw-r--r--
filenotify.elc
28.49
KB
-rw-r--r--
files-x.elc
21.9
KB
-rw-r--r--
files.elc
236.95
KB
-rw-r--r--
filesets.elc
72.57
KB
-rw-r--r--
find-cmd.elc
4.9
KB
-rw-r--r--
find-dired.elc
10.41
KB
-rw-r--r--
find-file.elc
18.33
KB
-rw-r--r--
find-lisp.elc
7.66
KB
-rw-r--r--
finder-inf.el
41.27
KB
-rw-r--r--
finder.elc
14.73
KB
-rw-r--r--
flow-ctrl.elc
2.26
KB
-rw-r--r--
foldout.elc
7.25
KB
-rw-r--r--
follow.elc
40.63
KB
-rw-r--r--
font-core.elc
12.41
KB
-rw-r--r--
font-lock.elc
61.63
KB
-rw-r--r--
format-spec.elc
3.93
KB
-rw-r--r--
format.elc
27.56
KB
-rw-r--r--
forms.elc
35.1
KB
-rw-r--r--
frame.elc
85.94
KB
-rw-r--r--
frameset.elc
48.02
KB
-rw-r--r--
fringe.elc
10.23
KB
-rw-r--r--
generic-x.elc
40.27
KB
-rw-r--r--
help-at-pt.elc
11.15
KB
-rw-r--r--
help-fns.elc
45.35
KB
-rw-r--r--
help-macro.elc
4.25
KB
-rw-r--r--
help-mode.elc
23.89
KB
-rw-r--r--
help.elc
52.22
KB
-rw-r--r--
hex-util.elc
1.3
KB
-rw-r--r--
hexl.elc
35.39
KB
-rw-r--r--
hfy-cmap.elc
25.45
KB
-rw-r--r--
hi-lock.elc
29.38
KB
-rw-r--r--
hilit-chg.elc
28.77
KB
-rw-r--r--
hippie-exp.elc
21.52
KB
-rw-r--r--
hl-line.elc
11.23
KB
-rw-r--r--
htmlfontify-loaddefs.el
808
B
-rw-r--r--
htmlfontify.elc
67.51
KB
-rw-r--r--
ibuf-ext.elc
77.15
KB
-rw-r--r--
ibuf-macs.elc
12.47
KB
-rw-r--r--
ibuffer-loaddefs.el
12.68
KB
-rw-r--r--
ibuffer.elc
98.62
KB
-rw-r--r--
icomplete.elc
22.83
KB
-rw-r--r--
ido.elc
127.92
KB
-rw-r--r--
ielm.elc
19.2
KB
-rw-r--r--
iimage.elc
4.92
KB
-rw-r--r--
image-dired.elc
92.97
KB
-rw-r--r--
image-file.elc
6.53
KB
-rw-r--r--
image-mode.elc
42.56
KB
-rw-r--r--
image.elc
34.45
KB
-rw-r--r--
imenu.elc
24.94
KB
-rw-r--r--
indent.elc
23.63
KB
-rw-r--r--
info-look.elc
28.18
KB
-rw-r--r--
info-xref.elc
16.59
KB
-rw-r--r--
info.elc
144.48
KB
-rw-r--r--
informat.elc
9.73
KB
-rw-r--r--
isearch.elc
147.85
KB
-rw-r--r--
isearchb.elc
4.73
KB
-rw-r--r--
jit-lock.elc
23.49
KB
-rw-r--r--
jka-cmpr-hook.elc
13.07
KB
-rw-r--r--
jka-compr.elc
12.09
KB
-rw-r--r--
json.elc
22.76
KB
-rw-r--r--
jsonrpc.elc
31.65
KB
-rw-r--r--
kermit.elc
2.92
KB
-rw-r--r--
kmacro.elc
35.15
KB
-rw-r--r--
ldefs-boot.el
1.41
MB
-rw-r--r--
linum.elc
10.77
KB
-rw-r--r--
loaddefs.el
1.41
MB
-rw-r--r--
loadhist.elc
9.77
KB
-rw-r--r--
loadup.el
20.08
KB
-rw-r--r--
locate.elc
19.57
KB
-rw-r--r--
lpr.elc
9.44
KB
-rw-r--r--
ls-lisp.elc
22.7
KB
-rw-r--r--
macros.elc
7.23
KB
-rw-r--r--
makesum.elc
2.47
KB
-rw-r--r--
man.elc
53.85
KB
-rw-r--r--
master.elc
4.58
KB
-rw-r--r--
mb-depth.elc
3.56
KB
-rw-r--r--
md4.elc
8.12
KB
-rw-r--r--
menu-bar.elc
86.61
KB
-rw-r--r--
midnight.elc
10.22
KB
-rw-r--r--
minibuf-eldef.elc
6.43
KB
-rw-r--r--
minibuffer.elc
104.08
KB
-rw-r--r--
misc.elc
5.4
KB
-rw-r--r--
misearch.elc
12.37
KB
-rw-r--r--
mouse-copy.elc
3.61
KB
-rw-r--r--
mouse-drag.elc
6.43
KB
-rw-r--r--
mouse.elc
71.3
KB
-rw-r--r--
mpc.elc
79.29
KB
-rw-r--r--
msb.elc
26.76
KB
-rw-r--r--
mwheel.elc
12.83
KB
-rw-r--r--
newcomment.elc
39.43
KB
-rw-r--r--
notifications.elc
13.78
KB
-rw-r--r--
novice.elc
4.43
KB
-rw-r--r--
obarray.elc
1.71
KB
-rw-r--r--
outline.elc
37.04
KB
-rw-r--r--
paren.elc
8.69
KB
-rw-r--r--
password-cache.elc
3.57
KB
-rw-r--r--
pcmpl-cvs.elc
6.17
KB
-rw-r--r--
pcmpl-gnu.elc
12.96
KB
-rw-r--r--
pcmpl-linux.elc
3.09
KB
-rw-r--r--
pcmpl-rpm.elc
11.17
KB
-rw-r--r--
pcmpl-unix.elc
7.52
KB
-rw-r--r--
pcmpl-x.elc
8.95
KB
-rw-r--r--
pcomplete.elc
36.16
KB
-rw-r--r--
pixel-scroll.elc
10.82
KB
-rw-r--r--
plstore.elc
14.75
KB
-rw-r--r--
printing.elc
157.7
KB
-rw-r--r--
proced.elc
62.85
KB
-rw-r--r--
profiler.elc
42.81
KB
-rw-r--r--
ps-bdf.elc
12.69
KB
-rw-r--r--
ps-def.elc
2.23
KB
-rw-r--r--
ps-mule.elc
34.89
KB
-rw-r--r--
ps-print-loaddefs.el
2.6
KB
-rw-r--r--
ps-print.elc
141.17
KB
-rw-r--r--
ps-samp.elc
5.26
KB
-rw-r--r--
recentf.elc
48.73
KB
-rw-r--r--
rect.elc
26.88
KB
-rw-r--r--
register.elc
27.63
KB
-rw-r--r--
registry.elc
10.41
KB
-rw-r--r--
repeat.elc
5.14
KB
-rw-r--r--
replace.elc
84.62
KB
-rw-r--r--
reposition.elc
2.66
KB
-rw-r--r--
reveal.elc
7.16
KB
-rw-r--r--
rfn-eshadow.elc
7.23
KB
-rw-r--r--
rot13.elc
2.56
KB
-rw-r--r--
rtree.elc
4.09
KB
-rw-r--r--
ruler-mode.elc
21.87
KB
-rw-r--r--
savehist.elc
10.83
KB
-rw-r--r--
saveplace.elc
11.87
KB
-rw-r--r--
sb-image.elc
2.75
KB
-rw-r--r--
scroll-all.elc
4.41
KB
-rw-r--r--
scroll-bar.elc
16.68
KB
-rw-r--r--
scroll-lock.elc
5.41
KB
-rw-r--r--
select.elc
18.75
KB
-rw-r--r--
server.elc
47.56
KB
-rw-r--r--
ses.elc
131.12
KB
-rw-r--r--
shadowfile.elc
31.16
KB
-rw-r--r--
shell.elc
41.53
KB
-rw-r--r--
simple.elc
301.78
KB
-rw-r--r--
skeleton.elc
15.76
KB
-rw-r--r--
so-long.elc
47.15
KB
-rw-r--r--
sort.elc
15.49
KB
-rw-r--r--
soundex.elc
1.14
KB
-rw-r--r--
speedbar.elc
115.02
KB
-rw-r--r--
startup.elc
68.51
KB
-rw-r--r--
strokes.elc
44.03
KB
-rw-r--r--
subdirs.el
450
B
-rw-r--r--
subr.elc
186.63
KB
-rw-r--r--
svg.elc
12.71
KB
-rw-r--r--
t-mouse.elc
3.8
KB
-rw-r--r--
tab-bar.elc
52.48
KB
-rw-r--r--
tab-line.elc
29.85
KB
-rw-r--r--
tabify.elc
2.17
KB
-rw-r--r--
talk.elc
2.99
KB
-rw-r--r--
tar-mode.elc
57.2
KB
-rw-r--r--
tempo.elc
19.18
KB
-rw-r--r--
term.elc
107.99
KB
-rw-r--r--
thingatpt.elc
16.88
KB
-rw-r--r--
thread.elc
8.08
KB
-rw-r--r--
thumbs.elc
25.74
KB
-rw-r--r--
time-stamp.elc
18.69
KB
-rw-r--r--
time.elc
20.87
KB
-rw-r--r--
timezone.elc
10.94
KB
-rw-r--r--
tmm.elc
13.39
KB
-rw-r--r--
tool-bar.elc
9.76
KB
-rw-r--r--
tooltip.elc
13.19
KB
-rw-r--r--
tree-widget.elc
19.84
KB
-rw-r--r--
tutorial.elc
22.28
KB
-rw-r--r--
type-break.elc
37.35
KB
-rw-r--r--
uniquify.elc
17.68
KB
-rw-r--r--
userlock.elc
6.33
KB
-rw-r--r--
vcursor.elc
23.92
KB
-rw-r--r--
version.elc
6.01
KB
-rw-r--r--
view.elc
34.69
KB
-rw-r--r--
vt-control.elc
1.99
KB
-rw-r--r--
vt100-led.elc
1.33
KB
-rw-r--r--
w32-fns.elc
11.01
KB
-rw-r--r--
w32-vars.elc
5.16
KB
-rw-r--r--
wdired.elc
23.52
KB
-rw-r--r--
whitespace.elc
69.06
KB
-rw-r--r--
wid-browse.elc
8.48
KB
-rw-r--r--
wid-edit.elc
99.52
KB
-rw-r--r--
widget.elc
1.4
KB
-rw-r--r--
windmove.elc
19.82
KB
-rw-r--r--
window.elc
294.5
KB
-rw-r--r--
winner.elc
12.04
KB
-rw-r--r--
woman.elc
109.43
KB
-rw-r--r--
x-dnd.elc
19.56
KB
-rw-r--r--
xdg.elc
10.14
KB
-rw-r--r--
xml.elc
25.31
KB
-rw-r--r--
xt-mouse.elc
14.1
KB
-rw-r--r--
xwidget.elc
18.9
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : uniquify.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\316\317\320\301& \210\306\321\310\311\322DD\323\314\324%\210\306\325\310\311\326DD\327\314\330%\210\306\331\310\311\332DD\333\314\334%\210\306\335\310\311\336DD\337\314\340%\210\306\341\310\311\342DD\343\314\324%\210\306\344\310\311\345DD\346\314\324%\207" [custom-declare-group uniquify nil "Unique buffer names dependent on file name." :group files custom-declare-variable uniquify-buffer-name-style funcall function #[0 "\300\207" [post-forward-angle-brackets] 1] "How to construct unique buffer names for files with the same base name.\nThe value can be one of: `forward', `reverse', `post-forward',\n`post-forward-angle-brackets', or nil.\n\nFor example, the files `/foo/bar/mumble/name' and `/baz/quux/mumble/name'\nwould have the following buffer names in the various styles:\n\n forward bar/mumble/name quux/mumble/name\n reverse name\\mumble\\bar name\\mumble\\quux\n post-forward name|bar/mumble name|quux/mumble\n post-forward-angle-brackets name<bar/mumble> name<quux/mumble>\n nil name name<2>\n\nThe \"mumble\" part may be stripped as well, depending on the\nsetting of `uniquify-strip-common-suffix'. For more options that\nyou can set, browse the `uniquify' custom group." :type (radio (const forward) (const reverse) (const post-forward) (const post-forward-angle-brackets) (const :tag "numeric suffixes" nil)) :version "24.4" :require uniquify-after-kill-buffer-p #[0 "\300\207" [t] 1] "If non-nil, rerationalize buffer names after a buffer has been killed." boolean uniquify-ignore-buffers-re #[0 "\300\207" [nil] 1] "Regular expression matching buffer names that should not be uniquified.\nFor instance, set this to \"^draft-[0-9]+$\" to avoid having uniquify rename\ndraft buffers even if `uniquify-after-kill-buffer-p' is non-nil and the\nvisited file name isn't the same as that of the buffer." (choice (const :tag "Uniquify all buffers" nil) regexp) uniquify-min-dir-content #[0 "\300\207" [0] 1] "Minimum number of directory name components included in buffer name." integer uniquify-separator #[0 "\300\207" [nil] 1] "String separator for buffer name components.\nWhen `uniquify-buffer-name-style' is `post-forward', separates\nbase file name from directory part in buffer names (default \"|\").\nWhen `uniquify-buffer-name-style' is `reverse', separates all\nfile name components (default \"\\\")." (choice (const nil) string) uniquify-trailing-separator-p #[0 "\300\207" [nil] 1] "If non-nil, add a file name separator to dired buffer names.\nIf `uniquify-buffer-name-style' is `forward', add the separator at the end;\nif it is `reverse', add the separator at the beginning; otherwise, this\nvariable is ignored." uniquify-strip-common-suffix #[0 "\301=\207" [uniquify-min-dir-content 0] 2] "If non-nil, strip common directory suffixes of conflicting files.\nE.g. if you open /a1/b/c/d and /a2/b/c/d, the buffer names will say\n\"d|a1\" and \"d|a2\" instead of \"d|a1/b/c\" and \"d|a2/b/c\".\nThis can be handy when you have deep parallel hierarchies."] 10) #@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) (#$ . 3593)) #@72 compiler-macro for inlining `uniquify-item-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'uniquify-item-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block uniquify-item-p (and (memq (type-of cl-x) cl-struct-uniquify-item-tags) t)) nil] 9 (#$ . 3909)]) (put 'uniquify-item-p 'compiler-macro 'uniquify-item-p--cmacro) #@13 (fn CL-X) (defalias 'uniquify-item-p #[257 "\301!>\205 \302\207" [cl-struct-uniquify-item-tags type-of t] 3 (#$ . 4261)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put uniquify-item-p side-effect-free error-free put uniquify-item cl-deftype-satisfies] 5) #@75 compiler-macro for inlining `uniquify-item-base'. (fn CL-WHOLE-ARG CL-X) (defalias 'uniquify-item-base--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block uniquify-item-base (progn (or (uniquify-item-p cl-x) (signal 'wrong-type-argument (list 'uniquify-item cl-x))) (aref cl-x 1))) nil] 9 (#$ . 4547)]) (put 'uniquify-item-base 'compiler-macro 'uniquify-item-base--cmacro) #@63 Access slot "base" of `uniquify-item' struct CL-X. (fn CL-X) (defalias 'uniquify-item-base #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-uniquify-item-tags type-of signal wrong-type-argument uniquify-item 1] 5 (#$ . 4962)]) (byte-code "\300\301\302\303#\300\207" [function-put uniquify-item-base side-effect-free t] 4) #@78 compiler-macro for inlining `uniquify-item-dirname'. (fn CL-WHOLE-ARG CL-X) (defalias 'uniquify-item-dirname--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block uniquify-item-dirname (progn (or (uniquify-item-p cl-x) (signal 'wrong-type-argument (list 'uniquify-item cl-x))) (aref cl-x 2))) nil] 9 (#$ . 5309)]) (put 'uniquify-item-dirname 'compiler-macro 'uniquify-item-dirname--cmacro) #@66 Access slot "dirname" of `uniquify-item' struct CL-X. (fn CL-X) (defalias 'uniquify-item-dirname #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-uniquify-item-tags type-of signal wrong-type-argument uniquify-item 2] 5 (#$ . 5739)]) (byte-code "\300\301\302\303#\300\207" [function-put uniquify-item-dirname side-effect-free t] 4) #@77 compiler-macro for inlining `uniquify-item-buffer'. (fn CL-WHOLE-ARG CL-X) (defalias 'uniquify-item-buffer--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block uniquify-item-buffer (progn (or (uniquify-item-p cl-x) (signal 'wrong-type-argument (list 'uniquify-item cl-x))) (aref cl-x 3))) nil] 9 (#$ . 6095)]) (put 'uniquify-item-buffer 'compiler-macro 'uniquify-item-buffer--cmacro) #@65 Access slot "buffer" of `uniquify-item' struct CL-X. (fn CL-X) (defalias 'uniquify-item-buffer #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-uniquify-item-tags type-of signal wrong-type-argument uniquify-item 3] 5 (#$ . 6520)]) (byte-code "\300\301\302\303#\300\207" [function-put uniquify-item-buffer side-effect-free t] 4) #@79 compiler-macro for inlining `uniquify-item-proposed'. (fn CL-WHOLE-ARG CL-X) (defalias 'uniquify-item-proposed--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block uniquify-item-proposed (progn (or (uniquify-item-p cl-x) (signal 'wrong-type-argument (list 'uniquify-item cl-x))) (aref cl-x 4))) nil] 9 (#$ . 6873)]) (put 'uniquify-item-proposed 'compiler-macro 'uniquify-item-proposed--cmacro) #@67 Access slot "proposed" of `uniquify-item' struct CL-X. (fn CL-X) (defalias 'uniquify-item-proposed #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-uniquify-item-tags type-of signal wrong-type-argument uniquify-item 4] 5 (#$ . 7308)]) (byte-code "\300\301\302\303#\300\207" [function-put uniquify-item-proposed side-effect-free t] 4) #@109 compiler-macro for inlining `uniquify-make-item'. (fn CL-WHOLE-ARG BASE DIRNAME BUFFER &optional PROPOSED) (defalias 'uniquify-make-item--cmacro #[1284 "\300\301\302\303\211\211 & \207" [cl--defsubst-expand (base dirname buffer proposed) (cl-block uniquify-make-item (record 'uniquify-item base dirname buffer proposed)) nil] 15 (#$ . 7668)]) (put 'uniquify-make-item 'compiler-macro 'uniquify-make-item--cmacro) #@95 Constructor for objects of type `uniquify-item'. (fn BASE DIRNAME BUFFER &optional PROPOSED) (defalias 'uniquify-make-item #[1027 "\300\301%\207" [record uniquify-item] 10 (#$ . 8095)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put uniquify-make-item side-effect-free t cl-struct-define uniquify-item nil cl-structure-object record ((cl-tag-slot) (base) (dirname) (buffer) (proposed)) cl-struct-uniquify-item-tags] 11) (defvar uniquify-possibly-resolvable nil) #@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 (#$ . 8613)) (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 #[0 "\205 \302@! >\204 \303\304\305@D\"\210@\306H\207" [uniquify-managed cl-struct-uniquify-item-tags type-of signal wrong-type-argument uniquify-item 1] 4 (#$ . 8917)]) #@263 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. (fn BASE DIRNAME NEWBUF) (defalias 'uniquify-rationalize-file-buffer-names #[771 "r\211q\210\303)\205\347 \304\305!!\262\306\307\303%C\303\310 \211\203\341 \211@ \2030 \311 \312!\"\204\332 \313\300\"\211\262\203\332 \314@!\n>\204N \315\316\307@D\"\210@\317H\232\203\332 @>\204\332 A\204\312 \314@!\n>\204s \315\316\307@D\"\210@\211\320\321\314@!\n>\204\213 \315\316\307 @D\"\210@\322H!I\266\314@!\n>\204\245 \315\316\307@D\"\210@\320H\204\312 r\314@!\n>\204\276 \315\316\307@D\"\210@\322Hq\210\303)\303\262\323\303\324\325\"\"\262\326\"\262A\266\202\202 \210\327!\266\202\207" [uniquify-managed uniquify-ignore-buffers-re cl-struct-uniquify-item-tags nil expand-file-name directory-file-name record uniquify-item buffer-list string-match buffer-name buffer-local-value type-of signal wrong-type-argument 1 2 uniquify-buffer-file-name 3 delq mapcar #[257 "\301\302!>\204 \303\304\305D\"\210\306H!\205 \211\207" [cl-struct-uniquify-item-tags buffer-live-p type-of signal wrong-type-argument uniquify-item 3] 6 "\n\n(fn ITEM)"] append uniquify-rationalize] 15 (#$ . 9234) (byte-code "\203 \302@! >\204 \303\304\305@D\"\210@\306H\202 \307 \310p!pE\207" [uniquify-managed cl-struct-uniquify-item-tags type-of signal wrong-type-argument uniquify-item 1 buffer-name uniquify-buffer-file-name] 4)]) #@224 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. (fn BUFFER) (defalias 'uniquify-buffer-file-name #[257 "r\211q\210\206 \n>\205 \211\205 \304\305\306\304!!!!\262)\207" [buffer-file-name major-mode uniquify-list-buffers-directory-modes list-buffers-directory directory-file-name file-name-directory expand-file-name] 7 (#$ . 10827)]) #@87 Re-rationalize the buffers in FIX-LIST, but ignoring `current-buffer'. (fn FIX-LIST) (defalias 'uniquify-rerationalize-w/o-cb #[257 "\301\211\2033 \211@\302!>\204 \303\304\305D\"\210\211\306H\211p=\204+ \307!\203+ B\262\210A\266\202\202 \210\211\205; \310!\207" [cl-struct-uniquify-item-tags nil type-of signal wrong-type-argument uniquify-item 3 buffer-live-p uniquify-rationalize] 8 (#$ . 11336)]) #@17 (fn FIX-LIST) (defalias 'uniquify-rationalize #[257 "\211\211\203d \211@r\303!>\204 \304\305\306D\"\210\211\307Hq\210\303!>\204+ \304\305\306D\"\210\211\211\310\311\303!>\204? \304\305\306D\"\210\312H\303!>\204S \304\305\306D\"\210\313H\"I\266)A\266\202\202 \210\211A\203:\n\203:\314\315\303@!>\204\201 \304\305\306@D\"\210@\313H!G\316V\205\276 \203\275 \211\203\275 \315\211A\262\242\303!>\204\255 \304\305\306D\"\210\211\313H\262!\232\204\216 \317\262\202\216 \266\202\2039\317\262\211\2035\211@\303!>\204\334 \304\305\306D\"\210\211\312H\320\303!>\204\357 \304\305\306D\"\210\313H!\211\205\372 \321!\262\303!>\204 \304\305\306D\"\210\307H\303!>\204 \304\305\306D\"\210\310H\322\306%\266\204B\262A\266\202\202\307 \210\202o \210\323!\207" [cl-struct-uniquify-item-tags uniquify-managed uniquify-strip-common-suffix type-of signal wrong-type-argument uniquify-item 3 4 uniquify-get-proposed-name 1 2 t file-name-nondirectory 0 nil file-name-directory directory-file-name record uniquify-rationalize-a-list] 14 (#$ . 11755)]) #@20 (fn ITEM1 ITEM2) (defalias 'uniquify-item-greaterp #[514 "\301!>\204 \302\303\304D\"\210\211\305H\301!>\204! \302\303\304D\"\210\305H\231\207" [cl-struct-uniquify-item-tags type-of signal wrong-type-argument uniquify-item 4] 7 (#$ . 12862)]) #@33 (fn FIX-LIST &optional DEPTH) (defalias 'uniquify-rationalize-a-list #[513 "\211\204 \262\302\303\302\304\305!\306\"\211\203J \211@\307! >\204& \310\311\312D\"\210\211\313H\262\232\204; \314#\210\302\262\211B\262\262A\266\202\202 \210\314#\207" [uniquify-min-dir-content cl-struct-uniquify-item-tags nil "" sort copy-sequence uniquify-item-greaterp type-of signal wrong-type-argument uniquify-item 4 uniquify-rationalize-conflicting-sublist] 11 (#$ . 13120)]) #@37 (fn BASE DIRNAME &optional DEPTH) (defalias 'uniquify-get-proposed-name #[770 "\211\204 \262\305!\232\204 \306\307!\210 \203= \310\311\"!\203= \312\230\204= \n\313\267\202= \314!\262\202= \2069 \315P\262\316\211\317V\203{ \203{ \320!\321!\211\262\203Z \305!\262S\262\211G\317U\203r \322!\206l \312\316\262\202s \211B\262\210\202? \211\317U\203\230 \203\226 \203\226 \321!\232\203\226 \312B\262\323\204\240 \202\357 \312\230\203\256 \324\325\326#\202\357 \n\327\267\202\353 \324\325\237B \206\300 \315#\202\357 \324\325C\244\326#\202\357 \206\326 \330\324\325\326#Q\202\357 \331\324\325\326#\332R\202\357 \333\334\n\"\207" [uniquify-min-dir-content uniquify-trailing-separator-p uniquify-buffer-name-style uniquify-separator uniquify-possibly-resolvable directory-file-name cl--assertion-failed (equal (directory-file-name dirname) dirname) file-directory-p expand-file-name "" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (forward 44 reverse 52)) file-name-as-directory "\\" nil 0 file-name-nondirectory file-name-directory file-remote-p t mapconcat identity "/" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (reverse 180 forward 196 post-forward 208 post-forward-angle-brackets 223)) "|" "<" ">" error "Bad value for uniquify-buffer-name-style: %s"] 11 (#$ . 13613)]) #@33 (fn CONF-LIST OLD-NAME DEPTH) (defalias 'uniquify-rationalize-conflicting-sublist #[771 "\205\230 A\204. \302!\211\205) \211\303@!>\204# \304\305\306@D\"\210@\307H=?\262\203\214 \205\230 \310\211T\262\211\203\206 \211@\303!>\204N \304\305\306D\"\210\211\211\311\312\303!>\204b \304\305\306D\"\210\313H\303!>\204v \304\305\306D\"\210\314H#I\266A\266\202\2029 \210\315\"\207\316\230?\205\230 \317@\"\207" [cl-struct-uniquify-item-tags uniquify-possibly-resolvable get-buffer type-of signal wrong-type-argument uniquify-item 3 nil 4 uniquify-get-proposed-name 1 2 uniquify-rationalize-a-list "" uniquify-rename-buffer] 14 (#$ . 15018)]) #@21 (fn ITEM NEWNAME) (defalias 'uniquify-rename-buffer #[514 "\302!>\204 \303\304\305D\"\210\306H\307!\232?\205& r\211q\210\310\311\312\"*\207" [cl-struct-uniquify-item-tags uniquify-buffer-name-style type-of signal wrong-type-argument uniquify-item 3 buffer-name nil rename-buffer t] 6 (#$ . 15696)]) #@55 Re-rationalize buffer names, ignoring current buffer. (defalias 'uniquify-maybe-rerationalize-w/o-cb #[0 "A\205\f \205\f \302!\207" [uniquify-managed uniquify-buffer-name-style uniquify-rerationalize-w/o-cb] 2 (#$ . 16012)]) #@86 Re-rationalize buffer names, ignoring current buffer. For use on `kill-buffer-hook'. (defalias 'uniquify-kill-buffer-function #[0 "\205 \301 \207" [uniquify-after-kill-buffer-p uniquify-maybe-rerationalize-w/o-cb] 1 (#$ . 16246)]) (byte-code "\300\301\302\"\210\303\304\305\306#\207" [add-hook kill-buffer-hook uniquify-kill-buffer-function advice-add rename-buffer :around uniquify--rename-buffer-advice] 4) #@102 Uniquify buffer names with parts of directory name. (fn RB-FUN NEWNAME &optional UNIQUE &rest ARGS) (defalias 'uniquify--rename-buffer-advice #[898 "\302$\303 \210\204 \304\202# \203# \305\306p!p#\210\307p!\262\211\207" [uniquify-managed uniquify-buffer-name-style apply uniquify-maybe-rerationalize-w/o-cb nil uniquify-rationalize-file-buffer-names uniquify-buffer-file-name buffer-name] 9 (#$ . 16664)]) (advice-add 'create-file-buffer :around 'uniquify--create-file-buffer-advice) #@87 Uniquify buffer names with parts of directory name. (fn CFB-FUN FILENAME &rest ARGS) (defalias 'uniquify--create-file-buffer-advice #[642 "\301#\203 \302\303!!\304\305!\306!#\266\211\207" [uniquify-buffer-name-style apply expand-file-name directory-file-name uniquify-rationalize-file-buffer-names file-name-nondirectory file-name-directory] 9 (#$ . 17165)]) #@30 Unload the uniquify library. (defalias 'uniquify-unload-function #[0 "r\302\303 \211\2033 \211@\211q\210\203, \211\304@! >\204# \305\306\307@D\"\210@\310HBB\262A\266\202\202 \210\311\312\313\"\210\311\314\315\"\210\211\211\203V \211@\211@q\210\312A\316\"\210A\266\202\202? \266)\302\207" [uniquify-managed cl-struct-uniquify-item-tags nil buffer-list type-of signal wrong-type-argument uniquify-item 1 advice-remove rename-buffer uniquify--rename-buffer-advice create-file-buffer uniquify--create-file-buffer-advice t] 8 (#$ . 17541)]) (provide 'uniquify)
Close
