4.3BSD/usr/contrib/emacs/lisp/dired.elc

(defun dired-readin (dirname buffer) (byte-code "Šqˆ
Ç ˆÈ ˆÉ!‰ˆÊ!ƒ$ËÌ

&‚9Í!Ë

ÎÏÐÑ!R&)ˆebˆm?…LÒcˆÓÔ!ˆ‚=ˆeb))‡" [buffer buffer-read-only nil dirname dired-listing-switches default-directory shell-file-name widen erase-buffer expand-file-name file-directory-p call-process "ls" file-name-directory "-c" "ls " " " file-name-nondirectory "  " forward-line 1] 17))

(defun dired-find-buffer (dirname) (byte-code "Æ Å…-Š@qˆ
Ç=…È\"ƒ$@
‰‚(A‰)ˆ‚ˆ	†IÉÊ\"ƒBËÌO‰‚CňÍÎ!!*‡" [blist found major-mode dired-directory dirname nil buffer-list dired-mode equal string-match "/$" 0 -1 create-file-buffer file-name-nondirectory] 6))

(defun dired (dirname) "\
\"Edit\" directory DIRNAME.  Delete some files in it.
Dired displays a list of files in DIRNAME.
You can move around in it with the usual commands.
You can flag files for deletion with C-d
and then delete them by typing `x'.
Type `h' after entering dired for more info." (interactive (byte-code "ÂÃ	$C‡" [nil default-directory read-file-name "Dired (directory): "] 5)) (byte-code "ÀˆÃÄ
!!‡" [nil default-directory dirname switch-to-buffer dired-noselect] 3))

(defun dired-other-window (dirname) "\
\"Edit\" directory DIRNAME.  Like M-x dired but selects in another window." (interactive (byte-code "ÂÃ	$C‡" [nil default-directory read-file-name "Dired in other window (directory): "] 5)) (byte-code "ÀˆÃÄ
!!‡" [nil default-directory dirname switch-to-buffer-other-window dired-noselect] 3))

(defun dired-noselect (dirname) "\
Like M-x dired but returns the dired buffer as value, does not select it." (byte-code "†	‰ˆÃÄ\"ƒÅÆO‰‚LjÈ!‰ˆÃÉ\"?…3Ê!…3ËP‰ˆÌ!Š
qˆÍ
\"ˆÎ ˆÏ!)ˆ
)‡" [dirname default-directory buffer string-match "./$" 0 -1 nil expand-file-name "/$" file-directory-p "/" dired-find-buffer dired-readin dired-move-to-filename dired-mode] 9))

(defun dired-revert (&optional arg) (byte-code "`Æ

\"Ç ˆÈ
p\"ˆ	…ÉÊË	!ÌQ
#†$bˆÍ +‡" [opoint ofile t buffer-read-only nil dired-directory dired-get-filename erase-buffer dired-readin re-search-forward " " regexp-quote "$" beginning-of-line] 8))

(defvar dired-mode-map nil "Local keymap for dired-mode buffers.")

(if dired-mode-map nil (setq dired-mode-map (make-keymap)) (suppress-keymap dired-mode-map) (define-key dired-mode-map "r" (quote dired-rename-file)) (define-key dired-mode-map "" (quote dired-flag-file-deleted)) (define-key dired-mode-map "d" (quote dired-flag-file-deleted)) (define-key dired-mode-map "v" (quote dired-view-file)) (define-key dired-mode-map "e" (quote dired-find-file)) (define-key dired-mode-map "f" (quote dired-find-file)) (define-key dired-mode-map "o" (quote dired-find-file-other-window)) (define-key dired-mode-map "u" (quote dired-unflag)) (define-key dired-mode-map "x" (quote dired-do-deletions)) (define-key dired-mode-map "" (quote dired-backup-unflag)) (define-key dired-mode-map "?" (quote dired-summary)) (define-key dired-mode-map "c" (quote dired-copy-file)) (define-key dired-mode-map "#" (quote dired-flag-auto-save-files)) (define-key dired-mode-map "~" (quote dired-flag-backup-files)) (define-key dired-mode-map "." (quote dired-clean-directory)) (define-key dired-mode-map "h" (quote describe-mode)) (define-key dired-mode-map " " (quote dired-next-line)) (define-key dired-mode-map "" (quote dired-next-line)) (define-key dired-mode-map "" (quote dired-previous-line)) (define-key dired-mode-map "n" (quote dired-next-line)) (define-key dired-mode-map "p" (quote dired-previous-line)))

(defun dired-mode (dirname) "\
Mode for \"editing\" directory listings.
In dired, you are \"editing\" a list of the files in a directory.
You can move using the usual cursor motion commands.
Letters no longer insert themselves.
Instead, type d to flag a file for Deletion.
Type u to Unflag a file (remove its D flag).
  Type Rubout to back up one line and unflag.
Type x to eXecute the deletions requested.
Type f to Find the current line's file
  (or Dired it, if it is a directory).
Type o to find file or dired directory in Other window.
Type # to flag temporary files (names beginning with #) for Deletion.
Type ~ to flag backup files (names ending with ~) for Deletion.
Type . to flag numerical backups for Deletion.
  (Spares dired-kept-versions or its numeric argument.)
Type r to rename a file.
Type c to copy a file.
Type v to view a file in View mode, returning to Dired when done.
Space can be used to move down and up by lines.
\\{dired-mode-map}" (byte-code "Ì ˆÍÀ!ˆÎ‰ˆÏ‰ˆÐ‰ˆÍÃ!ˆ‰ˆÑ!ƒ%‚(Ò!‰ˆ‰ˆÓÔQ‰ˆ
‰	ˆÕ!‡" [revert-buffer-function major-mode mode-name dired-directory dirname default-directory case-fold-search nil mode-line-format buffer-read-only t dired-mode-map kill-all-local-variables make-local-variable dired-revert dired-mode "Dired" file-directory-p file-name-directory "--Directory " "      %M   %[(%m)%]----%p--%-" use-local-map] 8))

(defun dired-repeat-over-lines (arg function) (byte-code " ˆÃV…m?…4S‰ˆŠÂ ˆo…$ÄÅ!…$ÆÇ!ˆÈ	!)ˆÉÊ!ˆË ˆ‚ˆÃW…=o?…XT‰ˆÉÌ!ˆË ˆŠÂ ˆÈ	!)ˆ‚5‡" [arg function beginning-of-line 0 looking-at "  total" error "No file on this line" funcall forward-line 1 dired-move-to-filename -1] 13))

(defun dired-flag-file-deleted (arg) "\
In dired, flag the current line's file for deletion.
With arg, repeat over several lines." (interactive "p") (byte-code "ÁˆÂÃ\"‡" [arg nil dired-repeat-over-lines (lambda nil (let ((buffer-read-only nil)) (if (looking-at "  d") nil (delete-char 1) (insert "D"))))] 3))

(defun dired-summary nil (interactive) (byte-code "ÀˆÁÂ!‡" [nil message "d-elete, u-ndelete, x-ecute, f-ind, o-ther window, r-ename, c-opy, v-iew"] 2))

(defun dired-unflag (arg) "\
In dired, flag the current line's file for deletion." (interactive "p") (byte-code "ÁˆÂÃ\"‡" [arg nil dired-repeat-over-lines (lambda nil (let ((buffer-read-only nil)) (delete-char 1) (insert " ") (forward-char -1)))] 3))

(defun dired-backup-unflag (arg) "\
In dired, move up a line and remove deletion flag there." (interactive "p") (byte-code "ÁˆÂ[!‡" [arg nil dired-unflag] 2))

(defun dired-next-line (arg) "\
Move down ARG lines then position at filename." (interactive "p") (byte-code "ÁˆÂ!ˆÃ ‡" [arg nil next-line dired-move-to-filename] 3))

(defun dired-previous-line (arg) "\
Move up ARG lines then position at filename." (interactive "p") (byte-code "ÁˆÂ!ˆÃ ‡" [arg nil previous-line dired-move-to-filename] 3))

(defun dired-find-file nil "\
In dired, visit the file named on this line." (interactive) (byte-code "ÀˆŠÁ ˆÂÃ!)ƒÄÅ !‚ÆÅ !‡" [nil beginning-of-line looking-at "  d" dired dired-get-filename find-file] 7))

(defun dired-view-file nil "\
In dired, examine a file in view mode, returning to dired when done." (interactive) (byte-code "ÀˆŠÁ ˆÂÃ!)ƒÄÅ !‚ÆÅ !‡" [nil beginning-of-line looking-at "  d" dired dired-get-filename view-file] 7))

(defun dired-find-file-other-window nil "\
In dired, visit this file in another window." (interactive) (byte-code "ÀˆŠÁ ˆÂÃ!)ƒÄÅ !‚ÆÅ !‡" [nil beginning-of-line looking-at "  d" dired-other-window dired-get-filename find-file-other-window] 7))

(defun dired-get-filename (&optional localp no-error-if-not-filep) "\
In dired, return name of file mentioned on this line.
Value returned normally includes the directory name.
A non-nil 1st argument means do not include it.  A non-nil 2nd argument
says return nil if no filename on this line, otherwise an error occurs." (byte-code "ÆŠÇ ˆ`‰ˆÈ ˆÉÊ	#ƒ>ËÌ!ˆËÍ\"ˆËÌ\"ˆ`ËÎ!ˆƒ4Ï
`\"‚:Ï
`\"P)‚J
ƒG‚JÐÑ!))‡" [eol t beg localp default-directory no-error-if-not-filep nil end-of-line beginning-of-line re-search-forward "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)[ ]+[0-9]+" skip-chars-forward " " "^ " "^ 
" buffer-substring error "No file on this line"] 12))

(defun dired-move-to-filename nil "\
In dired, move to first char of filename on this line.
Returns position (point) or nil if no filename on this line." (byte-code " ˆ`à ˆÄÅ	#ƒ\"ÆÇ!ˆÆÈ\"ˆÆÇ\"ˆ`‚#É)‡" [eol t end-of-line beginning-of-line re-search-forward "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)[ ]+[0-9]+" skip-chars-forward " " "^ " nil] 8))

(defun dired-map-dired-file-lines (fn) "\
perform fn with point at the end of each non-directory line:
arguments are the short and long filename" (byte-code "ŠÃÃebˆm?…;ŠÆÇ!?…2l?…2È\"È\"‰…2É ˆÊ
	#)ˆËÌ!ˆ‚
+)‡" [filename longfilename buffer-read-only nil t fn looking-at "  d" dired-get-filename end-of-line funcall forward-line 1] 9))

(defun dired-flag-auto-save-files nil "\
Flag for deletion files whose names suggest they are auto save files." (interactive) (byte-code "ÁˆŠ	ebˆm?…SÄÅ!?…Kl?…KÆÇ!ƒ3È\"
ƒ.Ç
!‚/Á)‚?É ƒ>ÄÊ!‚?Á…KË ˆÌÍ!ˆÎcˆÏÍ!ˆ‚))‡" [buffer-read-only nil fn t looking-at "  d" fboundp auto-save-file-name-p dired-get-filename dired-move-to-filename "#" beginning-of-line delete-char 1 "D" forward-line] 11))

(defun dired-clean-directory (keep) "\
Flag numerical backups for Deletion.
Spares dired-kept-versions latest versions, and kept-old-versions oldest.
Positive numeric arg overrides dired-kept-versions;
negative numeric arg overrides kept-old-versions with minus the arg." (interactive "P") (byte-code "ƈƒÊ!‚
	‰ˆËWƒ[‚ËXƒ&	‚'ÌÍ!ˆ
…yÎÏ@AÐ\"BG		
\\VƒcÑÒ
\"Ò	Z\"\"‚dƈÑ@A\"*ˆA‰ˆ‚3)ˆÌÓ!+‡" [keep dired-kept-versions early-retention kept-old-versions late-retention file-version-assoc-list nil fval sorted-v-list v-count prefix-numeric-value 0 dired-map-dired-file-lines dired-collect-file-versions q sort < rplacd nthcdr dired-trample-file-versions] 10))

(defun dired-collect-file-versions (ignore fn) "\
If it looks like fn has versions, we make a list of the versions.
We may want to flag some for deletion." (byte-code "Æ	!ÇPGÈÉ	!\"ÊË\"ƒ#	B
B‰‚$Ì,‡" [base-versions fn bv-length possibilities versions file-version-assoc-list file-name-nondirectory ".~" file-name-all-completions file-name-directory mapcar backup-extract-version nil] 6))

(defun dired-trample-file-versions (ignore fn) (byte-code "ÄÅ	\"Æ…'Ç	ÈO\"‰…'É	Ê\\ÆO!
>?…'Ë *‡" [start-vn fn base-version-list file-version-assoc-list string-match "\\.~[0-9]+~$" nil assoc 0 string-to-int 2 dired-flag-this-line-for-DEATH] 6))

(defun dired-flag-this-line-for-DEATH nil (byte-code "À ˆÁÂ!ˆÃc‡" [beginning-of-line delete-char 1 "D"] 3))

(defun dired-flag-backup-files nil "\
Flag all backup files (names ending with ~) for deletion." (interactive) (byte-code "ÁˆŠ	ebˆm?…7ÂÃ!?…/l?…/Ä ˆÅÆ!ˆÂÇ!…/È ˆÉÊ!ˆËcˆÌÊ!ˆ‚))‡" [buffer-read-only nil looking-at "  d" end-of-line forward-char -1 "~" beginning-of-line delete-char 1 "D" forward-line] 9))

(defun dired-flag-backup-and-auto-save-files nil "\
Flag all backup and temporary files for deletion.
Backup files have names ending in ~.  Auto save file names usually
start with #." (interactive) (byte-code "ÀˆÁ ˆÂ ‡" [nil dired-flag-backup-files dired-flag-auto-save-files] 3))

(defun dired-rename-file (to-file) "\
Rename this file to TO-FILE." (interactive "FRename to: ") (byte-code "ˆÃ!‰ˆÄÅ \"ˆ
Æ ˆÇ`ÈÉ!ˆ`\"ˆÃ!‰ˆÊË!Ì!\")‡" [to-file buffer-read-only nil expand-file-name rename-file dired-get-filename beginning-of-line delete-region forward-line 1 dired-add-entry file-name-directory file-name-nondirectory] 12))

(defun dired-copy-file (to-file) "\
Copy this file to TO-FILE." (interactive "FCopy to: ") (byte-code "ÁˆÂà \"ˆÄ!‰ˆÅÆ!Ç!\"‡" [to-file nil copy-file dired-get-filename expand-file-name dired-add-entry file-name-directory file-name-nondirectory] 8))

(defun dired-add-entry (directory filename) (byte-code "É	\"ƒHÊËÌ
P&ˆÍÎ!ˆÏcˆÐ ˆ`Ñ ˆ`Ò\"‰ˆÓ\"ˆÔ!c*ˆÕ )‚IÇ" [directory default-directory buffer-read-only nil t dired-listing-switches filename beg end string-equal call-process "ls" "-d" forward-line -1 "  " dired-move-to-filename end-of-line buffer-substring delete-region file-name-nondirectory beginning-of-line] 10))

(defun dired-do-deletions nil "\
In dired, delete the files flagged for deletion." (interactive) (byte-code "ˆÂŠÉbˆÊË
#… Ì!`SBB‰ˆ‚
)ˆ?ƒ-ÍÎ!‚iÏ‹ˆ	ƒhÂ
…S
@Abˆ
ÂÐÑ�)ˆ
A‰ˆ‚9ˆƒcÍÒÓ!\"‚dÂ*‚iÂ*‡" [delete-list answer nil t fill-column l failures buffer-read-only default-directory 1 re-search-forward "^D" dired-get-filename message "(No deletions requested)" ((byte-code "ÄÅ!ˆÆ ˆÇ‰ˆÈ
!	…<iÉVƒÊc‚.o†.ËÌÍiÎ\\Ï\"Ï\"Ð\"ˆ	@@cˆ	A‰ˆ‚)ˆebˆÑÒ!‰‡" [fill-column l delete-list answer switch-to-buffer " *Deletions*" erase-buffer 70 reverse 59 10 indent-to * / 19 20 1 yes-or-no-p "Delete these files? "] 9)) (byte-code "Â	@@P!ˆÃ`ÄÅ!ˆ`\"‡" [default-directory l delete-file delete-region forward-line 1] 5) ((error (byte-code "ÂÃ!ˆÄcˆ	@@B‰‡" [failures l delete-char 1 " "] 3))) "Deletions failed: %s" prin1-to-string] 7))