;ELC   
;;; compiled by rms@mole.gnu.ai.mit.edu on Thu Jan 18 01:57:05 1996
;;; from file /gd/gnu/emacs/19.0/lisp/ls-lisp.el
;;; emacs version 19.30.70.7.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (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"))


#@224 *Non-nil means file patterns are treated as shell wildcards.
nil means they are treated as Emacs regexps (for backward compatibility).
This variable is checked by \[insert-directory] only when `ls-lisp.el'
package is used.
(defvar ls-lisp-support-shell-wildcards t (#$ . -474))
#@669 Insert directory listing for 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 `ls-lisp.el'.  It doesn not
run any external programs or shells.  It supports ordinary shell
wildcards if `ls-lisp-support-shell-wildcards' variable is non-nil;
otherwise, it interprets wildcards as regular expressions to match
file names.

Not all `ls' switches are supported.  The switches that work
are: A a c i r S s t u
(defalias 'insert-directory #[(file &optional switches wildcard full-directory-p) "	\" 	\f%3 	\"3 	GSH=1 		GSO\f\"Q I 	!!L 	!	!Z 	!#\f> \" \f> \"\" 䂪 c\f\" @A@A 8\\ \f#c !˕b!U˂T\"c.\n	!		!\f#c)" [find-file-name-handler file insert-directory handler switches wildcard full-directory-p ls-lisp-support-shell-wildcards string-match "[[?*]" 47 0 t append nil wildcard-to-regexp file-name-nondirectory file-name-directory file-name-as-directory dir default-directory 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" "(No match)\ntotal \n" ls-lisp-handle-switches 7 ls-lisp-format search-backward "total " delete-char -1 format "%d" 1024 file-attributes] 7 (#$ . 759)])
(defalias 'ls-lisp-delete-matching #[(regexp list) "\n \f\n@\" \n@	B\nA 	)" [nil result list string-match regexp] 4])
(defalias '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) "@	@" [x y] 2] 114] 4])
(defalias 'ls-lisp-time-lessp #[(time0 time1) "@	@A@	A@\fW \fU \nW," [time0 time1 lo1 lo0 hi1 hi0] 5])
(defalias 'ls-lisp-format #[(file-name file-attr &optional switches) "@> 8\"> 8ʥT\"8A@ 8U4  9 8!=D ӂI 8!8%\"	;_ 	P` ڰ	)" [file-attr file-type 105 switches format "%6d " 10 115 "%4d " 7 1024 8 " %3d %-8s %-8s %8d " user-uid 2 user-login-name int-to-string system-type ms-dos "root" 3 ls-lisp-format-time " " file-name " -> " "" "\n"] 10])
(defalias 'ls-lisp-time-index #[(switches) "	> 	> ćŇ" [99 switches 6 117 4 5] 2])
(defalias 'ls-lisp-format-time #[(file-attr switches) "" [error-data (byte-code "\n!8!O\fO	\fO\f O/ 	1 \fP-" [current-time-string ls-lisp-time-index switches file-attr time 4 11 date 16 clock 19 24 year same-year] 5) ((error "Jan 00 00:00"))] 3])
(provide (quote ls-lisp))
