;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Mon Aug 1 17:45:58 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/ls-lisp.el ;;; emacs version 19.25.91.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"))) (error "`/gd/gnu/emacs/19.0/lisp/ls-lisp.el' was compiled for Emacs 19")) (defalias 'insert-directory #[(file &optional switches wildcard full-directory-p) " \" \f %\f\" % ! ! . !\f \f #\f>`\"m\f>m\"\"c\f\"@A@A~8\\~\f#c~!Εb!T\"c.\n ! !\f#c)" [find-file-name-handler file insert-directory handler switches wildcard full-directory-p append nil 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 " 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 `ls-lisp.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 "\"\"\"\"\"\"!" [defalias ls-lisp-delete-matching #[(regexp list) "\n\f\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) "@ @" [x y] 2] 114] 4] ls-lisp-time-lessp #[(time0 time1) "@ @A@ A@\fW \fU \nW," [time0 time1 lo1 lo0 hi1 hi0] 5] ls-lisp-format #[(file-name file-attr &optional switches) "@ >8\" >8ʥT\"8A@ 8U4 98!=DӂI8!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] 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\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 ls-lisp] 3)