Current File : //usr/local/share/emacs/27.2/lisp/eshell/em-ls.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\313\314\315&\210\316\317\320\321\322DD\323\324\325\326\327&\210\316\330\320\321\331DD\332\326\333%\210\316\334\320\321\335DD\336\326\337%\210\316\340\320\321\341DD\342\343\344\326\345\346\347& \210\350\351\352\"\210\316\353\320\321\354DD\355\326\356%\210\316\357\320\321\360DD\361\326\362%\210\316\363\320\321\364DD\365\326\345%\210\316\366\320\321\367DD\370\326\345%\210\371\372\373\374#\210\371\375\376\377#\210\371\201@ \201A \201B #\210\371\201C \201D \201E #\210\371\201F \201G \201H #\210\371\201I \201J \201K #\210\371\201L \201M \201N #\210\316\201O \320\321\201P DD\201Q \324\325\326\201R &\210\371\201S \201T \201U #\210\316\201V \320\321\201W DD\201X \326\201R %\210\371\201Y \201Z \201[ #\210\316\201\\ \320\321\201] DD\201^ \326\201R %\210\371\201_ \201` \201a #\210\316\201b \320\321\201c DD\201d \326\201R %\210\371\201e \201f \201g #\207" [require cl-lib esh-util esh-opt esh-proc esh-cmd 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 custom-declare-variable eshell-ls-date-format funcall function #[0 "\300\207" [#1="%Y-%m-%d"] 1 #1#] "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" :type string eshell-ls-initial-args #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "If non-nil, use `eshell-ls' to read directories in Dired.\nChanging this without using customize has no effect." :set #[514 "\211\203 \300\301!\210\302\303\304\305#\210\302\301\304\306#\210\202! \307\303\305\"\210\307\301\306\"\210L\207" [require dired advice-add insert-directory :around eshell-ls--insert-directory eshell-ls--dired advice-remove] 6 "\n\n(fn SYMBOL VALUE)"] boolean :require em-ls add-hook eshell-ls-unload-hook eshell-ls-unload-function eshell-ls-default-blocksize #[0 "\300\207" [1024] 1] "The default blocksize to use when display file sizes with -s." integer eshell-ls-exclude-regexp #[0 "\300\207" [nil] 1] "Unless -a is specified, files matching this regexp will not be shown." (choice regexp (const nil)) eshell-ls-exclude-hidden #[0 "\300\207" [t] 1] "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 #[0 "\300\207" [t] 1] "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 highlighting directories." eshell-ls-symlink ((((class color) (background light)) (:foreground "Dark Cyan" :weight bold)) (((class color) (background dark)) (:foreground "Cyan" :weight bold))) "The face used for highlighting symbolic links." 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-readonly ((((class color) (background light)) (:foreground "Brown")) (((class color) (background dark)) (:foreground "Pink"))) "The face used for highlighting read-only files." eshell-ls-unreadable ((((class color) (background light)) (:foreground "Grey30")) (((class color) (background dark)) (:foreground "DarkGrey"))) "The face used for highlighting unreadable files." 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-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-archive-regexp #[0 "\300\207" ["\\.\\(t\\(a[rz]\\|gz\\)\\|arj\\|lzh\\|zip\\|[zZ]\\|gz\\|bz2\\|xz\\|deb\\|rpm\\)\\'"] 1] "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-backup-regexp #[0 "\300\207" [#2="\\(\\`\\.?#\\|\\(\\.bak\\|~\\)\\'\\)"] 1 #2#] "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-product-regexp #[0 "\300\207" [#3="\\.\\(elc\\|o\\(bj\\)?\\|a\\|lib\\|res\\)\\'"] 1 #3#] "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-clutter-regexp #[0 "\300\207" [#4="\\(^texput\\.log\\|^core\\)\\'"] 1 #4#] "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."] 10)
#@68 Test whether ATTRS specifies a file of type TYPE.
(fn ATTRS TYPE)
(defalias 'eshell-ls-filetype-p #[514 "\3008\262\205 \3008\262\301H=\207" [8 0] 5 (#$ . 6970)])
(put 'eshell-ls-filetype-p 'byte-optimizer 'byte-compile-inline-expand)
#@321 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.
(fn ATTRS INDEX FUNC FILE)
(defalias 'eshell-ls-applicable '(macro . #[1028 "\300\301\302DD\303\304DDD\305\306\307\310\311\303\nE\312BBDD\310\311\303\313\n\314BBE\311\303\313 \315BBEE\307\310\311\303\313\f\316BBE\317BBDD\320\321!DDFE\207" [let owner file-attribute-user-id modes file-attribute-modes 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] 16 (#$ . 7220)]))
(byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable eshell-ls-highlight-alist funcall function #[0 "\300\207" [nil] 1] "This alist correlates test functions to color.\nThe format of the members of this alist is\n\n (TEST-SEXP . FACE)\n\nIf TEST-SEXP evals to non-nil, that face will be used to highlight the\nname of the file. The first match wins. `file' and `attrs' are in\nscope during the evaluation of TEST-SEXP." :type (repeat (cons function face))] 6)
#@579 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.
(fn ORIG-FUN FILE SWITCHES &optional WILDCARD FULL-DIRECTORY-P)
(defalias 'eshell-ls--insert-directory #[1283 "\204 $\207\306\307\"\211\203! \211\307%\202\232 ;\203+ \310!\262\311\211\211\f\203N \312\313!\203N \301\314!\210\311\315\316!\203N \317p\316J\"\320\321!\210\322\211 \323 \324 !:\204{ \325\326\"\203{ \327!\204{ \330\331\332!\"\202~ \331!\333\"#:\204\213 \205\215 \334C#\335C\244!,\266\202+\207" [eshell-ls-use-in-dired font-lock-mode eshell-current-subjob-p eshell-current-handles eshell-ls-use-colors font-lock-defaults find-file-name-handler insert-directory split-string nil featurep font-lock -1 boundp font-lock-buffers delq require em-glob insert ignore t string-match "[[?*]" file-exists-p mapcar file-relative-name eshell-extended-glob append "-d" eshell-do-ls insert-func error-func flush-func eshell-error-if-no-glob eshell-ls-dired-initial-args dired-directory] 13 (#$ . 8537)])
#@48
(fn ORIG-FUN DIR-OR-LIST &optional SWITCHES)
(defalias 'eshell-ls--dired #[770 "\302\303!\210:\203 \"\207\304\305!!\211\204 \"\202^ \211@\306A!@\203X \307\310C\244\205; C#r\211q\210\212eb\210\311 \210\312y\210\313A\314\261+\266\202\202[ \315\316!)\266\202\207" [default-directory inhibit-read-only require em-glob insert-directory-wildcard-in-dir-p expand-file-name eshell-extended-glob t apply dired-goto-next-file 0 " wildcard " "\n" user-error "No files matching regexp"] 11 (#$ . 10000) (dired-read-dir-and-switches "")])
#@54 An alias version of `eshell-do-ls'.
(fn &rest ARGS)
(defalias 'eshell/ls #[128 "\303\304\305\306\307\"+\207" [flush-func error-func insert-func eshell-buffered-print eshell-error eshell-flush apply eshell-do-ls] 4 (#$ . 10561)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\305#\207" [put eshell/ls byte-optimizer byte-compile-inline-expand eshell-no-numeric-conversions t eshell-filename-arguments] 4)
#@64 Implementation of "ls" in Lisp, passing ARGS.
(fn &rest ARGS)
(defalias 'eshell-do-ls #[128 "\306!\210\307 \203 D\202 !\310\311\"\262\312\313\314#\211A\262\242\211A\262\242\211A\262\242 \211A\262\242 \211A\262\242 \211A\262\242 \211A\262\242 \211A\262\242 \211A\262\242 !\211A\262\242 \"\211A\262\242 #\211A\262\242 $\211A\262\242 %\211A\262\242 &\211 \204\222 ' \204\232 \315 \211\204\242 \316C\262(\317 ) ( \203\337 \320\211*>\262\204\274 \321\322!\210\323\324 G\317 $\210(\203\331 \325(\326\327 !\330\260\202\335 \327 !(\331\310\332\"\333\334+!#\210* .\207" [flush-func eshell-ls-initial-args show-all show-almost-all sort-method dir-literal -1 flatten-tree mapcar eshell-stringify eshell--do-opts "ls" ((97 "all" nil show-all "do not ignore entries starting with .") (65 "almost-all" nil show-almost-all "do not list implied . and ..") (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.") 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 #[257 "\302>\203 \303!\203 \304!\202 \211\305 \203 \306\202 \307\"B\207" [system-type numeric-uid-gid (ms-dos windows-nt) file-name-absolute-p expand-file-name eshell-file-attributes integer string] 5 "\n\n(fn ARG)"] t expand-file-name block-size human-readable ignore-pattern listing-style numeric-uid-gid reverse-list show-size dereference-links show-recursive dired-flag eshell-ls-default-blocksize eshell-ls-exclude-regexp ange-cache eshell-modules-list default-directory] 9 (#$ . 10997)])
#@68 Return a printable FILESIZE.
(fn FILESIZE &optional BY-BLOCKSIZE)
(defalias 'eshell-ls-printable-size #[513 "\303\205 \n$\207" [human-readable block-size eshell-ls-use-colors eshell-printable-size] 7 (#$ . 14270)])
(put 'eshell-ls-printable-size 'byte-optimizer 'byte-compile-inline-expand)
#@83 Return the size string for ATTRS length, using SIZE-WIDTH.
(fn ATTRS SIZE-WIDTH)
(defalias 'eshell-ls-size-string #[514 "\3038\262\304\305\205 \n$\266\202\211G\211W\203& \306Z\307\"P\202' \207" [human-readable block-size eshell-ls-use-colors 7 t eshell-printable-size make-string 32] 9 (#$ . 14573)])
(put 'eshell-ls-size-string 'byte-optimizer 'byte-compile-inline-expand)
#@217 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.
(fn FILEINFO)
(defalias 'eshell-ls-annotate #[257 "\211A@;\203 \204 \302=\204 \211\303!\240\210\202\204 \304\211\305A@!\204. \306\307\310@!!!\262\311\203< \310A@\"\202? A@\203I \306!\202J \211\262!\262\204[ \312\313@\"\203h \241\210\303!\240\210\202\202 \302=\204r \314\315!\210\303!\316\303A@B!Q\240\210\266\207" [dereference-links listing-style long-listing eshell-ls-decorated-name nil file-name-absolute-p file-truename file-name-directory expand-file-name eshell-file-attributes string-match "^\\.\\.?$" cl--assertion-failed (eq listing-style 'long-listing) " -> "] 9 (#$ . 14968)])
#@188 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.
(fn FILEINFO &optional SIZE-WIDTH COPY-FILEINFO)
(defalias 'eshell-ls-file #[769 "A\204
\306\307@\"!\207\310\203 @AB\202 !\262@A \311=\204g \n\203` \3128\262\313\314\f\205>
%$\266\202\211G\211W\203V \315Z\316\"P\202W \266\204\317\320$\202\236 \320\"\202\236\n\205\231 \211\3128\262\313\314\f\205|
%$\266\202\211G\211W\203\224 \315Z\316\"P\202\225 \266\204\317P\306&\203\243 \321\202\244 \322\3238\262\206\256 \324\211A@\262\206\270 \325\3268\262\211;\205\333 \211\327\205\331 GV\203\330 \330\325#\202\331 \266\202\262\206\352 \3268\262\206\352 \331\3328\262\211;\205\211\323\205\fGV\203 \330\325#\202\f\266\202\262\206 \3328\262\206 \331%\3128\262\333\314\f\205.
%$\266\202\211G\211\206<\323W\203P\315\206G\323Z\316\"P\202Q\266\202\317\334'\317\335\336 8\336(\337\267\202l\340\202m\341\202m\335\n8!\3358\262U\203~\342\202\343Q(\344\267\202\217\340\202\220\341\202\220\3358\"\317\260 \320#\262\207" [error-func listing-style show-size insert-func human-readable block-size 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 substring "" 3 nil format-time-string 5 decode-time #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (by-atime 356 by-ctime 360)) 4 6 "%H:%M" " %Y" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (by-atime 391 by-ctime 395)) eshell-ls-use-colors numeric-uid-gid eshell-ls-date-format sort-method] 18 (#$ . 15795)])
#@254 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.
(fn DIRINFO &optional INSERT-NAME ROOT-DIR SIZE-WIDTH)
(defalias 'eshell-ls-dir #[1025 "@A\204 \306\307\"!\202m \203 \310\"\202m\203: \n\311\203- \312\"\2020 \313!\260AB!\314\"\210\315\316 \206B \f?\205K
\205K \317\320#\203U \321\202V \322%\f\203e \204e \323\324\"\262 \204\251 \f\204\251 $\203\251 \211\203\207 \325$@@\"\203\207 \211A\262\202r \211\211A\203\250 \325$A@@\"\203\241 \211AA\241\210\202\210 \211A\262\202\210 \210%\326=\204\265 &\203\327\330\262\211\203\374 \211@\211A\3318\262\203\365 A\3318\262\\\262A\3318\262%\326=?\332'\205\354 ()$\266\202G]\262A\266\202\202\272 \210\n\333\320\332'\205 ()$\266\202\334#\266\313! *+\203d\335\320C\203Y@@G@@\330H\336=\205G\211\337U\206G\211\340U\205G@@\337H\336=\262\204R\211@C\244\210A\262\202\"\211A\266\202\316#\202j\341\342!\")\262\207" [error-func dir-literal insert-func show-all show-almost-all eshell-ls-exclude-hidden 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 cl-remove-if #[257 "\211@\300\235\207" [("." "..")] 3 "\n\n(fn ENTRY)"] 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 numeric-uid-gid eshell-ls-exclude-regexp listing-style show-size human-readable block-size eshell-ls-use-colors default-directory show-recursive] 17 (#$ . 17609)])
#@90 Compare the time of two files, L and R, the attribute indexed by INX.
(fn L R INX FUNC)
(defalias 'eshell-ls-compare-entries #[1028 "A8A8\232\203 \300@!\300@!\231\202 \"\207" [directory-file-name] 9 (#$ . 19343)])
(put 'eshell-ls-compare-entries 'byte-optimizer 'byte-compile-inline-expand)
#@142 Sort the given ENTRIES, which may be files, directories or both.
In Eshell's implementation of ls, ENTRIES is always reversed.
(fn ENTRIES)
(defalias 'eshell-ls-sort-entries #[257 "\301=\203 \211\237\207\302\303\"\207" [sort-method unsorted sort #[514 "\302\267\202\350 \303\304A8A8\232\203& \305@!\305@!\231\202* \"\266\206\202\361 \306\304A8A8\232\203O \305@!\305@!\231\202S \"\266\206\202\361 \307\304A8A8\232\203x \305@!\305@!\231\202| \"\266\206\202\361 \310\311A8A8\232\203\241 \305@!\305@!\231\202\245 \"\266\206\202\361 \312\305@!!\312\305@!!\204\276 \211\203\304 \232\203\320 \305@!\305@!\231\202\343 \204\330 \313\202\343 \211\204\340 \314\202\343 \231\266\202\202\361 \305@!\305@!\231 \203\372 \211?\202\373 \211\207" [sort-method reverse-list #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (by-atime 6 by-mtime 47 by-ctime 88 by-size 129 by-extension 170)) 4 time-less-p directory-file-name 5 6 7 < file-name-extension t nil] 11 "\n\n(fn L R)"]] 4 (#$ . 19657)])
#@156 Output a list of FILES.
Each member of FILES is either a string or a cons cell of the form
(FILE . ATTRS).
(fn FILES &optional SIZE-WIDTH COPY-FILEINFO)
(defalias 'eshell-ls-files #[769 "\203 \306=\204 \307=\203 \310>\203/ \211\205. \211@\211\203' \311#\210A\266\202\202 \207\312\211\211\203\206 @A\203G \262A\262\2023 \211\204U \n\313\314@@\"!\210=\203h A\262\262\2023 A\204w \312\241\210\312\262\2023 \211A@\240\210\211AA\241\210\2023 \204\224 \315\316\"\262\202\345 \211\203\340 \211@\211A\3178\262\320\321\f\205\254
$\266\202\211G\211\nW\203\305 \322\nZ\323\"P\262\316!\262\324@QABB\262\266A\266\202\202\226 \210\237\262 \325=\203\361 \326!\202\376 \307=\204\373 \327\330!\210\331!\211@AG\332\312\211\203i\211@\211@\2032 \203,\333@\334#\335\333@\"AB!P\2023\335!\2023\336W\203T\322\334 SHGZ]\323\"Q\262T\262\202a!\337#\210\332\262\312\262\210A\266\202\202\210\211\205s!\337\"\266\206\207" [eshell-in-pipeline-p listing-style error-func show-size human-readable block-size last by-lines (long-listing single-column) eshell-ls-file nil 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 cl--assertion-failed (eq listing-style 'by-lines) eshell-ls-find-column-widths 1 substring 0 eshell-ls-decorated-name "" "\n" eshell-ls-use-colors insert-func] 22 (#$ . 20754)])
#@538 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.
(fn ENTRIES &optional SEPARATE ROOT-DIR)
(defalias 'eshell-ls-entries #[769 "\306\211\211\211\307\211\203\251 \211@\204 \211A\310\3118\262\205' \3118\262\307H=\266\202\204N \211A\312\3118\262\205B \3118\262\307H=\266\202\203 \313@!\203 \204v \211B\262 \205t A\3148\262\315\316\n\205n \f$\266\202G]\262\211B\262\202\242 \211B\262 \205\240 A\3148\262\315\316\n\205\232 \f$\266\202G]\262A\266\202\202 \210\203\271 \317\320!
#\210\315\262
\206\304 GG\\\321V\262\320!\211\205\370 \211@\203\334 \204\334 \322!\210\323\324@!?\205\352 \n$\210\315\262A\266\202\202\311 \262\207" [dir-literal show-size human-readable block-size eshell-ls-use-colors show-recursive 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 insert-func] 18 (#$ . 22241)])
#@213 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).
(fn FILES)
(defalias 'eshell-ls-find-column-widths #[257 "\300\211\301\302\"\303 \304\\\300\305\211\203) W\203) @\\\262T\262\211A\262\202
\210\300V\203\225 \300\306\300\"\211\203Z U\203E \300\262H@]I\210\211A\262T\262\2027 \300\262\300\262 W\203v H\\\262T\262\202` W\203\214 V\203\214 \262\262\266S\262\202* \211\206\234 \307!B\207" [0 mapcar #[257 "\300@G\\\207" [2] 3 "\n\n(fn FILE)"] window-width 2 nil make-vector vector] 14 (#$ . 23642)])
#@214 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).
(fn FILES)
(defalias 'eshell-ls-find-column-lengths #[257 "\300\301\302\303\"\304 \305\\\306\211\203\276 \307G\310!\245!_\301\211\211\262\n\301U\204\220 G\310!\245\310\fS!X\204\220 \311 \301\"\262\301V\203v \211 U\203U \301\262T\262H_\\8\206h \301]I\210S\262\211T\262\202A \301\262\211 W\203\220 H\\\262\n\211T\262\202y Y\203\236 \306\262 \202\271 \203\245 \262\n GY\203\264 \306\262 \202\271 \nT\262 \266\202\f \204\313 \312!B\202G\262\307G\310!\245!\211_\313\306\"\301\211\211\211W\203\fU\203\367 \301\262T\262\211\233_\\8\240\210\211T\262T\262\202\343 B\266\206\207" [1 0 mapcar #[257 "\300@G\\\207" [2] 3 "\n\n(fn FILE)"] window-width 2 nil ceiling float make-vector vector make-list] 17 (#$ . 24352)])
#@45 Return FILE, possibly decorated.
(fn FILE)
(defalias 'eshell-ls-decorated-name #[257 "\203\266\211A\204
\306\202\245\211A@;\203 \307\202\245\211A@\310=\203$ \311\202\245\211A\312\3138\262\205: \3138\262\314H=\266\202\204C \315\202\245\316 \314U\204\240 \211A\3178\262A\3138\262\247\203d \316 U\202t ;\203\200 \320 \230\204w \321 \235\203\200 \211\322H\312=?\202\227 \211\323H\324H=\203\223 \211\323H\312=?\202\227 \325@!\266\202\203\240 \326\202\245\211A\3178\262A\3138\262\247\203\272 \316 U\202\312 ;\203\326 \320 \230\204\315 \321 \235\203\326 \211\327H\312=?\202\355 \211\330H\331H=\203\351 \211\330H\312=?\202\355 \332@!\266\202\204\366 \333\202\245\334 @\"\203\335\202\245\334\n@\"\203\336\202\245\334 @\"\203\337\202\245\334\f@\"\203&\340\202\245\211A\3178\262A\3138\262\247\203@\316 U\202P;\203\\\320 \230\204S\321 \235\203\\\211\317H\312=?\202s\211\341H\313H=\203o\211\341H\312=?\202s\342@!\266\202\204|\343\202\245
\205\245
\344\203\243@@@A\"\203\234@A\262\344\262\202\202A\262\202\202\262\211\203\265\345\314@G\346D@$\210\210\211@\207" [eshell-ls-use-colors eshell-ls-archive-regexp eshell-ls-backup-regexp eshell-ls-product-regexp eshell-ls-clutter-regexp eshell-ls-highlight-alist 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 font-lock-face] 7 (#$ . 25358)])
(defalias 'eshell-ls-unload-function #[0 "\300\301\302\"\210\300\303\304\"\210\305\207" [advice-remove insert-directory eshell-ls--insert-directory dired eshell-ls--dired nil] 3])
(provide 'em-ls)
Mini Shell