;ELC ;;; compiled by root@fuzzy.is.a.good.cat on Thu Sep 22 18:03:10 1994 ;;; from file /root/emacs-19.27/lisp/dired.el ;;; emacs version 19.26.1. ;;; 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"))) (error "`/root/emacs-19.27/lisp/dired.el' was compiled for Emacs 19")) (defvar dired-listing-switches "-al" "\ *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-chown-program (byte-code ">‡Ç" [system-type (hpux dgux usg-unix-v irix linux) "chown" "/etc/chown"] 2) "\ Name of chown command (usually `chown' or `/etc/chown').") (defvar dired-ls-F-marks-symlinks nil "\ *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-trivial-filenames "^\\.\\.?$\\|^#" "\ *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-keep-marker-rename t "\ *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-copy 67 "\ *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-hardlink 72 "\ *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-symlink 89 "\ *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-dwim-target nil "\ *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-copy-preserve-time t "\ *If non-nil, Dired preserves the last-modified time in a file copy. (This works on only some systems.)") (defvar dired-load-hook nil "\ Run after loading dired. You can customize key bindings or load extensions with this.") (defvar dired-mode-hook nil "\ Run at the very end of dired-mode.") (defvar dired-before-readin-hook nil "\ This hook is run before a dired buffer is read in (created or reverted).") (defvar dired-after-readin-hook nil "\ 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-marker-char 42 "\ In Dired, the current mark character. This is what the `do' commands look for and what the `mark' commands store.") (defvar dired-del-marker 68 "\ Character used to flag files for deletion.") (defvar dired-shrink-to-fit t "\ Non-nil means Dired shrinks the display buffer to fit the marked files.") (byte-code "!‡" [boundp dired-flagging-regexp nil] 2) (defvar dired-directory nil "\ 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-actual-switches nil "\ The value of `dired-listing-switches' used to make this buffer's text.") (defvar dired-re-inode-size "[0-9 ]*" "\ Regexp for optional initial inode and file size as made by `ls -i -s'.") (byte-code "!!! Q!) Q!6#\n!?!H" [boundp dired-re-mark "^[^ \n]" 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 "-[-r][-w].[-r][-w].[-r][-w]." dired-re-dot "^.* \\.\\.?$"] 4) (defvar dired-subdir-alist nil "\ Association list of expanded 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-regexp "^. \\([^\n ]+\\)\\(:\\)[\n ]" "\ 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.") (byte-code "\"\"" [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]) 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])] 3) (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 "\ 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 (quote 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]) (defalias 'dired #[(dirname &optional switches) "\n \"!" [switch-to-buffer dired-noselect dirname switches] 4 "\ \"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." (dired-read-dir-and-switches "")]) (defalias 'dired-other-window #[(dirname &optional switches) "\n \"!" [switch-to-buffer-other-window dired-noselect dirname switches] 4 "\ \"Edit\" directory DIRNAME. Like `dired' but selects in another window." (dired-read-dir-and-switches "in other window ")]) (defalias 'dired-other-frame #[(dirname &optional switches) "\n \"!" [switch-to-buffer-other-frame dired-noselect dirname switches] 4 "\ \"Edit\" directory DIRNAME. Like `dired' but makes a new frame." (dired-read-dir-and-switches "in other frame ")]) (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 "\ Like `dired' but returns the dired buffer as value, does not select it."]) (byte-code "\"\"\"\"\"\"\"\"\"\"\"\"\"" [defalias dired-internal-noselect #[(dir-or-list &optional switches) ":\n@ !?p # !!) q\fq\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 "Directory has changed on disk; type `g' 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] dired-find-buffer-nocreate #[(dirname) " \n+\n@q\f=$$\n@'\nA) *" [nil buffer-list blist found major-mode dired-mode dired-directory dirname] 2] 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] dired-readin-insert #[(dir-or-list) "\n: \n@\n\f! !(\n:(\n$N !!!9 \"N\n\n\"\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] dired-mark-remembered #[(alist) "\f+\f@\fA @ A\n!y! c)+" [nil chr fil elt alist dired-goto-file 0 delete-char 1] 3] dired-remember-hidden #[nil " + @@ @A A bwg=\f\nB\n," [dired-subdir-alist nil result pos dir l "^ \n" 13] 4] 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] dired-uncache #[(dir) " \" \")" [find-file-name-handler dir dired-uncache handler] 4]] 3) (defvar dired-mode-map nil "\ Local keymap for dired-mode buffers.") (byte-code "a !##############################@#AB#CD#EF#GH#IJ#KL#MN#OJ#PQ#RS#TU#VW#XY#Z[#\\]#^_#`a#bc#de#fg#hi#jk#lm#no#pq#rs#tu#vw#xy#z{#|}#~#g#g#m########!B###########!B########!B#########!B##############!B###############" [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 "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 "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 " " "" "" "$" 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 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) (defalias 'dired-mode #[(&optional dirname switches) " \n!  \n\f!L!L!.L!!L!CL\"!" [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 dired-sort-other run-hooks dired-mode-hook] 3 "\ 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-quit #[nil " " [bury-buffer] 1 "\ Bury the current dired buffer." nil]) (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 "\ Summarize basic Dired commands and show recent Dired errors." nil]) (defalias 'dired-undo #[nil " )" [nil buffer-read-only undo] 1 "\ 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." nil]) (defalias 'dired-next-line #[(arg) " ! " [next-line arg dired-move-to-filename] 2 "\ Move down lines then position at filename. Optional prefix ARG says how many lines to move; default is one line." "p"]) (defalias 'dired-previous-line #[(arg) " ! " [previous-line arg dired-move-to-filename] 2 "\ Move up lines then position at filename. Optional prefix ARG says how many lines to move; default is one line." "p"]) (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 "\ Goto ARG'th next directory file line." "p"]) (defalias 'dired-prev-dirline #[(arg) " [!" [dired-next-dirline arg] 2 "\ Goto ARG'th previous directory file line." "p"]) (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 "\ Run dired on parent directory of current directory. Find the parent directory either in this buffer or another buffer. Creates a buffer if necessary." nil]) (defalias (quote dired-advertised-find-file) (quote dired-find-file)) (defalias 'dired-find-file #[nil " \"!" [find-file file-name-sans-versions dired-get-filename t] 4 "\ In dired, visit the file or directory named on this line." nil]) (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 "\ In dired, visit the file or directory name you click on." "e"]) (defalias 'dired-view-file #[nil " !\nA ! ! !" [file-directory-p dired-get-filename dired-subdir-alist dired-goto-subdir dired view-file] 2 "\ 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." nil]) (defalias 'dired-find-file-other-window #[nil " \"!" [find-file-other-window file-name-sans-versions dired-get-filename t] 4 "\ In dired, visit this file or directory in another window." nil]) (defalias 'dired-display-file #[nil " \" !!)" [file-name-sans-versions dired-get-filename t file display-buffer find-file-noselect] 3 "\ In dired, display this file or directory in another window." nil]) (defalias 'dired-get-filename #[(&optional localp no-error-if-not-filep) "?!!)\n' '\n {\"C\f\"C #? Q!=N X X! P," [nil p2 p1 file case-fold-search dired-move-to-filename no-error-if-not-filep dired-move-to-end-of-filename format "%s" string-match "b" dired-actual-switches read "\"" dired-string-replace-match "\\([^\\]\\)\"" "\\1\\\\\"" localp no-dir dired-current-directory] 6 "\ 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."]) (byte-code "\"\"" [defalias dired-make-absolute #[(file &optional dir) " \nP" [dir default-directory file] 2] 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]] 3) (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] " "\ Regular expression to match a month abbreviation followed by a number.") (byte-code "\"\"" [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] 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]] 3) (defvar dired-buffers nil "\ Alist of expanded directories and their associated dired buffers.") (byte-code "\"\"\"\"\"\"\"\"\"\"" [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] dired-advertise #[nil " !p\n!>Ă\npB B)" [expand-file-name default-directory expanded-default dired-buffers-for-dir t dired-buffers] 3] dired-unadvertise #[(dir) " !\f\"\f\"" [delq assoc expand-file-name dir dired-buffers] 4] dired-in-this-tree #[(file dir) " !P\")" [nil case-fold-search string-match "^" regexp-quote dir file] 4] dired-normalize-subdir #[(dir) "\n! \n\n\f\"!" [file-name-as-directory file-name-absolute-p dir expand-file-name default-directory] 4] dired-get-subdir #[nil " y` \"!ZU *" [dired-current-directory cur-dir 0 dired-get-subdir-min assoc dired-subdir-alist] 5] dired-get-subdir-min cdr dired-get-subdir-max #[(elt) " !b )" [dired-get-subdir-min elt dired-subdir-max] 2] dired-clear-alist #[nil "@!‰A‡" [dired-subdir-alist dired-get-subdir-min nil] 4] dired-subdir-index #[(dir) "\n # @@ A\fT (\f+" [nil 0 dired-subdir-alist alist index found dir t] 3]] 3) (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 "\ Go to next subdirectory, regardless of level." "p"]) (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 "\ Build `dired-subdir-alist' by parsing the buffer. Returns the new value of the alist." nil]) (byte-code "\"\"\"" [defalias dired-alist-add-1 #[(dir new-marker) " !\nB B" [dired-normalize-subdir dir new-marker dired-subdir-alist] 2] 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] dired-goto-next-file #[nil " S ?` Wy)" [dired-subdir-max max dired-move-to-filename 1] 2]] 3) (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 "\ Go to file line of FILE in this dired buffer." (byte-code " \"!C " [expand-file-name read-file-name "Goto file: " dired-current-directory push-mark] 4)]) (defalias (quote dired-initial-position) #[(dirname) " " [nil dired-trivial-filenames dired-goto-next-nontrivial-file] 1]) (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 "\ 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 (quote dired-subdir-max) #[nil "AÉ#d`)" [dired-subdir-alist dired-next-subdir 1 t] 4]) (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 "\ In dired, delete the files flagged for deletion." nil]) (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 "\ Delete all marked (or next ARG) files." "P"]) (byte-code "!\"\"\"\"\"\"!/\"\"\"\"" [boundp dired-deletion-confirmer yes-or-no-p 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] dired-clean-up-after-deletion #[(fn) "A\n! )" [dired-subdir-alist dired-goto-subdir fn dired-kill-subdir] 2] dired-marker-regexp #[nil " !!P" ["^" regexp-quote char-to-string dired-marker-char] 4] dired-plural-s #[(count) "U‡Ç" [count 1 "" "s"] 2] dired-mark-prompt #[(arg files) "GU@  \"  #)" [files count 1 arg format "[next %d files]" "%c [%d files]" dired-marker-char] 5] 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] dired-no-confirm nil 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] 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] 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] dired-between-files #[nil "!\n! )?" [looking-at "^$\\|^. *$\\|^. total\\|^. wildcard" dired-subdir-regexp dired-move-to-filename] 2]] 3) (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 "\ Move to the next marked file, wrapping around the end of the buffer." "p\np"]) (defalias 'dired-prev-marked-file #[(arg &optional wrap) " [\n\"" [dired-next-marked-file arg wrap] 3 "\ Move to the previous marked file, wrapping around the end of the buffer." "p\np"]) (byte-code "\"\"" [defalias dired-file-marker #[(file) " !ygÚ?g)" [dired-goto-file file 0 32] 2] 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]] 3) (defalias 'dired-mark #[(arg) "A  )!\")" [dired-subdir-alist 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 "\ 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." "P"]) (defalias 'dired-unmark #[(arg) " !)" [32 dired-marker-char dired-mark arg] 2 "\ Unmark the current (or next ARG) files. If looking at a subdir, unmark all its files except `.' and `..'." "P"]) (defalias 'dired-flag-file-deletion #[(arg) " !)" [dired-del-marker dired-marker-char dired-mark arg] 2 "\ 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 `..'." "P"]) (defalias 'dired-unmark-backward #[(arg) " [!" [dired-unmark arg] 2 "\ In dired, move up lines and remove deletion flag there. Optional prefix ARG says how many lines to unflag; default is one line." "p"]) (defvar dired-regexp-history nil "\ History list of regular expressions used in Dired commands.") (defalias (quote dired-read-regexp) #[(prompt) " ‰%" [read-from-minibuffer prompt nil dired-regexp-history] 6]) (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 "\ 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." (list (dired-read-regexp (concat (if current-prefix-arg "Unmark" "Mark") " files (regexp): ")) (if current-prefix-arg 32))]) (defalias 'dired-flag-files-regexp #[(regexp) " \n\"" [dired-mark-files-regexp regexp dired-del-marker] 3 "\ 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." (list (dired-read-regexp "Flag for deletion (regexp): "))]) (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 "\ Mark all symbolic links. With prefix argument, unflag all those files." "P"]) (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 "\ Mark all directory file lines except `.' and `..'. With prefix argument, unflag all those files." "P"]) (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 "\ Mark all executable files. With prefix argument, unflag all those files." "P"]) (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 "\ Flag for deletion files whose names suggest they are auto save files. A prefix argument says to unflag those files instead." "P"]) (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 "\ Flag all backup files (names ending with `~') for deletion. With prefix argument, unflag these files." "P"]) (defalias 'dired-change-marks #[(&optional old new) "=\f\n= \"eb#1̔̕\n$+" [old 13 new ding format "\n%c" nil buffer-read-only string search-forward t subst-char-in-region 0] 5 "\ Change all OLD marks to NEW marks. OLD and NEW are both characters used to mark files." (byte-code "!  \"  +D" [t cursor-in-echo-area message "Change (old mark): " read-char old "Change %c marks to (new mark): " new] 3)]) (defalias 'dired-unmark-all-files-no-query #[nil "!" [dired-unmark-all-files 13] 2 "\ Remove all marks from all files in the Dired buffer." nil]) (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 "\ 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." "cRemove marks (RET means all): \nP"]) (byte-code "!" [boundp dired-log-buffer "*Dired log*"] 2) (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 "\ 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." nil]) (byte-code "\"\"" [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] 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]] 3) (defvar dired-ls-sorting-switches "SXU" "\ String of `ls' switches (single letters) except `t' that influence sorting.") (defvar dired-sort-by-date-regexp (concat "^-[^" dired-ls-sorting-switches "]*t[^" dired-ls-sorting-switches "]*$") "\ Regexp recognized by dired to set `by date' mode.") (defvar dired-sort-by-name-regexp (concat "^-[^t" dired-ls-sorting-switches "]+$") "\ Regexp recognized by dired to set `by name' mode.") (defalias (quote 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 set-buffer-modified-p buffer-modified-p] 3]) (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 "\ Toggle between sort by date/name and refresh the dired buffer. With a prefix argument you can edit the current listing switches instead." "P"]) (byte-code "\"\"\"" [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] dired-replace-in-string #[(regexp newtext string) "‰ #* \fO\nQ   OP," ["" 0 nil me mb start result string-match regexp string newtext] 4] dired-sort-other #[(switches &optional no-revert) " " [switches dired-actual-switches dired-sort-set-modeline no-revert revert-buffer] 1]] 3) (autoload (quote dired-diff) "dired-aux" "\ 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'." t) (autoload (quote dired-backup-diff) "dired-aux" "\ 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'." t) (autoload (quote dired-clean-directory) "dired-aux" "\ 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." t) (autoload (quote dired-do-chmod) "dired-aux" "\ Change the mode of the marked (or next ARG) files. This calls chmod, thus symbolic modes like `g+w' are allowed." t) (autoload (quote dired-do-chgrp) "dired-aux" "\ Change the group of the marked (or next ARG) files." t) (autoload (quote dired-do-chown) "dired-aux" "\ Change the owner of the marked (or next ARG) files." t) (autoload (quote dired-do-print) "dired-aux" "\ Print the marked (or next ARG) files. Uses the shell command coming from variables `lpr-command' and `lpr-switches' as default." t) (autoload (quote dired-do-shell-command) "dired-aux" "\ 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." t) (autoload (quote dired-do-kill-lines) "dired-aux" "\ Kill all marked lines (not the files). With a prefix arg, kill all lines not marked or flagged." t) (autoload (quote dired-do-compress) "dired-aux" "\ Compress or uncompress marked (or next ARG) files." t) (autoload (quote dired-do-byte-compile) "dired-aux" "\ Byte compile marked (or next ARG) Emacs Lisp files." t) (autoload (quote dired-do-load) "dired-aux" "\ Load the marked (or next ARG) Emacs Lisp files." t) (autoload (quote dired-do-redisplay) "dired-aux" "\ 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." t) (autoload (quote dired-string-replace-match) "dired-aux" "\ 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." t) (autoload (quote dired-create-directory) "dired-aux" "\ Create a directory called DIRECTORY." t) (autoload (quote dired-do-copy) "dired-aux" "\ 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)." t) (autoload (quote dired-do-symlink) "dired-aux" "\ 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." t) (autoload (quote dired-do-hardlink) "dired-aux" "\ 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." t) (autoload (quote dired-do-rename) "dired-aux" "\ 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." t) (autoload (quote dired-do-rename-regexp) "dired-aux" "\ 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." t) (autoload (quote dired-do-copy-regexp) "dired-aux" "\ Copy all marked files containing REGEXP to NEWNAME. See function `dired-rename-regexp' for more info." t) (autoload (quote dired-do-hardlink-regexp) "dired-aux" "\ Hardlink all marked files containing REGEXP to NEWNAME. See function `dired-rename-regexp' for more info." t) (autoload (quote dired-do-symlink-regexp) "dired-aux" "\ Symlink all marked files containing REGEXP to NEWNAME. See function `dired-rename-regexp' for more info." t) (autoload (quote dired-upcase) "dired-aux" "\ Rename all marked (or next ARG) files to upper case." t) (autoload (quote dired-downcase) "dired-aux" "\ Rename all marked (or next ARG) files to lower case." t) (autoload (quote dired-maybe-insert-subdir) "dired-aux" "\ 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." t) (autoload (quote dired-next-subdir) "dired-aux" "\ Go to next subdirectory, regardless of level." t) (autoload (quote dired-prev-subdir) "dired-aux" "\ Go to previous subdirectory, regardless of level. When called interactively and not on a subdir line, go to this subdir's line." t) (autoload (quote dired-goto-subdir) "dired-aux" "\ 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." t) (autoload (quote dired-mark-subdir-files) "dired-aux" "\ Mark all files except `.' and `..'." t) (autoload (quote dired-kill-subdir) "dired-aux" "\ Remove all lines of current subdirectory. Lower levels are unaffected." t) (autoload (quote dired-tree-up) "dired-aux" "\ Go up ARG levels in the dired tree." t) (autoload (quote dired-tree-down) "dired-aux" "\ Go down in the dired tree." t) (autoload (quote dired-hide-subdir) "dired-aux" "\ 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." t) (autoload (quote dired-hide-all) "dired-aux" "\ 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." t) (byte-code "=\n!!!" [system-type vax-vms load "dired-vms" provide dired run-hooks dired-load-hook] 2)