;ELC ;;; compiled by kwzh@nutrimat.gnu.ai.mit.edu on Thu Jun 15 16:30:36 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/dired.el ;;; emacs version 19.28.94.2. ;;; 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.28.90"))) (error "`dired.el' was compiled for Emacs 19.29 or later")) #@243 *Switches passed to `ls' for dired. MUST contain the `l' option. May contain all other options that don't contradict `-l'; may contain even `F', `b', `i' and `s'. See also the variable `dired-ls-F-marks-symlinks' concerning the `F' switch. (defvar dired-listing-switches "-al" (#$ . -478)) #@58 Name of chown command (usually `chown' or `/etc/chown'). (defvar dired-chown-program (byte-code ">‡Ç" [system-type (hpux dgux usg-unix-v irix linux) "chown" "/etc/chown"] 2) (#$ . 776)) #@54 Name of chmod command (usually `chmod' or `chmode'). (defvar dired-chmod-program (byte-code "=‡Ç" [system-type windows-nt "chmode" "chmod"] 2) (#$ . 975)) #@559 *Informs dired about how `ls -lF' marks symbolic links. Set this to t if `insert-directory-program' with `-lF' marks the symbolic link itself with a trailing @ (usually the case under Ultrix). Example: if `ln -s foo bar; ls -F bar' gives `bar -> foo', set it to nil (the default), if it gives `bar@ -> foo', set it to t. Dired checks if there is really a @ appended. Thus, if you have a marking `ls' program on one host and a non-marking on another host, and don't care about symbolic links which really end in a @, you can always set this variable to t. (defvar dired-ls-F-marks-symlinks nil (#$ . -1144)) #@151 *Regexp of files to skip when finding first file of a directory. A value of nil means move to the subdir line. A value of t means move to first file. (defvar dired-trivial-filenames "^\\.\\.?$\\|^#" (#$ . -1761)) #@205 *Controls marking of renamed files. If t, files keep their previous marks when they are renamed. If a character, renamed files (whether previously marked or not) are afterward marked with that character. (defvar dired-keep-marker-rename t (#$ . -1981)) #@192 *Controls marking of copied files. If t, copied files are marked if and as the corresponding original files were. If a character, copied files are unconditionally marked with that character. (defvar dired-keep-marker-copy 67 (#$ . -2241)) #@184 *Controls marking of newly made hard links. If t, they are marked if and as the files linked to were marked. If a character, new links are unconditionally marked with that character. (defvar dired-keep-marker-hardlink 72 (#$ . -2487)) #@188 *Controls marking of newly made symbolic links. If t, they are marked if and as the files linked to were marked. If a character, new links are unconditionally marked with that character. (defvar dired-keep-marker-symlink 89 (#$ . -2729)) #@269 *If non-nil, dired tries to guess a default target directory. This means: if there is a dired buffer displayed in the next window, use its current subdir, instead of the current subdir of this dired buffer. The target is used in the prompt for file copy, rename etc. (defvar dired-dwim-target nil (#$ . -2974)) #@104 *If non-nil, Dired preserves the last-modified time in a file copy. (This works on only some systems.) (defvar dired-copy-preserve-time t (#$ . -3293)) #@52 Additional expressions to highlight in Dired mode. (defvar dired-font-lock-keywords (quote (("^ \\(/.+\\)" 1 font-lock-type-face) ("\\([^ ]+\\) -> [^ ]+$" . font-lock-function-name-face) ("^[^ ]" . font-lock-reference-face) ("^..d.* \\([^ ]+\\)$" 1 font-lock-keyword-face))) (#$ . 3451)) #@87 Run after loading dired. You can customize key bindings or load extensions with this. (defvar dired-load-hook nil (#$ . 3746)) #@36 Run at the very end of dired-mode. (defvar dired-mode-hook nil (#$ . 3879)) #@74 This hook is run before a dired buffer is read in (created or reverted). (defvar dired-before-readin-hook nil (#$ . 3961)) #@165 Hook run after each time a file or directory is read by Dired. After each listing of a file or directory, this hook is run with the buffer narrowed to the listing. (defvar dired-after-readin-hook nil (#$ . 4091)) #@115 In Dired, the current mark character. This is what the `do' commands look for and what the `mark' commands store. (defvar dired-marker-char 42 (#$ . 4311)) #@44 Character used to flag files for deletion. (defvar dired-del-marker 68 (#$ . 4473)) #@73 Non-nil means Dired shrinks the display buffer to fit the marked files. (defvar dired-shrink-to-fit t (#$ . 4563)) (byte-code "! B B‡" [boundp dired-flagging-regexp nil current-load-list dired-file-version-alist] 2) #@202 The directory name or shell wildcard that was used as argument to `ls'. Local to each dired buffer. May be a list, in which case the car is the directory name and the cdr is the actual files to list. (defvar dired-directory nil (#$ . 4798)) #@72 The value of `dired-listing-switches' used to make this buffer's text. (defvar dired-actual-switches nil (#$ . 5046)) #@72 Regexp for optional initial inode and file size as made by `ls -i -s'. (defvar dired-re-inode-size "[0-9 ]*" (#$ . 5170)) (byte-code "! B! B!%\fQ B!6\fQ B!G# B!T B!a B" [boundp dired-re-mark "^[^ \n]" current-load-list dired-re-maybe-mark "^. " dired-re-dir dired-re-inode-size "d" dired-re-sym "l" dired-re-exe mapconcat #[(x) " \nQ" [dired-re-maybe-mark dired-re-inode-size x] 3] ("-[-r][-w][xs][-r][-w].[-r][-w]." "-[-r][-w].[-r][-w][xs][-r][-w]." "-[-r][-w].[-r][-w].[-r][-w][xst]") "\\|" dired-re-perms "[-bcdlps][-r][-w].[-r][-w].[-r][-w]." dired-re-dot "^.* \\.\\.?$"] 4) #@237 Association list of subdirectories and their buffer positions. Each subdirectory has an element: (DIRNAME . STARTMARKER). The order of elements is the reverse of the order in the buffer. In simple cases, this list contains one element. (defvar dired-subdir-alist nil (#$ . 5831)) #@278 Regexp matching a maybe hidden subdirectory line in `ls -lR' output. Subexpression 1 is the subdirectory proper, no trailing colon. The match starts at the beginning of the line and ends after the end of the line (\n or \r). Subexpression 2 must end right before the \n or \r. (defvar dired-subdir-regexp "^. \\([^\n ]+\\)\\(:\\)[\n ]" (#$ . 6118)) (defalias 'dired-mark-if '(macro . #[(predicate msg) " EE BBBBB BBBBEBBB" [let (buffer-read-only count) save-excursion (setq count 0) if msg message "Marking %ss..." (goto-char (point-min)) while (not (eobp)) predicate ((progn (delete-char 1) (insert dired-marker-char) (setq count (1+ count)))) ((forward-line 1)) "%s %s%s %s%s." count ((dired-plural-s count) (if (eq dired-marker-char 32) "un" "") (if (eq dired-marker-char dired-del-marker) "flagged" "marked")) ((and (> count 0) count))] 14])) (defalias 'dired-map-over-marks '(macro . #[(body arg &optional show-progress) "\f\fD\f BBBBEFDE\fBBBBEDF BBBBEBBBBBFDFFFEBB" [prog1 let (buffer-read-only case-fold-search found results) if arg integerp progn dired-repeat-over-lines function lambda nil show-progress ((sit-for 0)) setq results cons body (results) < (0) ((nreverse results) results) list ((regexp (dired-marker-regexp)) next-position) save-excursion (goto-char (point-min)) (setq next-position (and (re-search-forward regexp nil t) (point-marker)) found (not (null next-position))) while next-position (goto-char next-position) ((sit-for 0)) (results) ((goto-char next-position) (forward-line 1) (set-marker next-position nil) (setq next-position (and (re-search-forward regexp nil t) (point-marker)))) found ((dired-move-to-filename))] 20])) #@442 Return the marked files' names as list of strings. The list is in the same order as the buffer, that is, the car is the first marked file. Values returned are normally absolute pathnames. Optional arg LOCALP as in `dired-get-filename'. Optional second argument ARG forces to use other files. If ARG is an integer, use the next ARG files. If ARG is otherwise non-nil, use current file. Usually ARG comes from the current prefix arg. (defalias 'dired-get-marked-files #[(&optional localp arg) " . & \" W\" \n!C \f eb #D \f??\fx\fb\n! B\fby\f #r \fO)\n \n!C*, )" [nil results found case-fold-search buffer-read-only arg dired-repeat-over-lines #[nil " !\nB" [dired-get-filename localp results] 2] 0 dired-get-filename localp dired-marker-regexp next-position regexp re-search-forward t point-marker 1 dired-move-to-filename] 5 (#$ . 7859)]) (defalias 'dired-read-dir-and-switches #[(str) " \f\"\"\n$D!" [reverse current-prefix-arg read-string "Dired listing switches: " dired-listing-switches read-file-name format "Dired %s(directory): " str nil default-directory] 7]) #@799 "Edit" directory DIRNAME--delete, rename, print, etc. some files in it. Optional second argument SWITCHES specifies the `ls' options used. (Interactively, use a prefix argument to be able to specify SWITCHES.) Dired displays a list of files in DIRNAME (which may also have shell wildcards appended to select certain files). If DIRNAME is a cons, its first element is taken as the directory name and the resr as an explicit list of files to make directory entries for. \You can move around in it with the usual commands. You can flag files for deletion with \[dired-flag-file-deletion] and then delete them by typing \[dired-do-flagged-delete]. Type \[describe-mode] after entering dired for more info. If DIRNAME is already in a dired buffer, that buffer is used without refresh. (defalias 'dired #[(dirname &optional switches) "\n \"!" [switch-to-buffer dired-noselect dirname switches] 4 (#$ . 9050) (dired-read-dir-and-switches "")]) #@72 "Edit" directory DIRNAME. Like `dired' but selects in another window. (defalias 'dired-other-window #[(dirname &optional switches) "\n \"!" [switch-to-buffer-other-window dired-noselect dirname switches] 4 (#$ . 10014) (dired-read-dir-and-switches "in other window ")]) #@64 "Edit" directory DIRNAME. Like `dired' but makes a new frame. (defalias 'dired-other-frame #[(dirname &optional switches) "\n \"!" [switch-to-buffer-other-frame dired-noselect dirname switches] 4 (#$ . 10294) (dired-read-dir-and-switches "in other frame ")]) #@73 Like `dired' but returns the dired buffer as value, does not select it. (defalias 'dired-noselect #[(dir-or-list &optional switches) " :@ !!! !' !:4 AB6 \n\")" [dir-or-list default-directory nil dirname abbreviate-file-name expand-file-name directory-file-name file-directory-p file-name-as-directory dired-internal-noselect switches] 4 (#$ . 10563)]) (defalias 'dired-internal-noselect #[(dir-or-list &optional switches) ":\n@ !?p # !!) q\fs\n7\n! ! =f@=?f8@@Uf8A@AU*!! !} !\n\n \n\"܎ \"*!eb ! q ," [dir-or-list dirname dired-find-buffer-nocreate buffer new-buffer-p old-buf fundamental-mode default-major-mode create-file-buffer directory-file-name switches dired-sort-other file-attributes visited-file-modtime modtime attributes 0 t 5 message substitute-command-keys "Directory has changed on disk; type \\[revert-buffer] to update Dired" file-directory-p file-name-directory default-directory dired-listing-switches dired-mode failed ((byte-code "\n!" [failed kill-buffer buffer] 2)) dired-readin nil run-hooks dired-after-readin-hook dired-initial-position] 4]) (defalias 'dired-find-buffer-nocreate #[(dirname) " \n;\n@A!\nA\n@Aq =44\n@A7\nA) *" [nil dired-buffers blist found buffer-name major-mode dired-mode dired-directory dirname] 3]) (defalias 'dired-readin #[(dir-or-list buffer) "\n: \n@\n !\n: \nAB! \"q\n ~ \n!ed#eb!* \"!L !@=j8!)!*" [nil dirname dir-or-list expand-file-name run-hooks dired-before-readin-hook message "Reading directory %s..." buffer t failed buffer-read-only erase-buffer dired-readin-insert indent-rigidly 2 dired-insert-headerline default-directory "Reading directory %s...done" make-local-variable dired-subdir-alist dired-build-subdir-alist file-attributes attributes set-visited-file-modtime 5 set-buffer-modified-p] 5]) (defalias 'dired-readin-insert #[(dir-or-list) "\n: \n@\n\f! !(\n:(\n$N !!!9 \"N\n\n#-\nb #R#A )\n`\"* " [nil end opoint dir-or-list mapcar #[(x) " \n \f$" [insert-directory x switches wildcard full-p] 5] insert-directory expand-file-name switches wildcard full-p string-match "b" dired-actual-switches point-marker search-forward "\\" t replace-match "\\\\" " " "\\015" dired-insert-set-properties dired-directory] 5]) (defalias 'dired-insert-set-properties #[(beg end) "b` W! ` `)$y)" [beg end dired-move-to-filename put-text-property dired-move-to-end-of-filename mouse-face highlight 1] 5]) (defalias 'dired-insert-headerline #[(dir) "\n!ñ)" [" " directory-file-name dir ":\n"] 3]) (defalias 'dired-revert #[(&optional arg noconfirm) "~`\" !A \n \febed\"\n:4@6!p\"!)\n!! \\ !`\fb  \"." [dired-get-filename nil t dired-remember-hidden reverse dired-subdir-alist buffer-read-only case-fold-search old-subdir-alist hidden-subdirs mark-alist ofile opoint dired-remember-marks dired-uncache dired-directory dired-readin dired-after-readin-hook dired-insert-old-subdirs dired-mark-remembered run-hooks dired-goto-file dired-move-to-filename mapcar #[(dir) " ! !" [dired-goto-subdir dir dired-hide-subdir 1] 2]] 7]) (defalias 'dired-remember-marks #[(beg end) "\f $) \n\fb\f #>\"\nh \n BB)+" [selective-display nil buffer-read-only subst-char-in-region beg end 13 10 alist chr fil re-search-forward dired-re-mark t dired-get-filename] 5]) (defalias 'dired-mark-remembered #[(alist) "\f+\f@\fA @ A\n!y! c)+" [nil chr fil elt alist dired-goto-file 0 delete-char 1] 3]) (defalias 'dired-remember-hidden #[nil " + @@ @A A bwg=\f\nB\n," [dired-subdir-alist nil result pos dir l "^ \n" 13] 4]) (defalias 'dired-insert-old-subdirs #[(old-subdir-alist) "\n\"%É$@A @ȏ *" [string-match "R" dired-actual-switches nil dir elt old-subdir-alist (byte-code " ! !" [dired-uncache dir dired-insert-subdir] 2) ((error))] 3]) (defalias 'dired-uncache #[(dir) " \" \")" [find-file-name-handler dir dired-uncache handler] 4]) #@38 Local keymap for dired-mode buffers. (defvar dired-mode-map nil (#$ . 15322)) (byte-code " !##############################@#AB#CD#EF#GH#IJ#KL#MN#OP#QR#SN#TU#VW#XY#Z[#\\[#]^#_`#ab#cd#ef#gh#ij#kl#mn#op#qr#st#uv#wx#yz#{|#}~####l#l#r#l#r########!B###########!B########!B#########!B##############!B############## #\n #\f #" [dired-mode-map make-keymap suppress-keymap define-key [mouse-2] dired-mouse-find-file-other-window "#" dired-flag-auto-save-files "*" dired-mark-executables "." dired-clean-directory "/" dired-mark-directories "@" dired-mark-symlinks "~" dired-flag-backup-files "A" dired-do-search "C" dired-do-copy "B" dired-do-byte-compile "D" dired-do-delete "G" dired-do-chgrp "H" dired-do-hardlink "L" dired-do-load "M" dired-do-chmod "O" dired-do-chown "P" dired-do-print "Q" dired-do-query-replace "R" dired-do-rename "S" dired-do-symlink "X" dired-do-shell-command "Z" dired-do-compress "!" "=" dired-diff "" dired-backup-diff "" dired-unmark-all-files "" dired-tree-down "" dired-tree-up "" dired-next-subdir "" dired-prev-subdir "" dired-prev-marked-file "" dired-next-marked-file "%" nil "%u" dired-upcase "%l" dired-downcase "%d" dired-flag-files-regexp "%m" dired-mark-files-regexp "%r" dired-do-rename-regexp "%C" dired-do-copy-regexp "%H" dired-do-hardlink-regexp "%R" "%S" dired-do-symlink-regexp "c" dired-change-marks "d" dired-flag-file-deletion "e" dired-find-file "f" " " dired-advertised-find-file "g" revert-buffer "h" describe-mode "i" dired-maybe-insert-subdir "k" dired-do-kill-lines "l" dired-do-redisplay "m" dired-mark "n" dired-next-line "o" dired-find-file-other-window "" dired-display-file "p" dired-previous-line "q" dired-quit "s" dired-sort-toggle-or-edit "u" dired-unmark "v" dired-view-file "x" dired-do-flagged-delete "+" dired-create-directory "<" dired-prev-dirline ">" dired-next-dirline "^" dired-up-directory " " "" "" [down] [up] "$" dired-hide-subdir "" dired-hide-all "?" dired-summary "" dired-unmark-backward "" dired-undo "u" [menu-bar edit] undefined [menu-bar subdir] "Subdir" make-sparse-keymap [menu-bar subdir hide-all] ("Hide All" . dired-hide-all) [menu-bar subdir hide-subdir] ("Hide Subdir" . dired-hide-subdir) [menu-bar subdir tree-down] ("Tree Down" . dired-tree-down) [menu-bar subdir tree-up] ("Tree Up" . dired-tree-up) [menu-bar subdir up] ("Up Directory" . dired-up-directory) [menu-bar subdir prev-subdir] ("Prev Subdir" . dired-prev-subdir) [menu-bar subdir next-subdir] ("Next Subdir" . dired-next-subdir) [menu-bar subdir prev-dirline] ("Prev Dirline" . dired-prev-dirline) [menu-bar subdir next-dirline] ("Next Dirline" . dired-next-dirline) [menu-bar subdir insert] ("Insert This Subdir" . dired-maybe-insert-subdir) [menu-bar immediate] "Immediate" [menu-bar immediate backup-diff] ("Compare with Backup" . dired-backup-diff) [menu-bar immediate diff] ("Diff" . dired-diff) [menu-bar immediate view] ("View This File" . dired-view-file) [menu-bar immediate display] ("Display in Other Window" . dired-display-file) [menu-bar immediate find-file-other-window] ("Find in Other Window" . dired-find-file-other-window) [menu-bar immediate find-file] ("Find This File" . dired-find-file) [menu-bar immediate create-directory] ("Create Directory..." . dired-create-directory) [menu-bar regexp] "Regexp" [menu-bar regexp downcase] ("Downcase" . dired-downcase) [menu-bar regexp upcase] ("Upcase" . dired-upcase) [menu-bar regexp hardlink] ("Hardlink..." . dired-do-hardlink-regexp) [menu-bar regexp symlink] ("Symlink..." . dired-do-symlink-regexp) [menu-bar regexp rename] ("Rename..." . dired-do-rename-regexp) [menu-bar regexp copy] ("Copy..." . dired-do-copy-regexp) [menu-bar regexp flag] ("Flag..." . dired-flag-files-regexp) [menu-bar regexp mark] ("Mark..." . dired-mark-files-regexp) [menu-bar mark] "Mark" [menu-bar mark prev] ("Previous Marked" . dired-prev-marked-file) [menu-bar mark next] ("Next Marked" . dired-next-marked-file) [menu-bar mark marks] ("Change Marks..." . dired-change-marks) [menu-bar mark unmark-all] ("Unmark All" . dired-unmark-all-files-no-query) [menu-bar mark symlinks] ("Mark Symlinks" . dired-mark-symlinks) [menu-bar mark directories] ("Mark Directories" . dired-mark-directories) [menu-bar mark directory] ("Mark Old Backups" . dired-clean-directory) [menu-bar mark executables] ("Mark Executables" . dired-mark-executables) [menu-bar mark backup-files] ("Flag Backup Files" . dired-flag-backup-files) [menu-bar mark auto-save-files] ("Flag Auto-save Files" . dired-flag-auto-save-files) [menu-bar mark deletion] ("Flag" . dired-flag-file-deletion) [menu-bar mark unmark] ("Unmark" . dired-unmark) [menu-bar mark mark] ("Mark" . dired-mark) [menu-bar operate] "Operate" [menu-bar operate query-replace] ("Query Replace in Files..." . dired-do-query-replace) [menu-bar operate search] ("Search Files..." . dired-do-search) [menu-bar operate chown] ("Change Owner..." . dired-do-chown) [menu-bar operate chgrp] ("Change Group..." . dired-do-chgrp) [menu-bar operate chmod] ("Change Mode..." . dired-do-chmod) [menu-bar operate load] ("Load" . dired-do-load) [menu-bar operate compile] ("Byte-compile" . dired-do-byte-compile) [menu-bar operate compress] ("Compress" . dired-do-compress) [menu-bar operate print] ("Print" . dired-do-print) [menu-bar operate hardlink] ("Hardlink to..." . dired-do-hardlink) [menu-bar operate symlink] ("Symlink to..." . dired-do-symlink) [menu-bar operate command] ("Shell Command..." . dired-do-shell-command) [menu-bar operate delete] ("Delete" . dired-do-delete) [menu-bar operate rename] ("Rename to..." . dired-do-rename) [menu-bar operate copy] ("Copy to..." . dired-do-copy) put dired-mode mode-class special] 6) #@2928 Mode for "editing" directory listings. In dired, you are "editing" a list of the files in a directory and (optionally) its subdirectories, in the format of `ls -lR'. Each directory is a page: use \[backward-page] and \[forward-page] to move pagewise. "Editing" means that you can run shell commands on files, visit, compress, load or byte-compile them, change their file attributes and insert subdirectories into the same buffer. You can "mark" files for later commands or "flag" them for deletion, either file by file or all files matching certain criteria. You can move using the usual cursor motion commands.\ Letters no longer insert themselves. Digits are prefix arguments. Instead, type \[dired-flag-file-deletion] to flag a file for Deletion. Type \[dired-mark] to Mark a file or subdirectory for later commands. Most commands operate on the marked files and use the current file if no files are marked. Use a numeric prefix argument to operate on the next ARG (or previous -ARG if ARG<0) files, or just `1' to operate on the current file only. Prefix arguments override marks. Mark-using commands display a list of failures afterwards. Type \[dired-summary] to see why something went wrong. Type \[dired-unmark] to Unmark a file or all files of a subdirectory. Type \[dired-unmark-backward] to back up one line and unflag. Type \[dired-do-flagged-delete] to eXecute the deletions requested. Type \[dired-advertised-find-file] to Find the current line's file (or dired it in another buffer, if it is a directory). Type \[dired-find-file-other-window] to find file or dired directory in Other window. Type \[dired-maybe-insert-subdir] to Insert a subdirectory in this buffer. Type \[dired-do-rename] to Rename a file or move the marked files to another directory. Type \[dired-do-copy] to Copy files. Type \[dired-sort-toggle-or-edit] to toggle sorting by name/date or change the `ls' switches. Type \[revert-buffer] to read all currently expanded directories again. This retains all marks and hides subdirs again that were hidden before. SPC and DEL can be used to move down and up by lines. If dired ever gets confused, you can either type \[revert-buffer] to read the directories again, type \[dired-do-redisplay] to relist a single or the marked files or a subdirectory, or type \[dired-build-subdir-alist] to parse the buffer again for the directory tree. Customization variables (rename this buffer and type \[describe-variable] on each line for more info): dired-listing-switches dired-trivial-filenames dired-shrink-to-fit dired-marker-char dired-del-marker dired-keep-marker-rename dired-keep-marker-copy dired-keep-marker-hardlink dired-keep-marker-symlink Hooks (use \[describe-variable] to see their documentation): dired-before-readin-hook dired-after-readin-hook dired-mode-hook dired-load-hook Keybindings: \{dired-mode-map} (defalias 'dired-mode #[(&optional dirname switches) " \n!  \n\f!L!L!.L!!L!CL!L\"!" [kill-all-local-variables use-local-map dired-mode-map dired-advertise dired-mode major-mode "Dired" mode-name t buffer-read-only selective-display ("Dired: %17b") mode-line-buffer-identification make-local-variable revert-buffer-function dired-revert page-delimiter "\n\n" dired-directory dirname default-directory list-buffers-directory expand-file-name dired-actual-switches switches dired-listing-switches font-lock-defaults (dired-font-lock-keywords t) dired-sort-other run-hooks dired-mode-hook] 3 (#$ . 22087)]) #@32 Bury the current dired buffer. (defalias 'dired-quit #[nil " " [bury-buffer] 1 (#$ . 25684) nil]) #@62 Summarize basic Dired commands and show recent Dired errors. (defalias 'dired-summary #[nil " !" [dired-why message "d-elete, u-ndelete, x-punge, f-ind, o-ther window, R-ename, C-opy, h-elp"] 2 (#$ . 25790) nil]) #@251 Undo in a dired buffer. This doesn't recover lost files, it just undoes changes in the buffer itself. You can use it to recover marks, killed lines or subdirs. In the latter case, you have to do \[dired-build-subdir-alist] to parse the buffer again. (defalias 'dired-undo #[nil " )" [nil buffer-read-only undo] 1 (#$ . 26015) nil]) #@114 Move down lines then position at filename. Optional prefix ARG says how many lines to move; default is one line. (defalias 'dired-next-line #[(arg) " ! " [next-line arg dired-move-to-filename] 2 (#$ . 26358) "p"]) #@112 Move up lines then position at filename. Optional prefix ARG says how many lines to move; default is one line. (defalias 'dired-previous-line #[(arg) " ! " [previous-line arg dired-move-to-filename] 2 (#$ . 26583) "p"]) #@39 Goto ARG'th next directory file line. (defalias 'dired-next-dirline #[(arg &optional opoint) "` V\f $y\f [$% b!" [opoint arg 0 re-search-forward dired-re-dir nil t re-search-backward dired-move-to-filename error "No more subdirectories"] 5 (#$ . 26813) "p"]) #@43 Goto ARG'th previous directory file line. (defalias 'dired-prev-dirline #[(arg) " [!" [dired-next-dirline arg] 2 (#$ . 27107) "p"]) #@151 Run dired on parent directory of current directory. Find the parent directory either in this buffer or another buffer. Creates a buffer if necessary. (defalias 'dired-up-directory #[nil "  !! !!$A\f!$\f! !*" [dired-current-directory dir file-name-directory directory-file-name up dired-goto-file dired-subdir-alist dired-goto-subdir dired] 3 (#$ . 27248) nil]) (defalias (quote dired-advertised-find-file) (quote dired-find-file)) #@59 In dired, visit the file or directory named on this line. (defalias 'dired-find-file #[nil " \"!" [find-file file-name-sans-versions dired-get-filename t] 4 (#$ . 27706) nil]) #@58 In dired, visit the file or directory name you click on. (defalias 'dired-mouse-find-file-other-window #[(event) "  8:Ă 8)@)!q  8:+Ă, 8)A@:@A@@DA@)b *  8:YĂZ 8)@)! \"!)" [nil file window-buffer event 2 1 position dired-get-filename select-window find-file-other-window file-name-sans-versions t] 5 (#$ . 27893) "e"]) #@179 In dired, examine a file in view mode, returning to dired when done. When file is a directory, show it in this buffer if it is inserted; otherwise, display it in another buffer. (defalias 'dired-view-file #[nil " !\nA ! ! !" [file-directory-p dired-get-filename dired-subdir-alist dired-goto-subdir dired view-file] 2 (#$ . 28272) nil]) #@59 In dired, visit this file or directory in another window. (defalias 'dired-find-file-other-window #[nil " \"!" [find-file-other-window file-name-sans-versions dired-get-filename t] 4 (#$ . 28634) nil]) #@61 In dired, display this file or directory in another window. (defalias 'dired-display-file #[nil " \" !!)" [file-name-sans-versions dired-get-filename t file display-buffer find-file-noselect] 3 (#$ . 28847) nil]) #@430 In dired, return name of file mentioned on this line. Value returned normally includes the directory name. Optional arg LOCALP with value `no-dir' means don't include directory name in result. A value of t means construct name relative to `default-directory', which still may contain slashes if in a subdirectory. Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on this line, otherwise an error occurs. (defalias 'dired-get-filename #[(&optional localp no-error-if-not-filep) "?!!)\n$ $\n {@ G $ #< Q!=K U U! P," [nil p2 p1 file case-fold-search dired-move-to-filename no-error-if-not-filep dired-move-to-end-of-filename set-text-properties 0 read "\"" dired-string-replace-match "\\([^\\]\\)\"" "\\1\\\\\"" localp no-dir dired-current-directory] 6 (#$ . 29074)]) #@224 Replace first match of REGEXP in STRING with NEWTEXT. If it does not match, nil is returned instead of the new string. Optional arg LITERAL means to take NEWTEXT literally. Optional arg GLOBAL means to replace all matches. (defalias 'dired-string-replace-match #[(regexp string newtext &optional literal global) "OÉ \n#@”•\n O 1\f7\n\f\"Q\f M\nOP, \n#??x\n‰O k\fq\n\f\"\n•OQ" [global "" 0 nil me mb start result string-match regexp string literal newtext dired-expand-newtext] 5 (#$ . 29926)]) (defalias 'dired-make-absolute #[(file &optional dir) " \nP" [dir default-directory file] 2]) (defalias 'dired-make-relative #[(file &optional dir no-error) " GVHU!!P\",•O\n4#" [dir default-directory 0 126 expand-file-name string-match "^" regexp-quote file nil no-error error "%s: not in directory tree growing at %s"] 4]) #@72 Regular expression to match a month abbreviation followed by a number. (defvar dired-move-to-filename-regexp "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)[ ]+[0-9]+ [ 0-9][0-9][:0-9][0-9][ 0-9] " (#$ . 30874)) (defalias 'dired-move-to-filename #[(&optional raise-error eol) " `y\f#•b !" [eol nil 0 re-search-forward dired-move-to-filename-regexp t raise-error error "No file on this line"] 4]) (defalias 'dired-move-to-end-of-filename #[(&optional no-error) " \"``)\f/ #)#bҔf=\n]ՔՕ{֔֕{הו{Q\"kk!) #u\nh=u b\n>u`=\f!!`=?`." [nil eol used-F case-fold-search hidden symlink executable file-type opoint string-match "F" dired-actual-switches selective-display search-forward " " t re-search-backward "\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)" 1 108 "[xst]" 2 3 4 no-error error "No file on this line" " ->" -3 dired-ls-F-marks-symlinks 64 -1 (100 115) substitute-command-keys "File line is hidden, type \\[dired-hide-subdir] to unhide"] 9]) #@67 Alist of expanded directories and their associated dired buffers. (defvar dired-buffers nil (#$ . 32045)) (defalias 'dired-buffers-for-dir #[(dir) " !\nÉK@A\f!= @\"B \fq )\"B\fBB \n\"A," [file-name-as-directory dir dired-buffers nil buf elt result alist buffer-name dired-in-this-tree assoc dired-subdir-alist delq] 5]) (defalias 'dired-advertise #[nil " !p\n!>Ă\npB B)" [expand-file-name default-directory expanded-default dired-buffers-for-dir t dired-buffers] 3]) (defalias 'dired-unadvertise #[(dir) " !\f\"\f\"" [delq assoc expand-file-name dir dired-buffers] 4]) (defalias 'dired-in-this-tree #[(file dir) " !P\")" [nil case-fold-search string-match "^" regexp-quote dir file] 4]) (defalias 'dired-normalize-subdir #[(dir) "\n! \n\n\f\"!" [file-name-as-directory file-name-absolute-p dir expand-file-name default-directory] 4]) (defalias 'dired-get-subdir #[nil " y` \"!ZU *" [dired-current-directory cur-dir 0 dired-get-subdir-min assoc dired-subdir-alist] 5]) (defalias (quote dired-get-subdir-min) (quote cdr)) (defalias 'dired-get-subdir-max #[(elt) " !b )" [dired-get-subdir-min elt dired-subdir-max] 2]) (defalias 'dired-clear-alist #[nil "@!‰A‡" [dired-subdir-alist dired-get-subdir-min nil] 4]) (defalias 'dired-subdir-index #[(dir) "\n # @@ A\fT (\f+" [nil 0 dired-subdir-alist alist index found dir t] 3]) #@47 Go to next subdirectory, regardless of level. (defalias 'dired-next-subdir #[(arg &optional no-error-if-not-found no-skip) " \f!ZY\n 8!/ b\n+w`D\f?DVBςC\"+" [dired-current-directory nil index pos this-dir dired-subdir-index arg 0 dired-get-subdir-min dired-subdir-alist no-skip "^\n " no-error-if-not-found error "%s directory" "Last" "First"] 5 (#$ . 33520) "p"]) #@87 Build `dired-subdir-alist' by parsing the buffer. Returns the new value of the alist. (defalias 'dired-build-subdir-alist #[nil " ‰eb#\\byu \f͎!+\\Дb`Е{!`Е| c) T by )\" Vg \"," [dired-clear-alist 0 nil new-dir-name buffer-read-only count dired-subdir-alist re-search-forward dired-subdir-regexp t 2 match-data match-data ((store-match-data match-data)) looking-at dired-re-perms 1 expand-file-name dired-alist-add-1 point-marker message "Buffer includes %d directories"] 4 (#$ . 33935) nil]) (defalias 'dired-alist-add-1 #[(dir new-marker) " !\nB B" [dired-normalize-subdir dir new-marker dired-subdir-alist] 2]) (defalias 'dired-goto-next-nontrivial-file #[nil " ;&m?& \"!\"&y " [dired-goto-next-file dired-trivial-filenames string-match file-name-nondirectory dired-get-filename nil t "" 1 dired-move-to-filename] 6]) (defalias 'dired-goto-next-file #[nil " S ?` Wy)" [dired-subdir-max max dired-move-to-filename 1] 2]) #@47 Go to file line of FILE in this dired buffer. (defalias 'dired-goto-file #[(file) " !‰ ! \" \n!$eb- Aa !a !  `P#`\"Z :y9*) h b+" [directory-file-name file nil dir case-fold-search found file-name-directory error "Need absolute pathname for %s" expand-file-name default-directory dired-subdir-alist dired-goto-subdir file-name-nondirectory dired-subdir-max boundary base search-forward " " move dired-get-filename no-dir t dired-move-to-filename 1] 5 (#$ . 34974) (byte-code " \"!C " [expand-file-name read-file-name "Goto file: " dired-current-directory push-mark] 4)]) (defalias 'dired-initial-position #[(dirname) " " [nil dired-trivial-filenames dired-goto-next-nontrivial-file] 1]) #@210 Return the name of the subdirectory to which this line belongs. This returns a string with trailing slash, like `default-directory'. Optional argument means return a file name relative to `default-directory'. (defalias 'dired-current-directory #[(&optional localp) "` p\"É0@@ !X?*A =\f \">\f," [dired-subdir-alist error "No subdir-alist in %s" nil dir elt alist here dired-get-subdir-min localp dired-make-relative default-directory] 5 (#$ . 35748)]) (defalias 'dired-subdir-max #[nil "AÉ#d`)" [dired-subdir-alist dired-next-subdir 1 t] 4]) #@50 In dired, delete the files flagged for deletion. (defalias 'dired-do-flagged-delete #[nil " eb #)ĉ \n \feb #4 \f??\n\fj\fb `B B \fby\fĉ #d \f@)\nu z `BC. \"!+" [dired-del-marker dired-marker-char dired-marker-regexp regexp nil case-fold-search re-search-forward t dired-internal-do-deletions results found buffer-read-only next-position point-marker dired-get-filename 1 dired-move-to-filename message "(No deletions requested)"] 6 (#$ . 36352) nil]) #@40 Delete all marked (or next ARG) files. (defalias 'dired-do-delete #[(&optional arg) "2*\"W&\n\n `BC \f eb #H \f??\f|\fb `B\nB\fby\f #v \fS) \n `BC*, \"" [dired-internal-do-deletions nil results found case-fold-search buffer-read-only arg dired-repeat-over-lines #[nil " `B B" [dired-get-filename results] 2] 0 dired-get-filename dired-marker-regexp next-position regexp re-search-forward t point-marker 1 dired-move-to-filename] 6 (#$ . 36890) "P"]) (byte-code "! B" [boundp dired-deletion-confirmer yes-or-no-p current-load-list] 2) (defalias 'dired-internal-do-deletions #[(l arg) "\n\"\nG\" \"\"%g\nD\n@AbՏ)\nA/T !#cG !$\"*k!+ " [mapcar car l 0 succ count files dired-make-relative dired-mark-pop-up " *Deletions*" delete dired-deletion-confirmer format "Delete %s " dired-mark-prompt arg nil failures buffer-read-only err (byte-code "@@ !@= ! !T #y`y`| !)‡" [l fn file-attributes t delete-directory delete-file succ message "%s of %s deletions" count 0 1 dired-clean-up-after-deletion] 4) ((error (byte-code "\n\" @@\fB" [dired-log "%s\n" err l failures] 3))) message "%d deletion%s done" dired-plural-s dired-log-summary "%d of %d deletion%s failed" "(No deletions performed)" dired-move-to-filename] 11]) (defalias 'dired-clean-up-after-deletion #[(fn) "A\n! )" [dired-subdir-alist dired-goto-subdir fn dired-kill-subdir] 2]) (defalias 'dired-marker-regexp #[nil " !!P" ["^" regexp-quote char-to-string dired-marker-char] 4]) (defalias 'dired-plural-s #[(count) "U‡Ç" [count 1 "" "s"] 2]) (defalias 'dired-mark-prompt #[(arg files) "GU@  \"  #)" [files count 1 arg format "[next %d files]" "%c [%d files]" dired-marker-char] 5]) (defalias 'dired-pop-to-buffer #[(buf) "\n !! ʼn ! V2 !U2O !\\VO !UO qdbxe`\"niT)!\\X~ !!]TZ]\" \"!SW!!SZ!\"+" [dired-shrink-to-fit pop-to-buffer get-buffer-create buf selected-window nil w2 target-lines window window-height get-largest-window split-height-threshold frame-width window-width get-lru-window window-min-height "\n " count-lines display-buffer split-window set-window-buffer select-window enlarge-window set-window-start 1] 6]) (byte-code "! B‡" [boundp dired-no-confirm nil current-load-list] 2) (defalias 'dired-mark-pop-up #[(bufname op-symbol files function &rest args) "\n >\fGU\"!q \f!ed#)΋" [bufname " *Marked Files*" op-symbol dired-no-confirm files 1 apply function args get-buffer-create erase-buffer dired-format-columns-of-files remove-text-properties (mouse-face) ((byte-code " ! \f\"" [dired-pop-to-buffer bufname apply function args] 3))] 4]) (defalias 'dired-format-columns-of-files #[(files) "\f\"\"\\ !Z  ] \fG\f \f U2͂3\\\f! _\fZ\"GS\f\fW W}_j\f@c\fT^cT\fAT." [apply max mapcar length files 2 maxlen window-width selected-window width 1 columns nfiles 0 rows i j copy-sequence make-list "" "\n"] 6]) (defalias 'dired-repeat-over-lines #[(arg function) " y V<m< Sym% %yy `TƓ) ) b Wgog Tyo[ [yLy )< Ɖ )" [make-marker pos 0 arg dired-between-files 1 nil function -1 dired-move-to-filename] 3]) (defalias 'dired-between-files #[nil "!\n! )?" [looking-at "^$\\|^. *$\\|^. total\\|^. wildcard" dired-subdir-regexp dired-move-to-filename] 2]) #@70 Move to the next marked file, wrapping around the end of the buffer. (defalias 'dired-next-marked-file #[(arg &optional wrap opoint) "` V\f $y\f [$%  1b!! V?e@db #" [opoint arg 0 re-search-forward dired-re-mark nil t re-search-backward dired-move-to-filename wrap error "No next marked file" message "(Wraparound for next marked file)" dired-next-marked-file] 5 (#$ . 40613) "p\np"]) #@74 Move to the previous marked file, wrapping around the end of the buffer. (defalias 'dired-prev-marked-file #[(arg &optional wrap) " [\n\"" [dired-next-marked-file arg wrap] 3 (#$ . 41048) "p\np"]) (defalias 'dired-file-marker #[(file) " !ygÚ?g)" [dired-goto-file file 0 32] 2]) (defalias 'dired-mark-files-in-region #[(start end) "\n V\f!\nb` WB` W& &y !<\"<! cy)" [nil buffer-read-only start end error "start > end" dired-between-files 1 looking-at dired-re-dot dired-get-filename t delete-char dired-marker-char] 3]) #@225 Mark the current (or next ARG) files. If on a subdir headerline, mark all its files except `.' and `..'. Use \[dired-unmark-all-files] to remove all marks and \[dired-unmark] on a subdir to remove the marks in this subdir. (defalias 'dired-mark #[(arg) " \n )!\")" [dired-get-subdir dired-mark-subdir-files nil buffer-read-only dired-repeat-over-lines prefix-numeric-value arg #[nil "!\nc" [delete-char 1 dired-marker-char] 2]] 3 (#$ . 41628) "P"]) #@107 Unmark the current (or next ARG) files. If looking at a subdir, unmark all its files except `.' and `..'. (defalias 'dired-unmark #[(arg) " !)" [32 dired-marker-char dired-mark arg] 2 (#$ . 42103) "P"]) #@166 In dired, flag the current line's file for deletion. With prefix arg, repeat over several lines. If on a subdir headerline, mark all its files except `.' and `..'. (defalias 'dired-flag-file-deletion #[(arg) " !)" [dired-del-marker dired-marker-char dired-mark arg] 2 (#$ . 42317) "P"]) #@129 In dired, move up lines and remove deletion flag there. Optional prefix ARG says how many lines to unflag; default is one line. (defalias 'dired-unmark-backward #[(arg) " [!" [dired-unmark arg] 2 (#$ . 42616) "p"]) #@61 History list of regular expressions used in Dired commands. (defvar dired-regexp-history nil (#$ . 42839)) (defalias 'dired-read-regexp #[(prompt) " ‰%" [read-from-minibuffer prompt nil dired-regexp-history] 6]) #@271 Mark all files matching REGEXP for use in later commands. A prefix argument means to unmark them instead. `.' and `..' are never marked. REGEXP is an Emacs regexp, not a shell wildcard. Thus, use `\.o$' for object files--just `.o' will mark more than you might think. (defalias 'dired-mark-files-regexp #[(regexp &optional marker-char) " ‰\"ebmJ\n!DlD\" 6 !\")D! c Ty ! =[ւ\\ =gقh&) Vs +" [marker-char dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "matching file" looking-at dired-re-dot dired-get-filename t fn string-match regexp file-name-nondirectory delete-char 1 "%s %s%s %s%s." dired-plural-s 32 "un" "" dired-del-marker "flagged" "marked"] 9 (#$ . 43063) (list (dired-read-regexp (concat (if current-prefix-arg "Unmark" "Mark") " files (regexp): ")) (if current-prefix-arg 32))]) #@236 In dired, flag all files containing the specified REGEXP for deletion. The match is against the non-directory part of the filename. Use `^' and `$' to anchor matches. Exclude subdirs by hiding them. `.' and `..' are never flagged. (defalias 'dired-flag-files-regexp #[(regexp) " \n\"" [dired-mark-files-regexp regexp dired-del-marker] 3 (#$ . 43958) (list (dired-read-regexp "Flag for deletion (regexp): "))]) #@72 Mark all symbolic links. With prefix argument, unflag all those files. (defalias 'dired-mark-symlinks #[(unflag-p) " \nÉ\"ebm4 !.!\nc\fTy\f\f!\n=EЂF\n=QӂR&)\fV]\f+" [unflag-p 32 dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "symbolic link" looking-at dired-re-sym delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "" dired-del-marker "flagged" "marked"] 8 (#$ . 44380) "P"]) #@98 Mark all directory file lines except `.' and `..'. With prefix argument, unflag all those files. (defalias 'dired-mark-directories #[(unflag-p) " \nÉ\"ebm; !5\f!5!\nc\fTy\f\f!\n=LтM\n=XԂY&)\fVd\f+" [unflag-p 32 dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "directory file" looking-at dired-re-dir dired-re-dot delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "" dired-del-marker "flagged" "marked"] 8 (#$ . 44845) "P"]) #@74 Mark all executable files. With prefix argument, unflag all those files. (defalias 'dired-mark-executables #[(unflag-p) " \nÉ\"ebm4 !.!\nc\fTy\f\f!\n=EЂF\n=QӂR&)\fV]\f+" [unflag-p 32 dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "executable file" looking-at dired-re-exe delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "" dired-del-marker "flagged" "marked"] 8 (#$ . 45361) "P"]) #@125 Flag for deletion files whose names suggest they are auto save files. A prefix argument says to unflag those files instead. (defalias 'dired-flag-auto-save-files #[(&optional unflag-p) " \nĉ\"ebmch=4h=4uh=)]!]щ\"O!!)]! c Ty ! =tقu \n=ۂ&) V +" [unflag-p 32 dired-del-marker dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "auto save file" 35 42 -1 looking-at dired-re-dir dired-get-filename t fn auto-save-file-name-p file-name-nondirectory delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "" "flagged" "marked"] 9 (#$ . 45834) "P"]) #@103 Flag all backup files (names ending with `~') for deletion. With prefix argument, unflag these files. (defalias 'dired-flag-backup-files #[(&optional unflag-p) " \nĉ\"ebmah=4h=4uh=)[![щ\"M!)[! c Ty ! =r؂s \n=}ڂ~&) V +" [unflag-p 32 dired-del-marker dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "backup file" 126 42 -1 looking-at dired-re-dir dired-get-filename t fn backup-file-name-p delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "" "flagged" "marked"] 9 (#$ . 46489) "P"]) #@88 Change all OLD marks to NEW marks. OLD and NEW are both characters used to mark files. (defalias 'dired-change-marks #[(&optional old new) "=\f\n= \"eb#IU9  Ύ\"*:ʃҔҕ\n$+" [old 13 new ding format "\n%c" nil buffer-read-only string search-forward t 32 match-data match-data ((store-match-data match-data)) dired-get-filename no-dir subst-char-in-region 0] 5 (#$ . 47088) (byte-code "!  \"  +D" [t cursor-in-echo-area message "Change (old mark): " read-char old "Change %c marks to (new mark): " new] 3)]) #@54 Remove all marks from all files in the Dired buffer. (defalias 'dired-unmark-all-files-no-query #[nil "!" [dired-unmark-all-files 13] 2 (#$ . 47664) nil]) #@233 Remove a specific mark (or any mark) from every file. After this command, type the mark character to remove, or type RET to remove all marks. With prefix arg, query for each marked file. Type \[help-command] at that time for help. (defalias 'dired-unmark-all-files #[(mark &optional arg) "\"  eb=&#, #L>!#`S`h$ T UWقX \"." [0 count nil buffer-read-only case-fold-search query format "\n%c" mark string "Type SPC or `y' to unmark one file, DEL or `n' to skip to next,\n`!' to unmark all remaining files with no more questions." help-form 13 re-search-forward dired-re-mark t search-forward arg dired-query "Unmark file `%s'? " dired-get-filename subst-char-in-region 32 message 1 "1 mark removed" "%d marks removed"] 5 (#$ . 47829) "cRemove marks (RET means all): \nP"]) (byte-code "! B" [boundp dired-log-buffer "*Dired log*" current-load-list] 2) #@184 Pop up a buffer with error log output from Dired. A group of errors from a single command ends with a formfeed. Thus, use \[backward-page] to find the beginning of a group of errors. (defalias 'dired-why #[nil " ! !!Ǝ\f!db!+" [get-buffer dired-log-buffer selected-window display-buffer window owindow ((select-window owindow)) select-window recenter -1] 4 (#$ . 48759) nil]) (defalias 'dired-log #[(log &rest args) "p !qdb;)##%cH!7!H=H !ѱ+" [obuf ((set-buffer obuf)) get-buffer-create dired-log-buffer nil buffer-read-only log args apply format bufferp insert-buffer t "\n " current-time-string " Buffer `" buffer-name "'\n\f\n"] 5]) (defalias 'dired-log-summary #[(string failures) " ‚\n\f #\fP!!" [message failures "%s--type ? for details (%s)" "%s--type ? for details" string dired-log "\n" t] 4]) #@77 String of `ls' switches (single letters) except `t' that influence sorting. (defvar dired-ls-sorting-switches "SXU" (#$ . 49648)) #@51 Regexp recognized by dired to set `by date' mode. (defvar dired-sort-by-date-regexp (concat "^-[^" dired-ls-sorting-switches "]*t[^" dired-ls-sorting-switches "]*$") (#$ . 49784)) #@51 Regexp recognized by dired to set `by name' mode. (defvar dired-sort-by-name-regexp (concat "^-[^t" dired-ls-sorting-switches "]+$") (#$ . 49970)) (defalias 'dired-sort-set-modeline #[nil " \f\" ł\f\"ǂ\fP) " [nil case-fold-search string-match dired-sort-by-name-regexp dired-actual-switches "Dired by name" dired-sort-by-date-regexp "Dired by date" "Dired " mode-name force-mode-line-update] 3]) #@138 Toggle between sort by date/name and refresh the dired buffer. With a prefix argument you can edit the current listing switches instead. (defalias 'dired-sort-toggle-or-edit #[(&optional arg) " \f\"! " [arg dired-sort-other read-string "ls switches (must contain -l): " dired-actual-switches dired-sort-toggle] 4 (#$ . 50395) "P"]) (defalias 'dired-sort-toggle #[nil " Q# Q\"ǂQ) " [nil case-fold-search "-l" dired-replace-in-string "[-lt" dired-ls-sorting-switches "]" "" dired-actual-switches string-match "[t" "t" dired-sort-set-modeline revert-buffer] 6]) (defalias 'dired-replace-in-string #[(regexp newtext string) "‰ #* \fO\nQ   OP," ["" 0 nil me mb start result string-match regexp string newtext] 4]) (defalias 'dired-sort-other #[(switches &optional no-revert) " " [switches dired-actual-switches dired-sort-set-modeline no-revert revert-buffer] 1]) #@148 Compare file at point with file FILE using `diff'. FILE defaults to the file at the mark. The prompted-for file is the first file given to `diff'. (autoload (quote dired-diff) "dired-aux" '(#$ . 51346) t) #@220 Diff this file with its backup file or vice versa. Uses the latest backup, if there are several numerical backups. If this file is a backup, diff it with its original. The backup file is the first file given to `diff'. (autoload (quote dired-backup-diff) "dired-aux" '(#$ . 51558) t) #@353 Flag numerical backups for deletion. Spares `dired-kept-versions' latest versions, and `kept-old-versions' oldest. Positive prefix arg KEEP overrides `dired-kept-versions'; Negative prefix arg KEEP overrides `kept-old-versions' with KEEP made positive. To clear the flags on these files, you can use \[dired-flag-backup-files] with a prefix argument. (autoload (quote dired-clean-directory) "dired-aux" '(#$ . 51849) t) #@114 Change the mode of the marked (or next ARG) files. This calls chmod, thus symbolic modes like `g+w' are allowed. (autoload (quote dired-do-chmod) "dired-aux" '(#$ . 52277) t) #@53 Change the group of the marked (or next ARG) files. (autoload (quote dired-do-chgrp) "dired-aux" '(#$ . 52458) t) #@53 Change the owner of the marked (or next ARG) files. (autoload (quote dired-do-chown) "dired-aux" '(#$ . 52578) t) #@129 Print the marked (or next ARG) files. Uses the shell command coming from variables `lpr-command' and `lpr-switches' as default. (autoload (quote dired-do-print) "dired-aux" '(#$ . 52699) t) #@791 Run a shell command COMMAND on the marked files. If no files are marked or a specific numeric prefix arg is given, the next ARG files are used. Just \[universal-argument] means the current file. The prompt mentions the file(s) or the marker, as appropriate. If there is output, it goes to a separate buffer. Normally the command is run on each file individually. However, if there is a `*' in the command then it is run just once with the entire file list substituted there. No automatic redisplay of dired buffers is attempted, as there's no telling what files the command may have changed. Type \[dired-do-redisplay] to redisplay the marked files. The shell command has the top level directory as working directory, so output files usually are created there instead of in a subdir. (autoload (quote dired-do-shell-command) "dired-aux" '(#$ . 52896) t) #@97 Kill all marked lines (not the files). With a prefix arg, kill all lines not marked or flagged. (autoload (quote dired-do-kill-lines) "dired-aux" '(#$ . 53762) t) #@52 Compress or uncompress marked (or next ARG) files. (autoload (quote dired-do-compress) "dired-aux" '(#$ . 53931) t) #@53 Byte compile marked (or next ARG) Emacs Lisp files. (autoload (quote dired-do-byte-compile) "dired-aux" '(#$ . 54053) t) #@49 Load the marked (or next ARG) Emacs Lisp files. (autoload (quote dired-do-load) "dired-aux" '(#$ . 54180) t) #@179 Redisplay all marked (or next ARG) files. If on a subdir line, redisplay that subdirectory. In that case, a prefix arg lets you edit the `ls' switches used for the new listing. (autoload (quote dired-do-redisplay) "dired-aux" '(#$ . 54296) t) #@224 Replace first match of REGEXP in STRING with NEWTEXT. If it does not match, nil is returned instead of the new string. Optional arg LITERAL means to take NEWTEXT literally. Optional arg GLOBAL means to replace all matches. (autoload (quote dired-string-replace-match) "dired-aux" '(#$ . 54547) t) #@38 Create a directory called DIRECTORY. (autoload (quote dired-create-directory) "dired-aux" '(#$ . 54850) t) #@178 Copy all marked (or next ARG) files, or copy the current file. Thus, a zero prefix argument copies nothing. But it toggles the variable `dired-copy-preserve-time' (which see). (autoload (quote dired-do-copy) "dired-aux" '(#$ . 54964) t) #@308 Make symbolic links to current file or all marked (or next ARG) files. When operating on just the current file, you specify the new name. When operating on multiple or marked files, you specify a directory and new symbolic links are made in that directory with the same names that the files currently have. (autoload (quote dired-do-symlink) "dired-aux" '(#$ . 55209) t) #@304 Add names (hard links) current file or all marked (or next ARG) files. When operating on just the current file, you specify the new name. When operating on multiple or marked files, you specify a directory and new hard links are made in that directory with the same names that the files currently have. (autoload (quote dired-do-hardlink) "dired-aux" '(#$ . 55587) t) #@184 Rename current file or all marked (or next ARG) files. When renaming just the current file, you specify the new name. When renaming multiple or marked files, you specify a directory. (autoload (quote dired-do-rename) "dired-aux" '(#$ . 55962) t) #@441 Rename marked files containing REGEXP to NEWNAME. As each match is found, the user must type a character saying what to do with it. For directions, type \[help-command] at that time. NEWNAME may contain \=\ or \& as in `query-replace-regexp'. REGEXP defaults to the last regexp used. With a zero prefix arg, renaming by regexp affects the complete pathname - usually only the non-directory part of file names is used and changed. (autoload (quote dired-do-rename-regexp) "dired-aux" '(#$ . 56215) t) #@103 Copy all marked files containing REGEXP to NEWNAME. See function `dired-rename-regexp' for more info. (autoload (quote dired-do-copy-regexp) "dired-aux" '(#$ . 56732) t) #@107 Hardlink all marked files containing REGEXP to NEWNAME. See function `dired-rename-regexp' for more info. (autoload (quote dired-do-hardlink-regexp) "dired-aux" '(#$ . 56909) t) #@106 Symlink all marked files containing REGEXP to NEWNAME. See function `dired-rename-regexp' for more info. (autoload (quote dired-do-symlink-regexp) "dired-aux" '(#$ . 57094) t) #@54 Rename all marked (or next ARG) files to upper case. (autoload (quote dired-upcase) "dired-aux" '(#$ . 57276) t) #@54 Rename all marked (or next ARG) files to lower case. (autoload (quote dired-downcase) "dired-aux" '(#$ . 57395) t) #@432 Insert this subdirectory into the same dired buffer. If it is already present, just move to it (type \[dired-do-redisplay] to refresh), else inserts it at its natural place (as `ls -lR' would have done). 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. (autoload (quote dired-maybe-insert-subdir) "dired-aux" '(#$ . 57517) t) #@47 Go to next subdirectory, regardless of level. (autoload (quote dired-next-subdir) "dired-aux" '(#$ . 58027) t) #@129 Go to previous subdirectory, regardless of level. When called interactively and not on a subdir line, go to this subdir's line. (autoload (quote dired-prev-subdir) "dired-aux" '(#$ . 58145) t) #@163 Go to end of header line of DIR in this dired buffer. Return value of point on success, otherwise return nil. The next char is either \n, or \r if DIR is hidden. (autoload (quote dired-goto-subdir) "dired-aux" '(#$ . 58345) t) #@37 Mark all files except `.' and `..'. (autoload (quote dired-mark-subdir-files) "dired-aux" '(#$ . 58578) t) #@72 Remove all lines of current subdirectory. Lower levels are unaffected. (autoload (quote dired-kill-subdir) "dired-aux" '(#$ . 58691) t) #@37 Go up ARG levels in the dired tree. (autoload (quote dired-tree-up) "dired-aux" '(#$ . 58833) t) #@28 Go down in the dired tree. (autoload (quote dired-tree-down) "dired-aux" '(#$ . 58936) t) #@160 Hide or unhide the current subdirectory and move to next directory. Optional prefix arg is a repeat factor. Use \[dired-hide-all] to (un)hide all directories. (autoload (quote dired-hide-subdir) "dired-aux" '(#$ . 59033) t) #@192 Hide all subdirectories, leaving only their header lines. If there is already something hidden, make everything visible again. Use \[dired-hide-subdir] to (un)hide a particular subdirectory. (autoload (quote dired-hide-all) "dired-aux" '(#$ . 59264) t) (byte-code "=\n!!!" [system-type vax-vms load "dired-vms" provide dired run-hooks dired-load-hook] 2)