;;; compiled by jimb@geech.gnu.ai.mit.edu on Sat May 15 21:56:42 1993
;;; from file /gd/gnu/emacs/19.0/lisp/ls-lisp.el
;;; emacs version 19.5.19.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(defalias 'insert-directory #[(file &optional switches wildcard full-directory-p) " \n% \" !!,  !#>_ \"l >l \"\"c\" @@AAP8\\#c} !!b!\"T\"c.\n !!#c*" [nil (find-file-name-handler file) handler insert-directory file switches wildcard full-directory-p file-name-nondirectory file-name-directory file-name-as-directory dir default-directory 0 sum elt short directory-files file-list file-alist fil attr 65 ls-lisp-delete-matching "^\\.\\.?$" 97 "^\\." mapcar #[(x) "!!B" [x file-attributes expand-file-name] 4] "total \n" ls-lisp-handle-switches 7 ls-lisp-format search-backward "total " match-end delete-char -1 format "%d" / 1024 file-attributes] 7 "\
Insert directory listing for of FILE, formatted according to SWITCHES.
Leaves point after the inserted text.
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 `directory.el'.
It does not support ordinary shell wildcards; instead, it allows
regular expressions to match file names.

The switches that work are: A a c i r S s t u"])
(byte-code "MMMMMM!" [ls-lisp-delete-matching #[(regexp list) "\n \n@\" \n@	B\nA 	)" [nil result list string-match regexp] 4] ls-lisp-handle-switches #[(file-alist switches) "> Ƃ > !ɂ \")>* !" [nil index sort file-alist 83 switches #[(x y) "	A8\nA8W" [7 y x] 3] 116 ls-lisp-time-index #[(x y) "	\nA8	A8\"" [ls-lisp-time-lessp index y x] 4] #[(x y) "	@\n@\"" [string-lessp x y] 3] 114 nreverse] 4] ls-lisp-time-lessp #[(time0 time1) "@	@A@	A@W U \nW," [time0 time1 lo1 lo0 hi1 hi0] 5] ls-lisp-format #[(file-name file-attr &optional switches) "@> 8\">  8\"T\"8A@888%\"	;D 	PE &	)" [file-attr file-type concat 105 switches format "%6d " 10 115 "%4d " / 7 1024 8 " %3d %-8d %-8d %8d " 2 3 ls-lisp-format-time " " file-name " -> " "" "\n"] 11] ls-lisp-time-index #[(switches) "	> 	> ćŇ" [99 switches 6 117 4 5] 2] ls-lisp-format-time #[(file-attr switches) "" [error-data (byte-code "\n!8!OO	O O\"1 	3 P-" [current-time-string ls-lisp-time-index switches file-attr time 4 11 date 16 clock 19 24 year equal same-year] 6) ((error "Jan 00 00:00"))] 3] provide ls-lisp] 2)
