home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / dired / dired-ns.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  7.7 KB  |  47 lines
  1. ;;; compiled by jwz@thalidomide on Tue Aug 18 17:08:44 1992
  2. ;;; from file /u/jwz/emacs19/lisp/dired/dired-nstd.el
  3. ;;; emacs version 19.2.2 Lucid.
  4. ;;; bytecomp version 2.08;  2-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defconst dired-subdir-alist nil "\
  14. Association list of subdirectories and their buffer positions:
  15.  
  16.   ((LASTDIR STARTMARKER ENDMARKER NESTING-DEPTH)
  17.    ...
  18.    (DEFAULT-DIRECTORY POINTMIN POINTMAX 0)).
  19. ")
  20. (byte-code "└┴Mê┬ ─┼#ê┬ ╞╟#ê╚╔Mê╩╦Mê╠═Mê╬╧Mê╨╤Mê╥╙Mç" [dired-simple-subdir-alist #[nil "└┴!\n├ ─ ┼FCLç" [make-local-variable dired-subdir-alist default-directory point-min-marker point-max-marker 0] 5] define-key dired-mode-map "i" dired-insert-subdir-inline "j" dired-maybe-insert-subdir dired-get-subdir-min #[(elt) "A@ç" [elt] 1] dired-get-subdir-max #[(elt) "└    8ç" [2 elt] 2] dired-subdir-min #[nil "└ ┴─ \"ë½ç╞╟\n!!¬â╚╔!*ç" [dired-current-directory nil c d assoc dired-subdir-alist marker-position dired-get-subdir-min error "not in a subdir!"] 3] dired-subdir-max #[nil "└ ┴─ \"ë½ç╞╟\n!!¬üd*ç" [dired-current-directory nil c d assoc dired-subdir-alist marker-position dired-get-subdir-max] 3] dired-clear-alist #[nil "¡Ö@ëA@┬ëôê├    8┬ëôê)Aë¼h┬ç" [dired-subdir-alist elt nil 2] 4] dired-unsubdir #[(dir) "└    \n\"ëA@┼ 8╟\në    ¡Ñ    @ A@X½Å┼8Y½å╩\n\"    Aë    ¼\\╟-ç" [assoc dir dired-subdir-alist elt min 2 max nil other-elt rest delq] 4]] 4)
  21. (fset 'dired-build-subdir-alist #[nil "└ êè┴ebê├┼├╟#½á\nT╚╔ö╔ò{è┴öbê┴yê╩ )╦ ┴$ê╠═\n\"ê¬X╠╬\në╔U½â╧¬ü╨#ê *ç" [dired-clear-alist 0 count nil dired-subdir-alist re-search-forward dired-subdir-regexp t dired-alist-add 1 point-marker point-max-marker message "%d" "%d director%s." "y" "ies"] 5 "\
  22. Build dired-subdir-alist by parsing the buffer and return it's new value." nil])
  23. (fset 'dired-alist-add #[(dir start-marker end-marker indentation-depth) "¼ä┴┬!ê ¼ä┴─!ê┼\"╔! \n«ü╦F╠\"B═ )ç" [start-marker error "start marker nil" end-marker "end marker nil" assoc dir dired-subdir-alist old dired-normalize-subdir indentation-depth 0 delq dired-alist-sort] 4])
  24. (fset 'dired-current-directory #[(&optional relative) "└`    «é┬ └ ½│ @A@W¼í╟8V¼Ö ½ô╟8A@Z╟ 8 A@ZW½â Aë¼M½ê╔ @\n\"¬é @,ç" [nil dired-subdir-alist dired-build-subdir-alist best-so-far alist here elt 2 relative dired-make-relative default-directory] 5 "\
  25. Get the subdirectory to which this line belongs.
  26. This returns a string with trailing slash, like default-directory.
  27. Optional argument means return a name relative to default-directory."])
  28. (byte-code "└┴Mê┬├Mç" [dired-insert-subdir-del #[(element) "└    !┬    ! bêm¼è┼╞    8U½â╟uê╞    8┼U½â╚cê╔ `\" `|ê*ç" [dired-get-subdir-min element dired-get-subdir-max end-marker begin-marker 0 3 -1 "\n\n" dired-remember-marks] 3] dired-insert-subdir-doupdate #[(dirname elt beg-end) "@A@┴8«ü┬½ô ┴8=¼ï╟╚    \"    ½áA@┴8\në ╟ôê\n ╟ôê╠¢ á*¬Å═╧ ╟ô╧  ╟ô $+ç" [beg-end 2 0 indent end beg elt nil delq dired-subdir-alist old-end old-start 3 dired-alist-add dirname make-marker] 7]] 2)
  29. (fset 'dired-insert-subdir-inline #[(dirname &optional switches no-error-if-not-dir-p) "└┴\n!!├┼╞«ü╚\")½Å╔ëöO╔ò├OP╩\n \"ê ¼è═\n!¼à╬╧\n\"ê╨\n\"╥╙\n!!├ëëëëëëëëëë½Æ▀α!\"ß\"Γ\n!êπyêΣ\nσ\n##êµ\n!êèτ!ê.Φ ç" [file-name-as-directory expand-file-name dirname nil case-fold-search string-match "R" switches "" 0 dired-make-relative default-directory no-error-if-not-dir-p file-directory-p error "Attempt to insert a non-directory: %s" assoc dired-subdir-alist file-name-directory directory-file-name buffer-read-only tail-adjascents mark-alist new-end new-start old-end old-start end beg parentdir elt append dired-insert-subdir-del delq dired-goto-file 1 dired-insert-subdir-doupdate dired-insert-subdir-inline-doinsert dired-initial-position dired-mark-remembered dired-nuke-extra-newlines] 13 "\
  30. Insert this subdirectory into the same dired buffer.
  31. If it is already present, overwrites previous entry,
  32.   else inserts it, indented, within its parent's listing.
  33. With a prefix arg, you may edit the ls switches used for this listing.
  34.   This command ignores the `R' switch." (byte-code "└     ¡ä┬├ \"Dç" [dired-get-filename current-prefix-arg read-string "Switches for listing: " dired-actual-switches] 4)])
  35. (fset 'dired-insert-subdir #[(dirname &optional switches no-error-if-not-dir-p) "└┴\n!!├\n \"ê¼è╞\n!¼à╟╚\n\"ê╔\n\n\" ¡à╠═ \"╬ëë½å╘\n╒\"╓8¡ç╓8╫=?½è┘┌!\"¼ä¼ä█\n!ê½ç╓¢╫áê)▄\n▌\n \"#ê½â▐ ê▀\n!êèα!ê.ß ç" [file-name-as-directory expand-file-name dirname dired-make-relative default-directory no-error-if-not-dir-p file-directory-p error "Attempt to insert a non-directory: %s" assoc dired-subdir-alist switches string-match "R" nil case-fold-search buffer-read-only mark-alist switches-have-R elt dired-kill-tree t 3 0 was-nested append dired-insert-subdir-del dired-insert-subdir-newpos dired-insert-subdir-doupdate dired-insert-subdir-doinsert dired-build-subdir-alist dired-initial-position dired-mark-remembered dired-nuke-extra-newlines] 6 "\
  36. Insert this subdirectory into the same dired buffer.
  37. If it is already present, overwrites previous entry,
  38.   else appends at end of buffer.
  39. With a prefix arg, you may edit the ls switches used for this listing.
  40.   You can add `R' to the switches to expand the whole tree starting at
  41.   this subdirectory.
  42. This function takes some pains to conform to ls -lR output." (byte-code "└     ¡ä┬├ \"Dç" [dired-get-filename current-prefix-arg read-string "Switches for listing: " dired-actual-switches] 4)])
  43. (byte-code "└┴Mê┬├Mç" [dired-nuke-extra-newlines #[nil "└èebê┬├└─#¡ì┼ö╞\\bê`┼ò|ê¬l*ç" [nil buffer-read-only re-search-forward "\n\n\n+" t 0 2] 4] dired-insert-subdir-newpos #[(new-dir) "┴ëë뽿@A@╟!╚8╔U½e╩  \"½^╠!┴ë¼X\nbê-═cê`ç" [dired-subdir-alist nil new-pos pos dir elt alist dired-get-subdir-min 3 0 dired-tree-lessp new-dir dired-get-subdir-max "\n\n"] 6]] 2)
  44. (defvar dired-no-inline-headerlines t "\
  45. *set this to t to suppress the directory header and `total' line.")
  46. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mç" [dired-insert-subdir-inline-doinsert #[(dirname switches parentdir) "`└ëë┼╞\"ê╚    «å╩╦╠#└╬$ê┼╧\"ê`╨╤\"8Tè bê¼Æ╒!êè╓ )¼ç b¼â╓ ê½Ä╫╪!½ë`┘yê`|ê`)ë½ù`█@8U½å@    BAë¼i)└▌ `\nT█_#ê)▐  bê    ½Ä█    @8 └ôê    Aë¼r½èî }êα▀!ê)ß ! └ëôê bê \nE,ç" [nil tail-adjascents indent end begin message "Reading directory %s..." dirname dired-ls switches dired-replace-in-string "R" "" dired-actual-switches t "Reading directory %s...done" 3 assoc parentdir dired-subdir-alist dired-no-inline-headerlines dired-insert-headerline delete-horizontal-space looking-at "^ *total [0-9]" 1 rest 2 indent-tabs-mode indent-rigidly point-marker dired-after-readin-hook run-hooks marker-position] 7] dired-insert-subdir-doinsert #[(dirname switches) "`└├─\"ê╞«å╚╔╩ #└╠$ê├═\"ê╬cê╧ ╨\n`╤#ê½èî\n`}ê╙╥!ê)\nbê╘!ê╒    !    └ëôê\n    *Dç" [nil end begin message "Reading directory %s..." dirname dired-ls switches dired-replace-in-string "R" "" dired-actual-switches t "Reading directory %s...done" "\n\n" point-marker indent-rigidly 2 dired-after-readin-hook run-hooks dired-insert-headerline marker-position] 6] dired-insert-old-subdirs #[(old-subdir-alist) "└┴\n\"«ú├ë╞╚\"¡ô@A@├╔╩Åê¬i*ç" [string-match "R" dired-actual-switches nil dir elt sort old-subdir-alist #[(x y) "└    8└\n8Wç" [3 x y] 3] (byte-code "└    8┬U½å├ !ê¬ä┼ !ê└ç" [3 elt 0 dired-insert-subdir dir dired-insert-subdir-inline] 2) ((error))] 3] dired-add-entry-do-indentation #[(marker-char) "½è¿½â¬ä    ¬ü┬┬▒ê├─\"8╚ë\\┬\"c)ç" [marker-char dired-marker-char 32 3 assoc directory dired-subdir-alist indent make-string] 4]] 2)
  47.