ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/ls-lisp.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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 #[nil "\300\301\302\"\207" [mapc custom-reevaluate-setting (ls-lisp-ignore-case ls-lisp-dirs-first ls-lisp-verbosity)] 3 (#$ . 525)])
(byte-code "\302\303\304\305\306\307\310\311\312\313\314\315& \210\316\317\320\321#\210\322\321\211\203; @\317N\2034 \320N\2044 \323\320\317N#\210 A\211\204 *\324\317\320\325#\210\302\320\326\327\330\331\306\332\314\315& \210\302\333\334\335\336\337\330\340\306\332\314\315& \210\302\341\342\343\336\337\306\332\314\315& \210\302\344\345\346\330\347\306\332\314\315& \210\302\350\351\352\330\353\306\354\314\315& \210\302\355\356\357\306\332\314\315&\210\302\360\342\361\306\332\314\315&\210\302\362\363\364\306\365\314\315&\210\302\366\321\367\306\332\314\315&\207" [prop --dolist-tail-- custom-declare-variable ls-lisp-emulation (cond ((memq system-type '(hpux usg-unix-v irix berkeley-unix)) 'UNIX)) "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 #[(symbol value) "\302 !\232?\205 \303 \"\210\304 \207" [value symbol eval custom-set-default ls-lisp-set-options] 3] :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" (memq ls-lisp-emulation '(MS-Windows MacOS)) "Non-nil causes ls-lisp alphabetic sorting to ignore case." :set-after (ls-lisp-emulation) boolean ls-lisp-use-string-collate (cond ((memq ls-lisp-emulation '(MacOS UNIX)) nil) (t t)) "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 t "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 (eq ls-lisp-emulation 'MS-Windows) "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 (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))) "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 (not (memq system-type '(ms-dos windows-nt))) "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 "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 '("%b %e %H:%M" "%b %e %Y") "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 "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."] 13)
#@33 Format to display integer UIDs.
(defvar ls-lisp-uid-d-fmt " %d" (#$ . 6874))
#@31 Format to display user names.
(defvar ls-lisp-uid-s-fmt " %s" (#$ . 6957))
#@33 Format to display integer GIDs.
(defvar ls-lisp-gid-d-fmt " %d" (#$ . 7038))
#@37 Format to display user group names.
(defvar ls-lisp-gid-s-fmt " %s" (#$ . 7121))
#@39 Format to display integer file sizes.
(defvar ls-lisp-filesize-d-fmt "%d" (#$ . 7208))
#@37 Format to display float file sizes.
(defvar ls-lisp-filesize-f-fmt "%.0f" (#$ . 7301))
#@61 Format to display file sizes in blocks (for the -s switch).
(defvar ls-lisp-filesize-b-fmt "%.0f" (#$ . 7394))
#@1099 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.
(defalias 'ls-lisp--insert-directory #[(orig-fun file switches &optional wildcard full-directory-p) "\203 \n \f
$\207\306\307\n!\310\"\n\311 ( )\211 *\203( *\310\n \f
%\202\357 \312\313 \"\2036 \314\315\311\211 $\316\317\316\320\321 \311\"\"\"+\203f \312\322\n\"\203f \323\n!\204f \n\211GSH\324=\203d \n\325\nGSO\326\f\203\203 +\203w \327\330\n!!\202z \330\n!(\331\n!\202\214 \332 >\203\214 \333(\3341\236 \335\n \336 !(
%0\202\313 \211 ,A@\337\232\203\302 \332 >\205\257 \333(\340)!\335\n \336 !\311
%\202\312 \341,@,A\")\210\212eb\210\342\343\311\326#\205\356 \344\345!\211 -\205\355 \314\346!\210\311\210\347-\261))+\207" [ls-lisp-use-insert-directory-program orig-fun file switches wildcard full-directory-p find-file-name-handler expand-file-name insert-directory nil string-match "--dired " replace-match "" delete 32 45 append "[[?*]" file-exists-p 47 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 " wildcard-regexp orig-file handler ls-lisp-support-shell-wildcards err available] 8 (#$ . 7513)])
(advice-add 'insert-directory :around 'ls-lisp--insert-directory)
#@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) "\203\n \306\230\203 \203 \307\n!\211 \310 \311\312\313
>\203# \314\202$ \315% ?\316\211 @ A\316\211 B C\311\211 D E\311\211 F G\311\211 H I\311\211 J K\311\211 L M\317?!?\320
>\203g \321\322?\"?\202t \323
>\204t \321\324?\"?\325?
\"?\326
>\203\211 \327?!\210\202\320`?\242BD?\311 F\211 N\203 N@\211FAI\330I8\211J;\203\266 \331J!\202\274 \332\333J\"GL\334I8\211K;\203\320 \331K!\202\326 \332\333K\"GM\335I8HLAV\203\352 LAMBV\203\366 MBHCV\203HCNA\211N\204\233 *\332\336A\"O\332\337A\"P\332\336B\"Q\332\337B\"R\332\340\332\341C\"G\"S\332\342\332\341C\"G\"T\343
>\203S\332\344\332\341\345C\346\245!\"G\"U?EE\203\265E@FEAEF@GFAI\335I8HI\203WH@\347HZW\204\225\350@!\204\225\350H!\203\232@\202\236\351@!\\\211@\203W\352GIH
V%c\210\202W\212D@b\210DA\204\304\353c\210\332\354\345@\355\245!\"c\210)E\204\330db\210\356
>\205?\205?@F?A?FA@\312=\203\336\357\360F@\"\204\336\361F@ \"F\362F\363\261\210\364F
V %\210\202\336.\207\365\n!\203(\361\n!\n\211GSH\366=\2037\n\316\367O\370\n\315\"\211 W\203_\352\371
>\203P\372\nW\"\202Q\nW\335W8
V%c\202j\373\374\n\"\210\375 \210\376\330!)\207" [wildcard-regexp full-directory-p file dir default-directory switches "[^~]\\'" 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 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 file-name-absolute-p 47 -1 file-attributes 70 ls-lisp-classify-file message "%s: doesn't exist or is inaccessible" ding sit-for file-alist sum max-uid-len max-gid-len max-file-size total-line files elt short file-size attr fuid fgid uid-len gid-len --dolist-tail-- 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 ls-lisp-filesize-b-fmt time-index fattr] 8 (#$ . 9939)])
#@511 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.
(defalias 'ls-lisp-sanitize #[(file-alist) "\301\302\"A\204 \301\303\"A\203 \301\302\"\301\303\"A\241\210\304\305\"\207" [file-alist assoc ".." "." rassq-delete-all nil] 4 (#$ . 12774)])
#@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
BAG\211V\203 \202 *
\237\310\\\311\312\"\313 \245 \245 \n _V\203[ \nT\307\306 \211 \nW\205\230 \211 W\203\204 \311\f
8\"c\210\n\\\211\202l `\314\306x\210`|\210\315c\210T\211\202b .\207" [colwid nfiles collen ncols fmt files nil 0 2 format "%%-%ds" window-width " " 10 len file file-alist j i] 7 (#$ . 13485)])
#@65 Delete all elements matching REGEXP from LIST, return new list.
(defalias 'ls-lisp-delete-matching #[(regexp list) "\303 \203 \304\n @@\"\204 @B A\211\204 )\207" [result list regexp nil string-match] 4 (#$ . 14139)])
#@497 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.
(defalias 'ls-lisp-string-lessp #[(s1 s2) "\n\203 \306 \f\307
$\202% \310 \311\307\f\311\307
&\211 \n\247\205$ \n\311W))\207" [ls-lisp-UCA-like-collation w32-collate-ignore-punctuation ls-lisp-use-string-collate s1 s2 ls-lisp-ignore-case string-collate-lessp nil compare-strings 0 u] 9 (#$ . 14372)])
(put 'ls-lisp-string-lessp 'byte-optimizer 'byte-compile-inline-expand)
#@359 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.
(defalias 'ls-lisp-version-lessp #[(s1 s2) "\306\211G G\306\307\211\211\211\211 W\2034W\2034\306U\2034\n\204L \310\311#\306\225\310\311 #\306\225\203
\203V\203\200
V\203\200 \312
&
\313\202'U\203\366
U\203\366 \307\fO
O \310\314\" \310\314\" \203\305 \203\305 GGZZ\202\332 \203\322 [\202\332 \203\332
\306U\203\354 \315!\315!Z\f ,\202'\312\307 \307&\202'\312\307 \307&\313=\203 \306\202 \306U\203BZ\306W.\n\207" [s1 s2 found-2-numbers-p e2 e1 ni2 0 nil string-match "[0-9]+" compare-strings t "\\`0+" string-to-number ni1 val len2 len1 i2 i1 ls-lisp-ignore-case sub1 sub2 fr1 fr2] 10 (#$ . 15253)])
#@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>\204S \3071C \310\311\312\n!\313>\203 \314\202; \315!\211\203& \316\202; \317>\2030 \320\202; \321>\203: \322\202; \323\")\2110\202R \324\325\326 !\"\210\327 \210\330\331!)\210\332>\203^ \333\334\n\"\f\203\264 \310\211\211 !\n\203\241 \n@\211!A@\335=\204\213 !A@;\203\225 \336!A@!\203\225 ! B \202\232 !
B\nA\211\204n \306>\203\256
\244\202\262
\244+\306>?\337>?=\f=\203\305 \n\237\207\n\207" [switches index file-alist err ls-lisp-dirs-first files 85 (error) 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 time-less-p] 4] 88 #[(x y) "\306@!\306 @!\f \203 \307 \n\310\f$\2022 \311 \312\310\n\312\310\f&\211
\247\2051
\312W)+\207" [x y s2 s1 ls-lisp-UCA-like-collation w32-collate-ignore-punctuation ls-lisp-extension string-collate-lessp nil compare-strings 0 ls-lisp-use-string-collate ls-lisp-ignore-case u] 8] 118 #[(x y) "\302@ @\"\207" [x y ls-lisp-version-lessp] 3] #[(x y) "@ @\f \n\203 \306 \n\307 $\202. \310 \311\307\n\311\307 &\211 \f\247\205- \f\311W)+\207" [x y s2 s1 ls-lisp-UCA-like-collation w32-collate-ignore-punctuation string-collate-lessp nil compare-strings 0 ls-lisp-use-string-collate ls-lisp-ignore-case u] 8] message "Unsorted (ls-lisp sorting error) - %s" error-message-string ding sit-for 2 70 mapcar ls-lisp-classify t file-directory-p 114 dirs el] 5 (#$ . 16402)])
#@319 Append a character to FILENAME indicating the file type.
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.
(defalias 'ls-lisp-classify-file #[(filename fattr) "@\3058\211\306\307O \203 \f \310=\203 \311\202 \312P\202F \313\314\n\"\203- \f\315P\202F \316\230\2039 \f\317P\202F \320\230\203E \f\321P\202F \f+\207" [fattr type modestr typestr filename 8 0 1 t "/" "@" string-match "x" "*" "p" "|" "s" "="] 4 (#$ . 18023)])
#@386 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.
(defalias 'ls-lisp-classify #[(filedata) "@A\303\n\304\305#\306\n \" *B\207" [filedata fattr file-name propertize dired-filename t ls-lisp-classify-file] 4 (#$ . 18671)])
#@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 (#$ . 19239)])
#@181 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.
(defalias 'ls-lisp-format #[(file-name file-attr file-size switches time-index) "@\3068\307 >\205U \3108\211 :\203P \fA:\203C \f@\311_\312\f@\313_\fA@\314_\fAA# /\315\316/\317
\320\"\\\321
\322\"#*\202T \315\323\f@\324_\fA\\\"\202T \315\325\f\")\326 >\205{ \327 >\203q \315\330\331\332\3330\334\245!_!\"\202{ \3151\3330\335\245!\" \3362>\205\211 \315\337A@\"\3402>\205\247 \3418 \315 ;\203\241 3\202\243 4 \")\342 >?\205\322 \343 >\204\273 \3442>\205\322 \3458 $\315$;\203\314 5\202\316 6$\")\3460\327 >\"\347\3507\"\347\351 >\204\357 \3528\353\354#\202\361 8\n;\205\371 \355\nP\356\260
*\207" [file-attr drwxrwxrwx file-type switches inode p2 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 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" p1 file-size 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 time-index file-name] 15 (#$ . 19662)])
#@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 (#$ . 21000)])
#@261 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.
(defalias 'ls-lisp-format-time #[(file-attr time-index) "\206 \306 8\307\n!\307 Z\310 \3111x
\211 \2044 \312 \313@!\211\2043 A\211\204 )\314\235\203> \315\316\f X\203_ \317X\203_ \203Y \204Y \320\202q @\202q \203m \204m \321\202q A@\n\")0\202z \210\322+\207" [time-index file-attr time diff past-cutoff system-time-locale 5 float-time -15778476 (error) ("LC_ALL" "LC_TIME" "LANG") getenv ("C" "POSIX") nil format-time-string 0 "%m-%d %H:%M" "%Y-%m-%d " "Unk 0 0000" locale vars ls-lisp-use-localized-time-format ls-lisp-format-time-list] 4 (#$ . 21264)])
(defalias 'ls-lisp-format-file-size #[(file-size human-readable) "\204 \304\305 !\203 \n\202 \"\207\304\306\307 !\"\207" [human-readable file-size ls-lisp-filesize-f-fmt ls-lisp-filesize-d-fmt format floatp " %6s" file-size-human-readable] 4])
(provide 'ls-lisp)
Kontol Shell Bypass