;ELC   
;;; compiled by cthomp@willow on Mon Aug  9 12:14:31 1993
;;; from file /era/era-0.80/editor/lisp/dired/dired-lisp.el
;;; emacs version 19.8 (beta6) Lucid.
;;; bytecomp version 2.15; 14-jul-93.
;;; 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")))
    (error "This file was compiled for Emacs 19."))

(defconst dired-lisp-version (substring "!Revision: 1.8 !" 11 -2) "\
!Id: dired-lisp.el,v 1.8 1992/05/01 17:50:56 sk Exp !")
(byte-code "АБ!€ВГ!¬…ГДKM€ДЕM‡" [require dired fboundp dired-lisp-unix-ls dired-ls dired-lisp-ls] 2)
(fset 'dired-lisp-ls #[(file &optional switches wildcard full-directory-p) "¬‚	:¬…ВГ\"«‹Е!З!¬…ѓє Й!‰\nМОР\nО#ОООХ>«‰ЦЧ\"ЄЊШ>¬‡ЦЩ\"ВЪ\"Ыc€Ь\"«®@‰@AA\nPЮ8\\Я#c€ЄNЉаб!€М•b€вг!€дежҐT\"c.	‡Е!Яз!#c‡" [switches dired-listing-switches mapcar identity wildcard file-name-nondirectory file file-name-directory full-directory-p file-name-as-directory dir default-directory 0 sum nil elt directory-files file-list file-alist fil attr 65 dired-lisp-delete-matching "^\\.\\.?$" 97 "^\\." #[(x) "БВ!!B‡" [x file-attributes expand-file-name] 4] "total \n" dired-lisp-handle-switches short 7 dired-lisp-format search-backward "total " delete-char -1 format "%d" 1024 file-attributes] 5 "\
dired-lisp.el's version of dired-ls.
Known switches: A a S r i s t
In Emacs 19, additional known switches are: c u
Others are ignored.

  Insert ls output of FILE, optionally formatted with SWITCHES.
Optional third arg WILDCARD means treat non-directory part of FILE as
emacs regexp (_not_ a shell wildcard).  If you enter regexps remember
to double each $ sign.

Optional fourth arg FULL-DIRECTORY-P means file is a directory and
switches do not contain `d'.

SWITCHES default to dired-listing-switches."])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МН!‡" [dired-lisp-delete-matching #[(regexp list) "А\n«’Г\n@\"¬…\n@	B\nA‰¬n	)‡" [nil result list string-match regexp] 4] dired-lisp-handle-switches #[(file-alist switches) "АВД>«ѓЖЄЌЗ>«‡И!ЙЄЃК\")Л>«ѓџ‡" [nil index sort file-alist 83 switches #[(x y) "А	A8А\nA8W‡" [7 y x] 3] 116 dired-lisp-time-index #[(x y) "А	\nA8	A8\"‡" [time-lessp index y x] 4] #[(x y) "@	@™‡" [x y] 2] 114] 4] time-lessp #[(time0 time1) "@	@A@	A@‰W®€U­ѓ\nW,‡" [time0 time1 lo1 lo0 hi1 hi0] 5] dired-lisp-format #[(file-name file-attr &optional switches) "@В>­†ДЕЖ8\"З>­‰ДИЙ8КҐT\"Л8ДМA@Н8О8Й8%П\"Р	;«…Т	PЄЃУФ°	)‡" [file-attr file-type 105 switches format "%6d " 10 115 "%4d " 7 1024 8 " %3d %-8d %-8d %8d " 2 3 dired-lisp-format-time " " file-name " -> " "" "\n"] 10] dired-lisp-time-index #[(switches) "А	>«‚В‡Г	>«‚Д‡Е‡" [99 switches 6 117 4 5] 2] dired-lisp-format-time #[(file-attr switches) "АБВЏ‡" [error-data (byte-code "АБ\n!8!‰ЕЖOЖИO	КЛO‰А КЛOљ«„	Є‚P-‡" [current-time-string dired-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 dired-lisp] 2)