;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:51 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/eshell/em-ls.el
;;; in Emacs version 24.3.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!\210\300\302!\210\303\304\305\306\307\310\311\312&\207" [require esh-util esh-opt custom-declare-group eshell-ls nil "This module implements the \"ls\" utility fully in Lisp.  If it is\npassed any unrecognized command switches, it will revert to the\noperating system's version.  This version of \"ls\" uses text\nproperties to colorize its output based on the setting of\n`eshell-ls-use-colors'." :tag "Implementation of `ls' in Lisp" :group eshell-module] 8)
#@57 Preserve the original definition of `insert-directory'.
(defvar eshell-ls-orig-insert-directory (symbol-function 'insert-directory) (#$ . 1038))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\313\314\304\315\306\307&	\210\300\316\317\320\304\321\306\307&\210\300\322\317\323\304\324\306\307&\210\300\325\317\326\327\330\304\331\332\333\306\307&\210\300\334\335\336\304\337\306\307&\210\300\340\317\341\304\342\306\307&\210\300\343\344\345\304\331\306\307&\210\300\346\344\347\304\331\306\307&\210\350\351\352\353\306\307%\210\354\355\356\351#\210\354\355\357\360\361!\206\201\344#\210\350\362\363\364\306\307%\210\354\365\356\362#\210\354\365\357\360\361!\206\233\344#\210\350\366\367\370\306\307%\210\354\371\356\366#\210\354\371\357\360\361!\206\265\344#\210\350\372\373\374\306\307%\210\354\375\356\372#\210\354\375\357\360\361!\206\317\344#\210\350\376\377\201@\306\307%\210\354\201A\356\376#\210\354\201A\357\360\361!\206\357\344#\210\350\201B\201C\201D\306\307%\210\354\201E\356\201B#\210\354\201E\357\360\361!\206
\344#\210\350\201F\201G\201H\306\307%\210\354\201I\356\201F#\210\354\201I\357\360\361!\206;
\344#\210\300\201J\201K\201L\313\314\304\201M\306\307&	\210\350\201N\201O\201P\306\307%\210\354\201Q\356\201N#\210\354\201Q\357\360\361!\206v
\344#\210\300\201R\201S\201T\304\201M\306\307&\210\350\201U\201V\201W\306\307%\210\354\201X\356\201U#\210\354\201X\357\360\361!\206\257
\344#\210\300\201Y\201Z\201[\304\201M\306\307&\210\350\201\\\201]\201^\306\307%\210\354\201_\356\201\\#\210\354\201_\357\360\361!\206\350
\344#\210\300\201`\201a\201b\304\201M\306\307&\210\350\201c\201d\201e\306\307%\210\354\201f\356\201c#\210\354\201f\357\360\361!\206!\344#\207" [custom-declare-variable eshell-ls-unload-hook (list #'(lambda nil (fset 'insert-directory eshell-ls-orig-insert-directory))) "When unloading `eshell-ls', restore the definition of `insert-directory'." :type hook :group eshell-ls eshell-ls-date-format "%Y-%m-%d" "How to display time information in `eshell-ls-file'.\nThis is passed to `format-time-string' as a format string.\nTo display the date using the current locale, use \"%b %e\"." :version "24.1" string eshell-ls-initial-args nil "If non-nil, this list of args is included before any call to `ls'.\nThis is useful for enabling human-readable format (-h), for example." (repeat :tag "Arguments" string) eshell-ls-dired-initial-args "If non-nil, args is included before any call to `ls' in Dired.\nThis is useful for enabling human-readable format (-h), for example." (repeat :tag "Arguments" string) eshell-ls-use-in-dired "If non-nil, use `eshell-ls' to read directories in Dired." :set #[(symbol value) "\203\303\301!\203	\204#\304\305M\210\202#\303\305!\203#	\203#\304\nM\210\211\207" [value eshell-ls-use-in-dired eshell-ls-orig-insert-directory boundp insert-directory eshell-ls-insert-directory] 2] boolean :require em-ls eshell-ls-default-blocksize 1024 "The default blocksize to use when display file sizes with -s." integer eshell-ls-exclude-regexp "Unless -a is specified, files matching this regexp will not be shown." (choice regexp (const nil)) eshell-ls-exclude-hidden t "Unless -a is specified, files beginning with . will not be shown.\nUsing this boolean, instead of `eshell-ls-exclude-regexp', is both\nfaster and conserves more memory." eshell-ls-use-colors "If non-nil, use colors in file listings." custom-declare-face eshell-ls-directory ((((class color) (background light)) (:foreground "Blue" :weight bold)) (((class color) (background dark)) (:foreground "SkyBlue" :weight bold)) (t (:weight bold))) "The face used for highlight directories." put eshell-ls-directory-face face-alias obsolete-face purecopy "22.1" eshell-ls-symlink ((((class color) (background light)) (:foreground "Dark Cyan" :weight bold)) (((class color) (background dark)) (:foreground "Cyan" :weight bold))) "The face used for highlight symbolic links." eshell-ls-symlink-face eshell-ls-executable ((((class color) (background light)) (:foreground "ForestGreen" :weight bold)) (((class color) (background dark)) (:foreground "Green" :weight bold))) "The face used for highlighting executables (not directories, though)." eshell-ls-executable-face eshell-ls-readonly ((((class color) (background light)) (:foreground "Brown")) (((class color) (background dark)) (:foreground "Pink"))) "The face used for highlighting read-only files." eshell-ls-readonly-face eshell-ls-unreadable ((((class color) (background light)) (:foreground "Grey30")) (((class color) (background dark)) (:foreground "DarkGrey"))) "The face used for highlighting unreadable files." eshell-ls-unreadable-face eshell-ls-special ((((class color) (background light)) (:foreground "Magenta" :weight bold)) (((class color) (background dark)) (:foreground "Magenta" :weight bold))) "The face used for highlighting non-regular files." eshell-ls-special-face eshell-ls-missing ((((class color) (background light)) (:foreground "Red" :weight bold)) (((class color) (background dark)) (:foreground "Red" :weight bold))) "The face used for highlighting non-existent file names." eshell-ls-missing-face eshell-ls-archive-regexp (concat "\\.\\(t\\(a[rz]\\|gz\\)\\|arj\\|lzh\\|" "zip\\|[zZ]\\|gz\\|bz2\\|xz\\|deb\\|rpm\\)\\'") "A regular expression that matches names of file archives.\nThis typically includes both traditional archives and compressed\nfiles." regexp eshell-ls-archive ((((class color) (background light)) (:foreground "Orchid" :weight bold)) (((class color) (background dark)) (:foreground "Orchid" :weight bold))) "The face used for highlighting archived and compressed file names." eshell-ls-archive-face eshell-ls-backup-regexp "\\(\\`\\.?#\\|\\(\\.bak\\|~\\)\\'\\)" "A regular expression that matches names of backup files." eshell-ls-backup ((((class color) (background light)) (:foreground "OrangeRed")) (((class color) (background dark)) (:foreground "LightSalmon"))) "The face used for highlighting backup file names." eshell-ls-backup-face eshell-ls-product-regexp "\\.\\(elc\\|o\\(bj\\)?\\|a\\|lib\\|res\\)\\'" "A regular expression that matches names of product files.\nProducts are files that get generated from a source file, and hence\nought to be recreatable if they are deleted." eshell-ls-product ((((class color) (background light)) (:foreground "OrangeRed")) (((class color) (background dark)) (:foreground "LightSalmon"))) "The face used for highlighting files that are build products." eshell-ls-product-face eshell-ls-clutter-regexp "\\(^texput\\.log\\|^core\\)\\'" "A regular expression that matches names of junk files.\nThese are mainly files that get created for various reasons, but don't\nreally need to stick around for very long." eshell-ls-clutter ((((class color) (background light)) (:foreground "OrangeRed" :weight bold)) (((class color) (background dark)) (:foreground "OrangeRed" :weight bold))) "The face used for highlighting junk file names." eshell-ls-clutter-face] 12)
#@43 Test whether ATTRS specifies a directory.
(defalias 'eshell-ls-filetype-p #[(attrs type) "\3028\205
\3028\303H	=\207" [attrs type 8 0] 2 (#$ . 8058)])
(put 'eshell-ls-filetype-p 'byte-optimizer 'byte-compile-inline-expand)
#@293 Test whether, for ATTRS, the user can do what corresponds to INDEX.
ATTRS is a string of file modes.  See `file-attributes'.
If we cannot determine the answer using ATTRS (e.g., if we need
to know what group the user is in), compute the return value by
calling FUNC with FILE as an argument.
(defalias 'eshell-ls-applicable '(macro . #[(attrs index func file) "\304\305\306\307ED\310\306\311EDD\312\313\314\315\316\310	E\317BBDD\315\316\310\320	\321BBE\316\310\320	\322BBEE\314\315\316\310\320	\323BBE\324BBDD\325\326\n!DDFE\207" [attrs index func file let owner nth 2 modes 8 cond (cond ((numberp owner) (= owner (user-uid))) ((stringp owner) (or (string-equal owner (user-login-name)) (member owner (eshell-current-ange-uids))))) not eq aref (45) + (3) (6) (3) (45) t eval] 12 (#$ . 8291)]))
#@295 This alist correlates test functions to color.
The format of the members of this alist is

  (TEST-SEXP . FACE)

If TEST-SEXP evals to non-nil, that face will be used to highlight the
name of the file.  The first match wins.  `file' and `attrs' are in
scope during the evaluation of TEST-SEXP.
(custom-declare-variable 'eshell-ls-highlight-alist nil '(#$ . 9095) :type '(repeat (cons function face)) :group 'eshell-ls)
#@514 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 uses `eshell/ls'.  If any of the switches
passed are not recognized, the operating system's version will be used
instead.
(defalias 'eshell-ls-insert-directory #[(file switches &optional wildcard full-directory-p) "\306\307\"\211\203	\307\n\f%\202X\n;\203\310\n!\311\211\211\203C\312\313!\203C\305\314!\210\311\315\316!\203C\317p\316J\"\320\211\321\311\322\323\nC\"!.)\207" [file handler switches wildcard full-directory-p font-lock-mode find-file-name-handler insert-directory split-string nil featurep font-lock -1 boundp font-lock-buffers delq insert ignore eshell-do-ls append eshell-current-subjob-p eshell-current-handles eshell-ls-use-colors font-lock-defaults eshell-ls-dired-initial-args flush-func error-func insert-func] 7 (#$ . 9521)])
#@37 An alias version of `eshell-do-ls'.
(defalias 'eshell/ls #[(&rest args) "\304\305\306\307\310\"+\207" [flush-func error-func insert-func args eshell-buffered-print eshell-error eshell-flush apply eshell-do-ls] 3 (#$ . 10700)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put eshell/ls byte-optimizer byte-compile-inline-expand eshell-no-numeric-conversions t] 4)
#@47 Implementation of "ls" in Lisp, passing ARGS.
(defalias 'eshell-do-ls #[(&rest args) "\306!\210\307	\203	\nD\202\n!\310\311\n\")\312\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\313\314\315\316#.\207" [flush-func eshell-ls-initial-args args temp-args ext-command last-value -1 eshell-flatten-list mapcar eshell-stringify nil eshell-do-opt "ls" ((97 "all" nil show-all "show all files in directory") (99 nil by-ctime sort-method "sort by last status change time") (100 "directory" nil dir-literal "list directory entries instead of contents") (107 "kilobytes" 1024 block-size "using 1024 as the block size") (104 "human-readable" 1024 human-readable "print sizes in human readable format") (72 "si" 1000 human-readable "likewise, but use powers of 1000 not 1024") (73 "ignore" t ignore-pattern "do not list implied entries matching pattern") (108 nil long-listing listing-style "use a long listing format") (110 "numeric-uid-gid" nil numeric-uid-gid "list numeric UIDs and GIDs instead of names") (114 "reverse" nil reverse-list "reverse order while sorting") (115 "size" nil show-size "print size of each file, in blocks") (116 nil by-mtime sort-method "sort by modification time") (117 nil by-atime sort-method "sort by last access time") (120 nil by-lines listing-style "list entries by lines instead of by columns") (67 nil by-columns listing-style "list entries by columns") (76 "dereference" nil dereference-links "list entries pointed to by symbolic links") (82 "recursive" nil show-recursive "list subdirectories recursively") (83 nil by-size sort-method "sort by file size") (85 nil unsorted sort-method "do not sort; list entries in directory order") (88 nil by-extension sort-method "sort alphabetically by entry extension") (49 nil single-column listing-style "list one file per line") (nil "dired" nil dired-flag "Here for compatibility with GNU ls.") (nil "help" nil nil "show this usage display") :external "ls" :usage "[OPTION]... [FILE]...\nList information about the FILEs (the current directory by default).\nSort entries alphabetically across.") #[nil "\204	\n\204\f\306\204\307C\f\310\203K\311\211>)\204+\312\313!\210\314\315G\310$\210\f\203F\316\f\317\320!\321\260\202J\320!\322\323\324\"\325\326!#\210* \207" [block-size eshell-ls-default-blocksize listing-style args eshell-ls-exclude-regexp ange-cache by-columns "." nil eshell-glob error "-I option requires that `eshell-glob' be a member of `eshell-modules-list'" set-text-properties 0 "\\(" "\\|" eshell-glob-regexp "\\)" eshell-ls-entries mapcar #[(arg) "\303>\203\304	!\203\305	!\202	\306	\n\203\307\202\310\"B\207" [system-type arg numeric-uid-gid (ms-dos windows-nt) file-name-absolute-p expand-file-name eshell-file-attributes integer string] 4] t expand-file-name ignore-pattern module eshell-modules-list default-directory flush-func] 6] usage-msg dired-flag listing-style sort-method show-recursive dereference-links show-size reverse-list numeric-uid-gid ignore-pattern human-readable block-size dir-literal show-all] 26 (#$ . 11086)])
#@30 Return a printable FILESIZE.
(defalias 'eshell-ls-printable-size #[(filesize &optional by-blocksize) "\305	\n\205\f$\207" [filesize human-readable by-blocksize block-size eshell-ls-use-colors eshell-printable-size] 5 (#$ . 14274)])
(put 'eshell-ls-printable-size 'byte-optimizer 'byte-compile-inline-expand)
#@60 Return the size string for ATTRS length, using SIZE-WIDTH.
(defalias 'eshell-ls-size-string #[(attrs size-width) "\3068\307\310\n	\205\f
$*\211G\211\f
W\203,\311
\fZ\312\"P\202.*\207" [attrs by-blocksize filesize human-readable block-size eshell-ls-use-colors 7 t eshell-printable-size make-string 32 str len size-width] 6 (#$ . 14592)])
(put 'eshell-ls-size-string 'byte-optimizer 'byte-compile-inline-expand)
#@202 Given a FILEINFO object, return a resolved, decorated FILEINFO.
This means resolving any symbolic links, determining what face the
name should be displayed as, etc.  Think of it as cooking a FILEINFO.
(defalias 'eshell-ls-annotate #[(fileinfo) "\211A@);\203\n\204\306=\204\307!\240\210\202\226\310\211\311\211A@)!\2045\312\313\314@!!!\315
\203F\314\211A@)
\"\202L\211A@)\n\203Y\312!\202[)!\n\204j\316\317@\"\203w\f\241\210\307!\240\210\202\225\306=\204\203\320\321\322C\"\210\307!\323\307\211A@)\fB!Q\240\210*\207" [fileinfo x dereference-links listing-style attr dir long-listing eshell-ls-decorated-name nil file-name-absolute-p file-truename file-name-directory expand-file-name eshell-file-attributes string-match "^\\.\\.?$" signal cl-assertion-failed (eq listing-style 'long-listing) " -> " target] 7 (#$ . 15028)])
#@138 Output FILE in long format.
FILE may be a string, or a cons cell whose car is the filename and
whose cdr is the list of file attributes.
(defalias 'eshell-ls-file #[(fileinfo &optional size-width copy-fileinfo) "A\204
	\306\307@\"!\207\310\n\203@AB\202!\211@A
\311=\204{%\203s&''\3128\313()\314)*(\205J+,$*\211-G\211.'W\203i\315'.Z\316\"-P\202k-,\317\f\320$\202\331
&\f\320\"\202\331
%\205\276''\3128\313()\314)*(\205\232+,$*\211-G\211.'W\203\271\315'.Z\316\"-P\202\273-,\317P\306/\203\310\321\202\311\322\3238\206\320\324A@\206\327\325\3268\2110;\205

0\3271\2112\205
2G1V\203\3762\3251O\202
2*)\206\f
\3268\206\f
\330\3318\2113;\2056
3\3231\2112\2055
2G1V\2033
2\3251O\2025
2*)\206A
\3318\206A
\330%\3128\332()\314)*(\205V
+,$*\211-G\211.'\206g
\323W\203}
\315'\206r
\323.Z\316\"-P\202
-*\317\3334\317\334\335\336 !8\334\3355\337=\203\230
\340\202\244
5\341=\203\243
\342\202\244
\3348!8U\203\260
\343\202\261
\344Q5\337=\203\275
\340\202\311
5\341=\203\310
\342\202\311
\3348\"\317\2606&6\f\320#)*\207" [fileinfo error-func copy-fileinfo attrs file listing-style format "%s: No such file or directory\n" eshell-ls-annotate long-listing 7 t eshell-printable-size make-string 32 " " "\n" "%s%4d %-8s %-8s " "%s%4d %-14s %-8s " 8 "??????????" 0 2 14 "" 3 nil format-time-string 5 decode-time current-time by-atime 4 by-ctime 6 "%H:%M" " %Y" show-size insert-func size-width by-blocksize filesize human-readable block-size eshell-ls-use-colors str len numeric-uid-gid user sublen string group eshell-ls-date-format sort-method line] 13 (#$ . 15905)])
#@198 Output the entries in DIRINFO.
If INSERT-NAME is non-nil, the name of DIRINFO will be output.  If
ROOT-DIR is also non-nil, and a directory name, DIRINFO will be output
relative to that directory.
(defalias 'eshell-ls-dir #[(dirinfo &optional insert-name root-dir size-width) "@A\204\n\306\307	\"!\202\242
\203\310\f\"\202\242

\203<!\311\"\2030\312	\"\"\2023\313	!\260
AB!\314\"\210\315	\316#?\205K$\205K\317\320%\203U\321\202V\322%&#\204\262'\203\262&\203\200\323'&\211(@@)\"\203\200&A\211&\204h&))A\203\261\323')\211(A@)@\"\203\250)\211(\211AA)\241\210\202\204)A\211)\202\206)*\324=\204\276+\203/
\325,\326&\316)\211-\203
-@)\327)A8\203
,\327)A8\\,\f\327)A8*\324=?./\330/0.\205
12$*G]-A\211-\204\316*!\331,\320./\330/0.\205'
12$*\332#\210)\313	!34\203\232
\333&\320C5\211)\203\217
)\211(@@)G6)\211(@@)\326H\334=\205z
6\335U\206z
6\336U\205z
)\211(@@)\335H\334=)\204\206
5)@C\244\210)A\211)\204F
5A*\316\"#\202\241
\337\340&!\f\"*)\207" [dirinfo dir error-func dir-literal size-width insert-name format "%s: No such file or directory\n" eshell-ls-file eshell-ls-decorated-name file-relative-name expand-file-name ":\n" eshell-directory-files-and-attributes nil "\\`[^.]" t integer string string-match long-listing 0.0 0 7 eshell-printable-size "total " "\n" eshell-ls-entries 46 1 2 eshell-ls-files eshell-ls-sort-entries insert-func root-dir show-all eshell-ls-exclude-hidden numeric-uid-gid entries eshell-ls-exclude-regexp x e listing-style show-size total --dolist-tail-- by-blocksize filesize human-readable block-size eshell-ls-use-colors default-directory show-recursive good-entries len] 8 (#$ . 17586)])
#@71 Compare the time of two files, L and R, the attribute indexed by INX.
(defalias 'eshell-ls-compare-entries #[(l r inx func) "	A8\nA8\211\232\203\306	@!\306\n@!\231\202 
\f\"*\207" [inx l r rt lt func directory-file-name] 4 (#$ . 19318)])
(put 'eshell-ls-compare-entries 'byte-optimizer 'byte-compile-inline-expand)
#@128 Sort the given ENTRIES, which may be files, directories or both.
In Eshell's implementation of ls, ENTRIES is always reversed.
(defalias 'eshell-ls-sort-entries #[(entries) "\302=\203		\237\207\303	\304\"\207" [sort-method entries unsorted sort #[(l r) "\306=\2035	\n\307\310\f	A8\f\nA8\211
\232\203+\311	@!\311\n@!\231\2020
\".\202+
\312=\203j	\n\313\310\f	A8\f\nA8\211
\232\203`\311	@!\311\n@!\231\202e
\".\202+
\314=\203\237	\n\315\310\f	A8\f\nA8\211
\232\203\225\311	@!\311\n@!\231\202\232
\".\202+
\316=\203\324	\n\317\320\f	A8\f\nA8\211
\232\203\312\311	@!\311\n@!\231\202\317
\".\202+
\321=\203\"
\322\311	@!!\322\311\n@!!\211\204\363\203\373\232\203
\311	@!\311\n@!\231\202
\204
\323\202
\204
\324\202
\231*\202+
\311	@!\311\n@!\231\2038
?\202:
)\207" [sort-method l r func inx rt by-atime 4 time-less-p directory-file-name by-mtime 5 by-ctime 6 by-size 7 < by-extension file-name-extension t nil lt rx lx result reverse-list] 5]] 3 (#$ . 19649)])
#@109 Output a list of FILES.
Each member of FILES is either a string or a cons cell of the form
(FILE .  ATTRS).
(defalias 'eshell-ls-files #[(files &optional size-width copy-fileinfo) "\203\306=\204	\307=\203	\310>\2036\n\311\211\2054\f@\211\203,\312
 #\210\fA\211\204\311*\207\n\311\211\211!\"#$$\203\257$\211%@A)\203_$#$A\211$\202D!\204s&\313\314$\211%@@)\"!\210$\n=\203\204\nA\211\211$\202D$A\204\226#\311\241\210\311\211$\202D$\211%\211A@)\240\210$\211%\211AA)\241\210\202B'\204\275\315\316\n\"\"\202
\n\311\211\203
\f@\317A8\320()\321)*(\205\335+,$*\211-G\211.
W\203\371\322
.Z\323\"-P-\316!-\324@QAB\"B\"*\fA\211\204\305*\"\237\"	\325=\203&
\326\"!\2026
	\307=\2042
\327\330\331C\"\210\332\"!\211/@0/A\"0G1\3332\3113\"\311\211\203\273
\f@\211@\203{
'\203u
@\334
O\335@
\311OAB!P\202|
\335!\202|
\336421W\203\244
34\322\33402SH4GZ]\323\"Q32T2\202\263
534\337#\210\3332\3113)\fA\211\204U
*3\205\307
53\337\".\n\207" [eshell-in-pipeline-p listing-style files file --dolist-tail-- size-width last by-lines (long-listing single-column) nil eshell-ls-file format "%s: No such file or directory\n" mapcar eshell-ls-annotate 7 t eshell-printable-size make-string 32 " " by-columns eshell-ls-find-column-lengths signal cl-assertion-failed (eq listing-style 'by-lines) eshell-ls-find-column-widths 1 0 eshell-ls-decorated-name "" "\n" copy-fileinfo ignore display-files last-f f x error-func show-size by-blocksize filesize human-readable block-size eshell-ls-use-colors str len col-vals col-widths columns col-index need-return name insert-func] 7 (#$ . 20709)])
#@496 Output PATH's directory ENTRIES.
Each member of ENTRIES may either be a string or a cons cell, the car
of which is the file name, and the cdr of which is the list of
attributes.
If SEPARATE is non-nil, directories name will be entirely separated
from the filenames.  This is the normal behavior, except when doing a
recursive listing.
ROOT-DIR, if non-nil, specifies the root directory of the listing, to
which non-absolute directory names will be made relative if ever they
need to be printed.
(defalias 'eshell-ls-entries #[(entries &optional separate root-dir) "\306\211\211\211\307
\306\211\203\304@\204\223A\310\3118\2056\3118\307H=*\204^A\312\3118\205R\3118\307H=*\203\223\313@!\203\223\204\213B\205\212\314A8\315\316\205\204 $*G]\fB\202\273B\205\272\314A8\315\316\205\264 $*G]A\211\204*\203\324\317\320!!#\210\315!\206\340G\fG\\\321V\320\f!\306\"\211\205
@\"	\203
\204
#\322!\210\323\"\n\324\"@!?\205
$$\210\315A\211\204\355\306.\207" [size-width need-return show-names files dirs entries nil 0 100 8 108 file-directory-p 7 t eshell-printable-size eshell-ls-files eshell-ls-sort-entries 1 "\n" eshell-ls-dir file-name-absolute-p entry --dolist-tail-- dir-literal type attrs separate show-size by-blocksize filesize human-readable block-size eshell-ls-use-colors show-recursive dir insert-func root-dir] 7 (#$ . 22398)])
#@201 Find the best fitting column widths for FILES.
It will be returned as a vector, whose length is the number of columns
to use, and each member of which is the width of that column
(including spacing).
(defalias 'eshell-ls-find-column-widths #[(files) "\306\211\307\310\n\"\311 \312\\\306\313\211\2032	\fW\2032	@\\TA\211\204)\306V\203\247\306\314\306\"\203pU\203T\306H@]I\210AT\202E\306\211W\203\215	H\\T\211\202w	\fW\203\237	
V\203\237	+S\211\2024\206\257\315\f!\n.B\207" [numcols width files widths max-width best-width 0 mapcar #[(file) "\301@G\\\207" [file 2] 2] window-width 2 nil make-vector vector col-widths w colw i] 5 (#$ . 23877)])
#@202 Find the best fitting column lengths for FILES.
It will be returned as a vector, whose length is the number of columns
to use, and each member of which is the width of that column
(including spacing).
(defalias 'eshell-ls-find-column-lengths #[(files) "\306\307\310\311\n\"\312 \313\\\314\211\203\314\315G\316!\245!_\307\211\307\307U\204\246G\316!\245\316S!X\204\246\317\307\"\307V\203\214U\203d\307TH_\\8\206|\307]I\210ST\202N\307\211W\203\246	H\\T\211\202\220	\fY\203\261\314\202\310\203\271GY\203\305\314\202\310T-\202
\204\330\320\f!\nB\2025

G\315G\316!\245!\211_\321\314\"\307\211\307W\203/
U\203
\307T\233_\\\n8\240\210TT\202\372
.B.\207" [numcols width files widths max-width col-widths 1 0 mapcar #[(file) "\301@G\\\207" [file 2] 2] window-width 2 nil ceiling float make-vector vector make-list colw rows w len index i newfiles j] 6 (#$ . 24618)])
#@34 Return FILE, possibly decorated.
(defalias 'eshell-ls-decorated-name #[(file) "\203\320
	A\204
\306\202\274
	\211A@);\203\307\202\274
	\211A@)\310=\203*\311\202\274
	A\312\313\f8\205<\313\f8\314H=*\204D\315\202\274
\316 \314U\204\241\317	A8\313	A8\211'\247\203c'\316 U\202v';\203\202'\320 \230\204y'\321 \235\203\202
\322H\312=?\202\231
\323H
\324H=\203\225
\323H\312=?\202\231\325	@!*\203\241\326\202\274
\317	A8\313	A8\211'\247\203\271'\316 U\202\314';\203\330'\320 \230\204\317'\321 \235\203\330
\327H\312=?\202\357
\330H
\331H=\203\353
\330H\312=?\202\357\332	@!*\204\367\333\202\274
\334(	@\"\203
\335\202\274
\334)	@\"\203
\336\202\274
\334*	@\"\203
\337\202\274
\334+	@\"\203+
\340\202\274
\317	A8\313	A8\211'\247\203C
'\316 U\202V
';\203b
'\320 \230\204Y
'\321 \235\203b

\317H\312=?\202y

\341H
\313H=\203u

\341H\312=?\202y
\342	@!*\204\201
\343\202\274
,\205\274
,\344-\211.\203\271
.\211@@)	@	A\"\203\260
.\211@A)-\344\211.\202\216
.A\211.\204\221
-*\211&\203\317
\345\314	@G\346&D	@$\210)	@\207" [eshell-ls-use-colors file x type attrs modes eshell-ls-missing eshell-ls-symlink t eshell-ls-directory 45 8 0 eshell-ls-special user-uid 2 user-login-name eshell-current-ange-uids 3 6 9 file-executable-p eshell-ls-executable 1 4 7 file-readable-p eshell-ls-unreadable string-match eshell-ls-archive eshell-ls-backup eshell-ls-product eshell-ls-clutter 5 file-writable-p eshell-ls-readonly nil add-text-properties face owner eshell-ls-archive-regexp eshell-ls-backup-regexp eshell-ls-product-regexp eshell-ls-clutter-regexp eshell-ls-highlight-alist value tests] 6 (#$ . 25646)])
(provide 'em-ls)