gnu1987/emacs-16.56/lisp/dired.elc

(defvar dired-listing-switches "-al" "Switches passed to ls for dired. MUST contain the 'l' option.
CANNOT contain the 'F' option.")

(or (fboundp (quote view-file)) (autoload (quote view-file) "view" "View FILE in View mode, returning to previous buffer when done.
The usual Emacs commands are not available; instead,
a special set of commands (mostly letters and punctuation)
are defined for moving around in the buffer.
Space scrolls forward, Delete scrolls backward.
For list of all View commands, type ? or h while viewing." t))

(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] 21))

(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] 20))

(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 mark files for deletion with C-d
and then delete them by typing `x'.
Type `h' after entering dired for more info." (interactive (list (read-file-name "Dired (directory): " nil default-directory nil))) (byte-code "ÀˆÃÄ
!!‡" [nil default-directory dirname switch-to-buffer dired-noselect] 4))

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

(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-mode] 19))

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

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

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

(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 mark a file for Deletion.
Type u to Unmark a file (remove its D mark).
  Type Rubout to back up one line and unmark.
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 mark temporary files (names beginning with #) for Deletion.
Type ~ to mark backup files (names ending with ~) for Deletion.
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." (byte-code "Ì ˆÍÀ!ˆÎ‰ˆÏ‰ˆÐ‰ˆÍÃ!ˆ‰ˆÑ!ƒ%‚(Ò!‰ˆ‰ˆÓÔQ‰ˆ	?ƒ¦Õ ‰	ˆÖ	!ˆ	×ØIˆ	ÙÚIˆ	ÛÚIˆ	ÜÝIˆ	ÞßIˆ	àáIˆ	âãIˆ	äåIˆ	æçIˆ	èéIˆ	êëIˆ	ìíIˆ	îïIˆ	ðñIˆ	òóI‚§Çˆ‰
ˆô	!‡" [revert-buffer-function major-mode mode-name dired-directory dirname default-directory case-fold-search nil mode-line-format dired-mode-map buffer-read-only t kill-all-local-variables make-local-variable dired-revert dired-mode "Dired" file-directory-p file-name-directory "--Directory " "      %M   %[(%m)%]----%p--%-" make-keymap suppress-keymap 114 dired-rename-file 4 dired-mark-file-deleted 100 118 dired-view-file 102 dired-find-file 111 dired-find-file-other-window 117 dired-unmark 120 dired-do-deletions 127 dired-backup-unmark 63 dired-summary 99 dired-copy-file 35 dired-mark-auto-save-files 126 dired-mark-backup-files 104 describe-mode 32 next-line use-local-map] 23))

(defun dired-repeat-over-lines (arg function) (byte-code " ˆÃV…m?…S‰ˆÄ	!ˆÅÆ!ˆ‚ˆÃW…'o?…:T‰ˆÅÇ!ˆÄ	!ˆ‚‡" [arg function beginning-of-line 0 funcall forward-line 1 -1] 11))

(defun dired-mark-file-deleted (arg) "\
In dired, mark 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"] 3))

(defun dired-unmark (arg) "\
In dired, mark 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-unmark (arg) "\
In dired, move up a line and remove deletion mark there." (interactive "p") (byte-code "ÁˆÂ[!‡" [arg nil dired-unmark] 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] 10))

(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" view-file dired-get-filename] 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] 10))

(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)‚?Å))‡" [eol no-error-if-not-filep beg localp default-directory 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] 20))

(defun dired-move-to-filename nil "\
In dired, move to first char of filename on this line.
Returns position (dot) 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] 13))

(defun dired-mark-auto-save-files nil "\
Mark 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] 22))

(defun dired-mark-backup-files nil "\
Mark 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] 15))

(defun dired-mark-backup-and-auto-save-files nil "\
Mark 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-mark-backup-files dired-mark-auto-save-files] 4))

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

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

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

(defun dired-do-deletions nil "\
In dired, delete the files marked for deletion." (interactive) (byte-code "ˆÂŠÈbˆÉÊ
#… Ë!`SBB‰ˆ‚
)ˆ?ƒ-ÌÍ!‚U΋ˆ	ƒT
…P
@Abˆ
ÂÏÐ�)ˆ
A‰ˆ‚6)‚UÂ*‡" [delete-list answer nil t fill-column l 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? "] 17)) (byte-code "Â	@@P!ˆÃ`ÄÅ!ˆ`\"‡" [default-directory l delete-file delete-region forward-line 1] 6) ((error (byte-code "ÀÁ!ˆÂc‡" [delete-char 1 " "] 3)))] 20))