;ELC ;;; compiled by cthomp@willow on Mon Aug 9 12:14:35 1993 ;;; from file /era/era-0.80/editor/lisp/dired/dired-nstd.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-subdir-alist nil "\ Association list of subdirectories and their buffer positions: ((LASTDIR STARTMARKER ENDMARKER NESTING-DEPTH) ... (DEFAULT-DIRECTORY POINTMIN POINTMAX 0)). ") (byte-code "M # #MMMMMM" [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‰)Ah‡" [dired-subdir-alist elt nil 2] 4] dired-unsubdir #[(dir) " \n\"A@ 8\n  @ A@X8Y\n\" A \\-" [assoc dir dired-subdir-alist elt min 2 max nil other-elt rest delq] 4]] 4) (fset 'dired-build-subdir-alist #[nil " eb#\nTɔɕ{by ) $\n\"X\nUϪ# *" [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 "\ Build dired-subdir-alist by parsing the buffer and return it's new value." nil]) (fset 'dired-alist-add #[(dir start-marker end-marker indentation-depth) "! !\"! \nF\"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]) (fset 'dired-current-directory #[(&optional relative) "`  @ A@W 8V 8A@Z 8 A@ZW AM  @\n\" @ !," [nil dired-subdir-alist dired-build-subdir-alist best-so-far alist here elt 2 relative dired-make-relative default-directory dired-current-directory] 5 "\ Get the subdirectory to which this line belongs. This returns a string with trailing slash, like default-directory. Optional argument means return a name relative to default-directory."]) (byte-code "MM" [dired-insert-subdir-del #[(element) " ! ! bm 8Uu 8Uc `\" `|*" [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) (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 "\ Insert this subdirectory into the same dired buffer. If it is already present, overwrites previous entry, else inserts it, indented, within its parent's listing. With a prefix arg, you may edit the ls switches used for this listing. This command ignores the `R' switch." (byte-code " \"D" [dired-get-filename current-prefix-arg read-string "Switches for listing: " dired-actual-switches] 4)]) (fset 'dired-insert-subdir #[(dirname &optional switches no-error-if-not-dir-p) "\n!!\n \" \n!\n\"\n\n\"  \"Ή\n\"88=?!\"\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 "\ Insert this subdirectory into the same dired buffer. If it is already present, overwrites previous entry, else appends at end of buffer. With a prefix arg, you may edit the ls switches used for this listing. You can add `R' to the switches to expand the whole tree starting at this subdirectory. 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)]) (byte-code "MM" [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 @ ! 8Ue  \"^ !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) (defvar dired-no-inline-headerlines t "\ *set this to t to suppress the directory header and `total' line.") (byte-code "MMMM" [dired-insert-subdir-inline-doinsert #[(dirname switches parentdir) "`\"  #$\"`\"8T b! ) b !`y`|`)`@8U@ BAi) `\nT_#)  b @8 Ar }!) !  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 " 8U ! !" [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)