Gecko [ 122.154.134.11 ]

Name	Size	Permission
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--

Code Editor : ls-lisp.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:26 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/ls-lisp.el
;;; in Emacs version 23.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 "`ls-lisp.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(custom-declare-group 'ls-lisp nil "Emulate the ls program completely in Emacs Lisp." :version "21.1" :group 'dired)
#@324 Platform to emulate: GNU (default), MacOS, MS-Windows, UNIX.
Corresponding value is one of the atoms: nil, MacOS, MS-Windows, UNIX.
Sets default values for: `ls-lisp-ignore-case', `ls-lisp-dirs-first',
`ls-lisp-verbosity'.  Need not match actual platform.  Changing this
option will have no effect until you restart Emacs.
(custom-declare-variable 'ls-lisp-emulation '(cond ((eq system-type 'macos) 'MacOS) ((memq system-type '(hpux usg-unix-v unisoft-unix irix berkeley-unix)) 'UNIX)) '(#$ . 721) :type '(choice (const :tag "GNU" nil) (const MacOS) (const MS-Windows) (const UNIX)) :group 'ls-lisp)
#@59 Non-nil causes ls-lisp alphabetic sorting to ignore case.
(custom-declare-variable 'ls-lisp-ignore-case '(or (memq ls-lisp-emulation '(MS-Windows MacOS)) (and (boundp 'ls-lisp-dired-ignore-case) ls-lisp-dired-ignore-case)) '(#$ . 1327) :type 'boolean :group 'ls-lisp)
#@133 Non-nil causes ls-lisp to sort directories first in any ordering.
(Or last if it is reversed.)  Follows Microsoft Windows Explorer.
(custom-declare-variable 'ls-lisp-dirs-first '(eq ls-lisp-emulation 'MS-Windows) '(#$ . 1602) :type 'boolean :group 'ls-lisp)
#@588 A list of optional file attributes that ls-lisp should display.
It should contain none or more of the symbols: links, uid, gid.
A value of nil (or an empty list) means display none of them.

Concepts come from UNIX: `links' means count of names associated with
the file; `uid' means user (owner) identifier; `gid' means group
identifier.

If emulation is MacOS then default is nil;
if emulation is MS-Windows then default is `(links)' if platform is
Windows NT/2K, nil otherwise;
if emulation is UNIX then default is `(links uid)';
if emulation is GNU then default is `(links uid gid)'.
(custom-declare-variable 'ls-lisp-verbosity '(cond ((eq ls-lisp-emulation 'MacOS) nil) ((eq ls-lisp-emulation 'MS-Windows) (if (and (fboundp 'w32-using-nt) (w32-using-nt)) '(links))) ((eq ls-lisp-emulation 'UNIX) '(links uid)) (t '(links uid gid))) '(#$ . 1867) :type '(set (const :tag "Show Link Count" links) (const :tag "Show User" uid) (const :tag "Show Group" gid)) :group 'ls-lisp)
#@246 Non-nil causes ls-lisp to revert back to using `insert-directory-program'.
This is useful on platforms where ls-lisp is dumped into Emacs, such as
Microsoft Windows, but you would still like to use a program to list
the contents of a directory.
(custom-declare-variable 'ls-lisp-use-insert-directory-program '(not (memq system-type '(macos ms-dos windows-nt))) '(#$ . 2849) :type 'boolean :group 'ls-lisp)
#@138 Non-nil means ls-lisp treats file patterns as shell wildcards.
Otherwise they are treated as Emacs regexps (for backward compatibility).
(custom-declare-variable 'ls-lisp-support-shell-wildcards 't '(#$ . 3262) :type 'boolean :group 'ls-lisp)
#@555 List of `format-time-string' specs to display file time stamps.
These specs are used ONLY if a valid locale can not be determined.

If `ls-lisp-use-localized-time-format' is non-nil, these specs are used
regardless of whether the locale can be determined.

Syntax:  (EARLY-TIME-FORMAT OLD-TIME-FORMAT)

The EARLY-TIME-FORMAT is used if file has been modified within the
current year. The OLD-TIME-FORMAT is used for older files.  To use ISO
8601 dates, you could set:

(setq ls-lisp-format-time-list
       '("%Y-%m-%d %H:%M"
         "%Y-%m-%d      "))
(custom-declare-variable 'ls-lisp-format-time-list ''("%b %e %H:%M" "%b %e  %Y") '(#$ . 3512) :type '(list (string :tag "Early time format") (string :tag "Old time format")) :group 'ls-lisp)
#@236 Non-nil causes ls-lisp to use `ls-lisp-format-time-list' even if
a valid locale is specified.

WARNING: Using localized date/time format might cause Dired columns
to fail to lign up, e.g. if month names are not all of the same length.
(custom-declare-variable 'ls-lisp-use-localized-time-format 'nil '(#$ . 4264) :type 'boolean :group 'ls-lisp)
#@68 This holds the original function definition of `insert-directory'.
(defvar original-insert-directory nil (#$ . 4615))
#@33 Format to display integer UIDs.
(defvar ls-lisp-uid-d-fmt "-%d" (#$ . 4739))
#@31 Format to display user names.
(defvar ls-lisp-uid-s-fmt "-%s" (#$ . 4822))
#@33 Format to display integer GIDs.
(defvar ls-lisp-gid-d-fmt "-%d" (#$ . 4903))
#@37 Format to display user group names.
(defvar ls-lisp-gid-s-fmt "-%s" (#$ . 4986))
#@39 Format to display integer file sizes.
(defvar ls-lisp-filesize-d-fmt "%d" (#$ . 5073))
#@37 Format to display float file sizes.
(defvar ls-lisp-filesize-f-fmt "%.0f" (#$ . 5166))
(byte-code "\301\302!\204	�\303K\301\207" [original-insert-directory featurep ls-lisp insert-directory] 2)
#@1153 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
it works exactly like the version from `files.el' and runs a directory
listing program whose name is in the variable
`insert-directory-program'; if also WILDCARD is non-nil then it runs
the shell specified by `shell-file-name'.  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 c i r S s t u U X g G B C R n and F partly.
(defalias 'insert-directory #[(file switches &optional wildcard full-directory-p) "\203�	\n\f
$\207\306\307\n!\310\"\n\311$%\211&\203(�&\310\n\f
%\202\261�\312\313\"\2036�\314\315\311\211$\316\317\320\311\"\"'\203c�\312\321\n\"\203c�\322\n!\204c�\n\211GSH\323=\203a�\n\324\nGSO\325\f\203\200�'\203t�\326\327\n!!\202w�\327\n!$\330\n!\202\211�\331>\203\211�\332$\333\334\335\217\210\212eb\210\336\337\311\325#\205\260�\340\341!\211(\205\257�\314\342!\210\311\210\343(\261))+\207" [ls-lisp-use-insert-directory-program original-insert-directory file switches wildcard full-directory-p find-file-name-handler expand-file-name insert-directory nil string-match "--dired " replace-match "" delete 45 append "[[?*]" file-exists-p 47 0 t wildcard-to-regexp file-name-nondirectory file-name-directory 66 "[^~]\\'" err (byte-code "\304	\305	!\n%\207" [file switches wildcard-regexp full-directory-p ls-lisp-insert-directory ls-lisp-time-index] 6) ((invalid-regexp (byte-code "\211A@)\306\232\203%�\307\n>\205�\310\311\f!\312
\n\313\n!\314%\210\202,�\315@A\"\210\314\207" [err x switches wildcard-regexp orig-file file "Unmatched [ or [^" 66 "[^~]\\'" file-relative-name ls-lisp-insert-directory ls-lisp-time-index nil signal full-directory-p] 7))) re-search-forward "^total" get-free-disk-space "." "total used in directory" " available " wildcard-regexp orig-file handler ls-lisp-support-shell-wildcards available] 7 (#$ . 5369)])
#@528 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.
(defalias 'ls-lisp-insert-directory #[(file switches time-index wildcard-regexp full-directory-p) "\204�	\203)\306\n!\211\307\310\311\312
>\203�\313\202�\314%;\315 <\316\211=>\316\211?@\310\211AB\310\211CD\310\211EF\310\211GH\310\211IJ\310K\317
>\203b�\320\321;\";\202o�\322
>\204o�\320\323;\";\324;
\";\325
>\203\204�\326;!\210\202\337`;\242BA;\310C\211L\203L@\211CAG\327G8\211H;\203\261�\330H!\202\267�\331\332H\"GJ\333G8\211I;\203\313�\330I!\202\321�\331\332I\"GK\334G8EJ>V\203\345�J>K?V\203\361�K?E@V\203\375�E@LA\211L\204\226�*\331\335>\"M\331\336>\"N\331\335?\"O\331\336?\"P\331\337\340
>\2038\331\341\342@\343\245!\"G\202>\331\341@\"G\"Q\331\344\340
>\203V\331\341\342@\345\245!\"G\202\\\331\341@\"G\"R;BB\203\304B@CBABC@DCAG\334G8EG\203cE=\346EZW\204\241\347=!\204\241\347E!\203\246=\202\252\350=!\\\211=\203c\351DGE
S<&c\210\202c\212A@b\210AA\204\323\352c\210\331\353\342=\354\245!\"c\210)\355
>\205&;\205&;@C;A;C\211TA@)\311=\203\345\356\357C@\"\204\345\360C@\"C\361C\362\261\210\363C
S	%\210\202\345.\207\n\211GSH\364=\2038\n\316\365O\366\n\314\"\211U\203U\351\nU\334U8
S\315 &c\202`\367\370\n\"\210\371 \210\372\327!)\207" [wildcard-regexp full-directory-p file dir default-directory switches file-name-as-directory directory-files-and-attributes nil t 110 integer string current-time 0 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" 115 "%.0f" fceiling 1024.0 " %%%d.0f" 1024.0 134217727 floatp float ls-lisp-format "(No match)\n" "total %.0f\n" 1024.0 82 string-match "\\`\\.\\.?/?\\'" expand-file-name "\n" ":\n" ls-lisp-insert-directory 47 -1 file-attributes message "%s: doesn't exist or is inaccessible" ding sit-for file-alist now sum max-uid-len max-gid-len max-file-size total-line files elt short file-size fil attr fuid fgid uid-len gid-len #1=#:--cl-dolist-temp-- 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 ls-lisp-filesize-f-fmt time-index x fattr] 8 (#$ . 7986)])
#@183 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!
(defalias 'ls-lisp-column-format #[(file-alist) "\306\211\211\211\307\211\306\211\203>�	T\211@@)\211
BAG\211V\203�\202�*
\237\310\\\311\312\"\313 \245	\245	\n_V\203_�\nT\307\306\211\nW\205\234�\211	W\203\210�\311\f
8\"c\210\n\\\211\202p�`\314\306x\210`|\210\315c\210T\211\202f�.\207" [colwid nfiles collen ncols fmt files nil 0 2 format "%%-%ds" window-width " 	" 10 len file file-alist x j i] 7 (#$ . 10732)])
#@65 Delete all elements matching REGEXP from LIST, return new list.
(defalias 'ls-lisp-delete-matching #[(regexp list) "\304	\203�\305\n	\211@@)\"\204�	@B	A\211\204�)\207" [result list regexp x nil string-match] 4 (#$ . 11395)])
#@182 Return t if string S1 is less than string S2 in lexicographic order.
Case is significant if `ls-lisp-ignore-case' is nil.
Unibyte strings are converted to multibyte for comparison.
(defalias 'ls-lisp-string-lessp #[(s1 s2) "\304\305\306	\305\306\n&\211\247\205�\305W)\207" [s1 s2 ls-lisp-ignore-case u compare-strings 0 nil] 9 (#$ . 11636)])
(put 'ls-lisp-string-lessp 'byte-optimizer 'byte-compile-inline-expand)
#@119 Return new FILE-ALIST sorted according to SWITCHES.
SWITCHES is a list of characters.  Default sorting is alphabetic.
(defalias 'ls-lisp-handle-switches #[(file-alist switches) "\306>\204�\307\310\311\217\210\312>\203�\313\314	\"\n\203m�\315\211\211	\203\\�	@\211\211A@)\316=\204J�
\211A@);\203Q�\317
\211A@)!\203Q�
\fB\202U�
B	A\211\204$�\306>\203h�\f\244\202k�\f\244+\306>?\320>?=\n=\203~�	\237\207	\207" [switches file-alist ls-lisp-dirs-first files dirs el 85 err (byte-code "\303\304\305	!\306\n>\203�\307\202'�\310\n!\211\203�\311\202'�\312\n>\203&�\313\202'�\314\")\303\207" [index file-alist switches nil sort copy-sequence 83 #[(x y) "\302A8\302	A8W\207" [y x 7] 3] ls-lisp-time-index #[(x y) "\303	A8\nA8\"\207" [index y x ls-lisp-time-lessp] 4] 88 #[(x y) "\306@!\306	@!\307\310\311\n\310\311\f&\211\247\205�
\310W+\207" [x y s2 s1 ls-lisp-ignore-case u ls-lisp-extension compare-strings 0 nil] 9] #[(x y) "@	@\306\307\310\n\307\310\f&\211\247\205�
\307W+\207" [x y s2 s1 ls-lisp-ignore-case u compare-strings 0 nil] 9]] 4) ((error (byte-code "\301\302\303!\"\210\304 \210\305\306!\207" [err message "Unsorted (ls-lisp sorting error) - %s" error-message-string ding sit-for 2] 4))) 70 mapcar ls-lisp-classify nil t file-directory-p 114 x] 4 (#$ . 12062)])
#@439 Append a character to each file name indicating the file type.
Also, for regular files that are executable, append `*'.
The file type indicators are `/' for directories, `@' for symbolic
links, `|' for FIFOs, `=' for sockets, and nothing for regular files.
[But FIFOs and sockets are not recognized.]
FILEDATA has the form (filename . `file-attributes').  Its `cadr' is t
for directory, string (name linked to) for symbolic link, or nil.
(defalias 'ls-lisp-classify #[(filedata) "@\211A@)\n\203%�\304\305\306#\n\306=\203�\307\202�\310PAB\202C�\311\312\3138\"\203;�\304\305\306#\314PAB\202C�\304\305\306#AB*\207" [filedata x type file-name propertize dired-filename t "/" "@" string-match "x" 9 "*"] 5 (#$ . 13384)])
#@127 Return extension of FILENAME (ignoring any version extension)
FOLLOWED by null and full filename, SOLELY for full alpha sort.
(defalias 'ls-lisp-extension #[(filename) "G\303	SH\304U\203�\305\202`�	S\211\306Y\203#�	H\304U\203�	\306W\203-�\307\202`�	TH\310U\204>�	T\303O\202`�		S\211\306Y\203Q�	H\304U\203@�	\306W\203[�\307\202`�	T\nO*\305Q\207" [filename i end nil 46 "�" 0 "��" 126] 3 (#$ . 14121)])
#@52 Return t if time TIME0 is earlier than time TIME1.
(defalias 'ls-lisp-time-lessp #[(time0 time1) "@	@\211\nW\206�\nU\205�\211A@)	\211A@)W*\207" [time0 time1 hi1 hi0 x] 3 (#$ . 14543)])
#@186 Format one line of long ls output for file FILE-NAME.
FILE-ATTR and FILE-SIZE give the file's attributes and size.
SWITCHES, TIME-INDEX and NOW give the full switch list and time data.
(defalias 'ls-lisp-format #[(file-name file-attr file-size switches time-index now) "@\3068\307>\205^�\3108\211:\203Y�\fA:\203L�\f@\311_\312\f@\313_\f\211A@)\314_\f\211AA)#+,\315\316,\317+\320\"\\\321+\322\"#*\202]�\315\323\f@\324_\fA\\\"\202]�\315\325\f\")\326>\205n�\315-\327.\330\245!\"	\331/>\205|�\315\332A@\"\333/>\205\232�\3348\315;\203\224�0\202\226�1\")\335>?\205\305�\336>\204\256�\337/>\205\305�\3408\315;\203\277�2\202\301�3\")\341.\342>\"\343\34445#\343\345>\204\344�\3466\347\350#\202\346�6\n;\205\356�\351\nP\352\260
*\207" [file-attr drwxrwxrwx file-type switches inode x 8 105 10 10995116.0 + 27776.0 65536.0 format " %13.0f%05.0f " floor 100000.0 mod 100000.0 " %18.0f " 65536.0 " %18d " 115 fceiling 1024.0 links "%3d" uid 2 71 103 gid 3 ls-lisp-format-file-size 104 " " ls-lisp-format-time 70 propertize dired-filename t " -> " "\n" p2 p1 ls-lisp-filesize-f-fmt file-size ls-lisp-verbosity ls-lisp-uid-s-fmt ls-lisp-uid-d-fmt ls-lisp-gid-s-fmt ls-lisp-gid-d-fmt time-index now file-name] 15 (#$ . 14744)])
#@107 Return time index into file-attributes according to ls SWITCHES list.
Return nil if no time switch found.
(defalias 'ls-lisp-time-index #[(switches) "\301>\203�\302\207\303>\203�\304\207\305>\205�\306\207" [switches 99 6 116 5 117 4] 2 (#$ . 16011)])
#@42 Convert TIME to a floating point number.
(defalias 'ls-lisp-time-to-seconds #[(time) "\302@\303_\211A@)\3048\206�\305\306\245#\207" [time x + 65536.0 2 0 1000000.0] 6 (#$ . 16274)])
#@248 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 NOW.
All ls time options, namely c, t and u, are handled.
(defalias 'ls-lisp-format-time #[(file-attr time-index now) "\206�\306	8\307\n!\307!Z\310\311\312\313\217+\207" [time-index file-attr time now diff past-cutoff 5 ls-lisp-time-to-seconds -15778476 nil (byte-code "\211\204�\306\307\n@!\211\204�\nA\211\204�)	\310\235\203!�\311\312\fX\203@�\f\313X\203@�	\203:�
\204:�\314\202P�@\202P�	\203L�
\204L�\315\202P�A@\")\207" [system-time-locale locale vars past-cutoff diff ls-lisp-use-localized-time-format ("LC_ALL" "LC_TIME" "LANG") getenv ("C" "POSIX") nil format-time-string 0 "%m-%d %H:%M" "%Y-%m-%d " ls-lisp-format-time-list time] 4) ((error "Unk  0  0000"))] 3 (#$ . 16468)])
(defalias 'ls-lisp-format-file-size #[(file-size human-readable) "\204�\305\306	!\203�\n\202�	\"\207	\307W\203�\305\310	\"\207	\311\245\312\313\314\315\316\317\257	\307W\204;�	\320\245\fA\202+�\305\321	\f@#*\207" [human-readable file-size ls-lisp-filesize-f-fmt ls-lisp-filesize-d-fmt post-fixes format floatp 1024 " %4d" 1024.0 "k" "M" "G" "T" "P" "E" 1024.0 " %3.0f%s"] 7])
(provide 'ls-lisp)

${this.title}

Code Editor : ls-lisp.elc