;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:37:54 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/dired.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`dired.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304\305%\210\300\306\302\307\310\311\304\301&\207" [custom-declare-group dired nil "Directory editing." :group environment dired-mark "Handling marks in dired." :prefix "dired-"] 8) #@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. (custom-declare-variable 'dired-listing-switches '"-al" '(#$ . -825) :type 'string :group 'dired) #@58 Name of chown command (usually `chown' or `/etc/chown'). (defvar dired-chown-program (byte-code "\301>\203\302\207\303\304!\203\304\207\305\207" [system-type (hpux dgux usg-unix-v irix linux gnu/linux) "chown" file-exists-p "/usr/sbin/chown" "/etc/chown"] 2) (#$ . 1171)) #@42 Name of chmod command (usually `chmod'). (defvar dired-chmod-program "chmod" (#$ . 1454)) #@602 *Informs dired about how `ls -lF' marks symbolic links. Set this to t if `ls' (or whatever program is specified by `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. (custom-declare-variable 'dired-ls-F-marks-symlinks 'nil '(#$ . -1551) :type 'boolean :group 'dired-mark) #@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. (custom-declare-variable 'dired-trivial-filenames '"^\\.\\.?$\\|^#" '(#$ . -2265) :type '(choice (const :tag "Move to subdir" nil) (const :tag "Move to first" t) regexp) :group 'dired) #@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. (custom-declare-variable 'dired-keep-marker-rename 't '(#$ . -2607) :type '(choice (const :tag "Keep" t) (character :tag "Mark")) :group 'dired-mark) #@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. (custom-declare-variable 'dired-keep-marker-copy '67 '(#$ . -2968) :type '(choice (const :tag "Keep" t) (character :tag "Mark")) :group 'dired-mark) #@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. (custom-declare-variable 'dired-keep-marker-hardlink '72 '(#$ . -3315) :type '(choice (const :tag "Keep" t) (character :tag "Mark")) :group 'dired-mark) #@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. (custom-declare-variable 'dired-keep-marker-symlink '89 '(#$ . -3658) :type '(choice (const :tag "Keep" t) (character :tag "Mark")) :group 'dired-mark) #@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. (custom-declare-variable 'dired-dwim-target 'nil '(#$ . -4004) :type 'boolean :group 'dired) #@104 *If non-nil, Dired preserves the last-modified time in a file copy. (This works on only some systems.) (custom-declare-variable 'dired-copy-preserve-time 't '(#$ . -4372) :type 'boolean :group 'dired) #@274 *Program to get the amount of free space on a file system. We assume the output has the format of `df'. The value of this variable must be just a command name or file name; if you want to specify options, use `dired-free-space-args'. A value of nil disables this feature. (custom-declare-variable 'dired-free-space-program '"df" '(#$ . -4580) :type '(choice (string :tag "Program") (const :tag "None" nil)) :group 'dired) #@58 *Options to use when running `dired-free-space-program'. (custom-declare-variable 'dired-free-space-args '"-Pk" '(#$ . -5009) :type 'string :group 'dired) #@87 Run after loading dired. You can customize key bindings or load extensions with this. (defvar dired-load-hook nil (#$ . 5170)) #@36 Run at the very end of dired-mode. (defvar dired-mode-hook nil (#$ . 5303)) #@74 This hook is run before a dired buffer is read in (created or reverted). (defvar dired-before-readin-hook nil (#$ . 5385)) #@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 (#$ . 5515)) #@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 (#$ . 5735)) #@44 Character used to flag files for deletion. (defvar dired-del-marker 68 (#$ . 5897)) #@73 Non-nil means Dired shrinks the display buffer to fit the marked files. (defvar dired-shrink-to-fit t (#$ . 5987)) (byte-code "\301B\302\301!\204\f\303\304B\303\207" [current-load-list dired-flagging-regexp boundp nil 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 (#$ . 6247)) #@72 The value of `dired-listing-switches' used to make this buffer's text. (defvar dired-actual-switches nil (#$ . 6495)) #@72 Regexp for optional initial inode and file size as made by `ls -i -s'. (defvar dired-re-inode-size "[0-9 ]*" (#$ . 6619)) (byte-code "\301B\306\301!\204\f\307\302B\306\302!\204\310\304B\306\304!\204'\n \311Q\305B\306\305!\2046\n \312Q\313B\306\313!\204G\314\315\316\317# \320B\306\320!\204T\321\322B\306\322!\204a\323\301\207" [current-load-list dired-re-mark dired-re-maybe-mark dired-re-inode-size dired-re-dir dired-re-sym boundp "^[^ \n]" "^. " "d[^:]" "l[^:]" dired-re-exe mapconcat #[(x) " \nQ\207" [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 (#$ . 7408)) #@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 ]" (#$ . 7695)) #@52 Additional expressions to highlight in Dired mode. (defvar dired-font-lock-keywords (byte-code "\304D \305\306E\n\307D \310D\311\257\207" [dired-subdir-regexp dired-re-mark dired-re-dir dired-re-sym (1 font-lock-type-face) (0 font-lock-constant-face) (".+" (dired-move-to-filename) nil (0 font-lock-warning-face)) (".+" (dired-move-to-filename) nil (0 font-lock-function-name-face)) (".+" (dired-move-to-filename) nil (0 font-lock-keyword-face)) (eval let ((extensions (mapcar 'regexp-quote completion-ignored-extensions))) (list (concat "\\(" (mapconcat 'identity extensions "\\|") "\\|#\\)$") '(".+" (dired-move-to-filename) nil (0 font-lock-string-face))))] 5) (#$ . 8050)) (defalias 'dired-mark-if '(macro . #[(predicate msg) "\302\303\304\305\306\307\310EE\311\312\313\306 \314BB\315BBB\306\307\316\317\320BBBBE\257\321BBB\207" [msg predicate let (buffer-read-only count) save-excursion (setq count 0) if message "Marking %ss..." (goto-char (point-min)) while (not (eobp)) ((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])) #@935 Eval BODY with point on each marked line. Return a list of BODY's results. If no marked file could be found, execute BODY on the current line. If ARG is an integer, use the next ARG (or previous -ARG, if ARG<0) files instead of the marked files. In that case point is dragged along. This is so that commands on the next ARG (instead of the marked) files can be chained easily. If ARG is otherwise non-nil, use current file instead. If optional third arg SHOW-PROGRESS evaluates to non-nil, redisplay the dired buffer after each file is processed. No guarantee is made about the position on the marked line. BODY must ensure this itself if it depends on this. Search starts at the beginning of the buffer, thus the car of the list corresponds to the line nearest to the buffer's bottom. This is also true for (positive and negative) integer values of ARG. BODY should not be too long as it is expanded four times. (defalias 'dired-map-over-marks '(macro . #[(body arg &optional show-progress) "\303\304\305\306\306\307D\310\311\312\313\314\306 \315BB\316\317\320\n\321BBEFDE\306\322\323BB\324BBE\325\nDF\304\326\327\330\331\332\333\334\306 \335BB\316\317\320\n\336BBE\337BBBBBF\306\340\317\325\nDFFFE\341BB\207" [arg show-progress body prog1 let (buffer-read-only case-fold-search found results) if integerp progn dired-repeat-over-lines function lambda nil ((sit-for 0)) setq results cons (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 (#$ . 9321)])) #@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) "\212\306\211\211\211\f\203-\f\250\203&\307\f\310\"\210\f\311W\203\"\237\202\204\202\204\312 !C\202\204\313 \306\212eb\210\314\306\315#\205C\316 \211??\203vb\210\312 !Bb\210\317y\210\306\211\223\210\314\306\315#\205p\316 \211\204N) \203\202\203\312 !C*,\320 \210\237)\207" [results found case-fold-search buffer-read-only arg localp nil dired-repeat-over-lines #[nil "\302! B\211\207" [localp results dired-get-filename] 2] 0 dired-get-filename dired-marker-regexp re-search-forward t point-marker 1 dired-move-to-filename next-position regexp] 5 (#$ . 11259)]) (defalias 'dired-read-dir-and-switches #[(str) "\304\205 \305\306 \"\307\310\311\n\"\312 \312$D!\207" [current-prefix-arg dired-listing-switches str default-directory reverse read-string "Dired listing switches: " read-file-name format "Dired %s(directory): " nil] 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 rest 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) "\302\303 \"!\207" [dirname switches switch-to-buffer dired-noselect] 4 (#$ . 12644) (dired-read-dir-and-switches "")]) #@72 "Edit" directory DIRNAME. Like `dired' but selects in another window. (defalias 'dired-other-window #[(dirname &optional switches) "\302\303 \"!\207" [dirname switches switch-to-buffer-other-window dired-noselect] 4 (#$ . 13617) (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) "\302\303 \"!\207" [dirname switches switch-to-buffer-other-frame dired-noselect] 4 (#$ . 13905) (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) "\204 \306\211:\203@\202\307 ! \230\310\311\312 !!!\f\203-\313 !\n\2047\314 !\203;\307 !:\203H AB\202J \315 \"*\207" [dir-or-list default-directory initially-was-dirname dirname find-file-visit-truename switches nil file-name-as-directory abbreviate-file-name expand-file-name directory-file-name file-truename file-directory-p dired-internal-noselect] 4 (#$ . 14182)]) (defalias 'dired-internal-noselect #[(dir-or-list &optional switches mode) ":\203\n@\202 \306 \n\"\211?p \204$\307\310\311 !!) q\210\f\204}\203@:\2038\312!\210\202\264\313 !\314  \315=\206o @\316=?\206o\317 8@@U\205o\317 8A@AU*\204\264\320\321\322\323!\"\210\202\264\324 !!\204\213\"\n\203\225\n \210\202\233\325 \"\210\316#\326\216\327 \"\210\330#*\331\332!\210eb\210\333 !\210 q\210 ,\207" [dir-or-list dirname mode buffer new-buffer-p old-buf dired-find-buffer-nocreate fundamental-mode create-file-buffer directory-file-name dired-sort-other file-attributes visited-file-modtime 0 t 5 message "%s" substitute-command-keys "Directory has changed on disk; type \\[revert-buffer] to update Dired" file-name-directory dired-mode ((byte-code "\203\302 !\210\302\207" [failed buffer kill-buffer] 2)) dired-readin nil run-hooks dired-after-readin-hook dired-initial-position default-major-mode switches dired-directory modtime attributes default-directory dired-listing-switches failed] 5]) #@67 Alist of expanded directories and their associated dired buffers. (defvar dired-buffers nil (#$ . 15767)) (defalias 'dired-find-buffer-nocreate #[(dirname &optional mode) "\306 \204\n\307 \203M\310 @A!\204 A\211\202 \212 @Aq\210\f =\203F :\2036 @ \232\202:  \232\203F @A\306\202I A)\202\n\n*\207" [dired-buffers blist found mode major-mode dired-directory nil dired-mode buffer-name dirname] 3]) (defalias 'dired-readin #[(dir-or-list buffer) "\306\211\n:\203\n@\202\n\307 !\n:\203 \nAB\310\311!\210\212\312\313 \"\210 q\210\306\314~\210\315 \210\316\n!\210\317ed\320#\210eb\210\321\322!\204M\323!\210*\312\324 \"\210\325\326!\306L\210\327 \210\330 !\211@\314=\203o\331\3328!\210)\333\306!+\207" [indent-tabs-mode dirname dir-or-list buffer failed buffer-read-only nil expand-file-name run-hooks dired-before-readin-hook message "Reading directory %s..." t erase-buffer dired-readin-insert indent-rigidly 2 looking-at "^ /.*:$" dired-insert-headerline "Reading directory %s...done" make-local-variable dired-subdir-alist dired-build-subdir-alist file-attributes set-visited-file-modtime 5 set-buffer-modified-p default-directory attributes] 5]) (defalias 'dired-readin-insert #[(dir-or-list) "\304 :\203 @\202 \305\n!\305!\232\203' :\204'\306 \304\307$\202Q\310\311\312!!!\2048\313\314\"\202Q\306 " dired-next-dirline "^" dired-up-directory " " "" "" [down] [up] "$" dired-hide-subdir "\244" dired-hide-all "?" dired-summary "" "" dired-undo "u" [menu-bar subdir] "Subdir" make-sparse-keymap [menu-bar subdir hide-all] (menu-item "Hide All" dired-hide-all :help "Hide all subdirectories, leave only header lines") [menu-bar subdir hide-subdir] (menu-item "Hide/UnHide Subdir" dired-hide-subdir :help "Hide or unhide current directory listing") [menu-bar subdir tree-down] (menu-item "Tree Down" dired-tree-down :help "Go to first subdirectory header down the tree") [menu-bar subdir tree-up] (menu-item "Tree Up" dired-tree-up :help "Go to first subdirectory header up the tree") [menu-bar subdir up] (menu-item "Up Directory" dired-up-directory :help "Edit the parent directory") [menu-bar subdir prev-subdir] (menu-item "Prev Subdir" dired-prev-subdir :help "Go to previous subdirectory header line") [menu-bar subdir next-subdir] (menu-item "Next Subdir" dired-next-subdir :help "Go to next subdirectory header line") [menu-bar subdir prev-dirline] (menu-item "Prev Dirline" dired-prev-dirline :help "Move to next directory-file line") [menu-bar subdir next-dirline] (menu-item "Next Dirline" dired-next-dirline :help "Move to previous directory-file line") [menu-bar subdir insert] (menu-item "Insert This Subdir" dired-maybe-insert-subdir :help "Insert contents of subdirectory") [menu-bar immediate] "Immediate" [menu-bar immediate revert-buffer] (menu-item "Refresh" revert-buffer :help "Update contents of shown directories") [menu-bar immediate dashes] ("--") [menu-bar immediate backup-diff] (menu-item "Compare with Backup" dired-backup-diff :help "Diff file at cursor with its latest backup") [menu-bar immediate diff] (menu-item "Diff..." dired-diff :help "Compare file at cursor with another file") [menu-bar immediate view] (menu-item "View This File" dired-view-file :help "Examine file at cursor in read-only mode") [menu-bar immediate display] (menu-item "Display in Other Window" dired-display-file :help "Display file at cursor in other window") [menu-bar immediate find-file-other-window] (menu-item "Find in Other Window" dired-find-file-other-window :help "Edit file at cursor in other window") [menu-bar immediate find-file] (menu-item "Find This File" dired-find-file :help "Edit file at cursor") [menu-bar immediate create-directory] (menu-item "Create Directory..." dired-create-directory) [menu-bar regexp] "Regexp" [menu-bar regexp downcase] (menu-item "Downcase" dired-downcase :enable (or (not (fboundp 'msdos-long-file-names)) (msdos-long-file-names)) :help "Rename marked files to lower-case name") [menu-bar regexp upcase] (menu-item "Upcase" dired-upcase :enable (or (not (fboundp 'msdos-long-file-names)) (msdos-long-file-names)) :help "Rename marked files to upper-case name") [menu-bar regexp hardlink] (menu-item "Hardlink..." dired-do-hardlink-regexp :help "Make hard links for files matching regexp") [menu-bar regexp symlink] (menu-item "Symlink..." dired-do-symlink-regexp :visible (fboundp 'make-symbolic-link) :help "Make symbolic links for files matching regexp") [menu-bar regexp rename] (menu-item "Rename..." dired-do-rename-regexp :help "Rename marked files matching regexp") [menu-bar regexp copy] (menu-item "Copy..." dired-do-copy-regexp :help "Copy marked files matching regexp") [menu-bar regexp flag] (menu-item "Flag..." dired-flag-files-regexp :help "Flag files matching regexp for deletion") [menu-bar regexp mark] (menu-item "Mark..." dired-mark-files-regexp :help "Mark files matching regexp for future operations") [menu-bar regexp mark-cont] (menu-item "Mark Containing..." dired-mark-files-containing-regexp :help "Mark files whose contents matches regexp") [menu-bar mark] "Mark" [menu-bar mark prev] (menu-item "Previous Marked" dired-prev-marked-file :help "Move to previous marked file") [menu-bar mark next] (menu-item "Next Marked" dired-next-marked-file :help "Move to next marked file") [menu-bar mark marks] (menu-item "Change Marks..." dired-change-marks :help "Replace marker with another character") [menu-bar mark unmark-all] (menu-item "Unmark All" dired-unmark-all-marks) [menu-bar mark symlinks] (menu-item "Mark Symlinks" dired-mark-symlinks :visible (fboundp 'make-symbolic-link) :help "Mark all symbolic links") [menu-bar mark directories] (menu-item "Mark Directories" dired-mark-directories :help "Mark all directories except `.' and `..'") [menu-bar mark directory] (menu-item "Mark Old Backups" dired-clean-directory :help "Flag old numbered backups for deletion") [menu-bar mark executables] (menu-item "Mark Executables" dired-mark-executables :help "Mark all executable files") [menu-bar mark garbage-files] (menu-item "Flag Garbage Files" dired-flag-garbage-files :help "Flag unneeded files for deletion") [menu-bar mark backup-files] (menu-item "Flag Backup Files" dired-flag-backup-files :help "Flag all backup files for deletion") [menu-bar mark auto-save-files] (menu-item "Flag Auto-save Files" dired-flag-auto-save-files :help "Flag auto-save files for deletion") [menu-bar mark deletion] (menu-item "Flag" dired-flag-file-deletion :help "Flag current line's file for deletion") [menu-bar mark unmark] (menu-item "Unmark" dired-unmark :help "Unmark or unflag current line's file") [menu-bar mark mark] (menu-item "Mark" dired-mark :help "Mark current line's file for future operations") [menu-bar mark toggle-marks] (menu-item "Toggle Marks" dired-do-toggle :help "Mark unmarked files, unmark marked ones") [menu-bar operate] "Operate" [menu-bar operate query-replace] (menu-item "Query Replace in Files..." dired-do-query-replace-regexp :help "Replace regexp in marked files") [menu-bar operate search] (menu-item "Search Files..." dired-do-search :help "Search marked files for regexp") [menu-bar operate chown] (menu-item "Change Owner..." dired-do-chown :visible (not (memq system-type '(ms-dos windows-nt))) :help "Change the owner of marked files") [menu-bar operate chgrp] (menu-item "Change Group..." dired-do-chgrp :visible (not (memq system-type '(ms-dos windows-nt))) :help "Change the group of marked files") [menu-bar operate chmod] (menu-item "Change Mode..." dired-do-chmod :help "Change mode (attributes) of marked files") [menu-bar operate load] (menu-item "Load" dired-do-load :help "Load marked Emacs Lisp files") [menu-bar operate compile] (menu-item "Byte-compile" dired-do-byte-compile :help "Byte-compile marked Emacs Lisp files") [menu-bar operate compress] (menu-item "Compress" dired-do-compress :help "Compress/uncompress marked files") [menu-bar operate print] (menu-item "Print..." dired-do-print :help "Ask for print command and print marked files") [menu-bar operate hardlink] (menu-item "Hardlink to..." dired-do-hardlink :help "Make hard links for current or marked files") [menu-bar operate symlink] (menu-item "Symlink to..." dired-do-symlink :visible (fboundp 'make-symbolic-link) :help "Make symbolic links for current or marked files") [menu-bar operate command] (menu-item "Shell Command..." dired-do-shell-command :help "Run a shell command on each of marked files") [menu-bar operate delete] (menu-item "Delete" dired-do-delete :help "Delete current file or all marked files") [menu-bar operate rename] (menu-item "Rename to..." dired-do-rename :help "Rename current file or move marked files") [menu-bar operate copy] (menu-item "Copy to..." dired-do-copy :help "Copy current file or all marked files") 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) "\306 \210\307!\210\310 \210\311\312\313\313\314\315!\316\317!\320L\210\316\321!\322L\210\316\323!\206,L\210\316\324!\325!L\210\316\326!\206AL\210\316\327!\330L\210\331\313\"\210\332\333!\207" [dired-mode-map major-mode mode-name buffer-read-only selective-display mode-line-buffer-identification kill-all-local-variables use-local-map dired-advertise dired-mode "Dired" t propertized-buffer-identification "%17b" make-local-variable revert-buffer-function dired-revert page-delimiter "\n\n" dired-directory list-buffers-directory expand-file-name dired-actual-switches font-lock-defaults (dired-font-lock-keywords t) dired-sort-other run-hooks dired-mode-hook dirname default-directory switches dired-listing-switches] 3 (#$ . 34363)]) #@62 Summarize basic Dired commands and show recent Dired errors. (defalias 'dired-summary #[nil "\300 \210\301\302!\207" [dired-why message "d-elete, u-ndelete, x-punge, f-ind, o-ther window, R-ename, C-opy, h-elp"] 2 (#$ . 38106) 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 "\301\302 )\207" [buffer-read-only nil undo] 1 (#$ . 38346) 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) "\301!\210\302 \207" [arg next-line dired-move-to-filename] 2 (#$ . 38698) "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) "\301!\210\302 \207" [arg previous-line dired-move-to-filename] 2 (#$ . 38935) "p"]) #@39 Goto ARG'th next directory file line. (defalias 'dired-next-dirline #[(arg &optional opoint) "\204` \303V\203\304\n\305\306 $\202\307 \210\310\n\305\306 [$\203%\311 \207b\210\312\313!\207" [opoint arg dired-re-dir 0 re-search-forward nil t beginning-of-line re-search-backward dired-move-to-filename error "No more subdirectories"] 5 (#$ . 39177) "p"]) #@43 Goto ARG'th previous directory file line. (defalias 'dired-prev-dirline #[(arg) "\301[!\207" [arg dired-next-dirline] 2 (#$ . 39546) "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 #[(&optional other-window) "\304 \305\306!!\307\306!!\206.\nA\203\310 !\206. \203'\311 !\210\202+\312 !\210\307!*\207" [dir up dired-subdir-alist other-window dired-current-directory file-name-directory directory-file-name dired-goto-file dired-goto-subdir dired-other-window dired] 3 (#$ . 39693) "P"]) (defalias 'dired-advertised-find-file 'dired-find-file) #@59 In dired, visit the file or directory named on this line. (defalias 'dired-find-file #[nil "\302\303 \304\"\304\305 !\203\306 !\202#\307 !\203 \310\311!\202#\310\312!*\207" [find-file-run-dired file-name file-name-sans-versions dired-get-filename t file-exists-p find-file file-symlink-p error "File is a symlink to a nonexistent target" "File no longer exists; type `g' to update Dired buffer"] 3 (#$ . 40250) nil]) #@69 In dired, visit this file or directory instead of the dired buffer. (defalias 'dired-find-alternate-file #[nil "\300\301!\210\302\303 !\207" [set-buffer-modified-p nil find-alternate-file dired-get-filename] 2 (#$ . 40680) nil]) #@58 In dired, visit the file or directory name you click on. (defalias 'dired-mouse-find-file-other-window #[(event) "\303\212\304 \305 8:\203\305\202\306 8)\307\n8)!q\210\212 \305 8:\203+\305\202,\306 8)\306\n8:\203>\306\n8@\202A\306\n8)b\210\310 *\311 \305 8:\203V\305\202W\306 8)\307\n8)!\210\312\313\314\"!)\207" [file event position nil window-buffer 2 1 0 dired-get-filename select-window find-file-other-window file-name-sans-versions t] 4 (#$ . 40915) "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 "\301\302 !\203A\203\303\302 !\206\304\302 !\207\305\302 !\207" [dired-subdir-alist file-directory-p dired-get-filename dired-goto-subdir dired view-file] 2 (#$ . 41403) nil]) #@59 In dired, visit this file or directory in another window. (defalias 'dired-find-file-other-window #[nil "\300\301\302 \303\"!\207" [find-file-other-window file-name-sans-versions dired-get-filename t] 4 (#$ . 41803) nil]) #@61 In dired, display this file or directory in another window. (defalias 'dired-display-file #[nil "\301\302 \303\"\304\305!!)\207" [file file-name-sans-versions dired-get-filename t display-buffer find-file-noselect] 3 (#$ . 42031) nil]) #@519 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 `verbatim' means to return the name exactly as it occurs in the buffer, and 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) "\306\211\211\211\211\212\307 ?!\211\203\310 !)\n\205$ \205$\n {\211\203B\311\312 G\306 $\210\313\314\315\316 \317\306\320%\206> \314Q! \203V\321 !\203V \312H\322=\204V\320 \203o\203o\204o\204o\323 \"\324=\203z \202\244\325=\203\213\203\213\326 !\202\244\204\226\325=\203\232 \202\244 \205\244\327! P-\207" [already-absolute p2 p1 file case-fold-search no-error-if-not-filep nil dired-move-to-filename dired-move-to-end-of-filename set-text-properties 0 read "\"" dired-string-replace-match "\\([^\\]\\|\\`\\)\"" "\\1\\\\\"" t file-name-absolute-p 126 encode-coding-string verbatim no-dir file-name-nondirectory dired-current-directory buffer-file-coding-system file-name-coding-system default-file-name-coding-system localp] 8 (#$ . 42276)]) #@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) "\203-\306\307\310 \f\n#\203*\fG\306\225Z\311 \312\f\f$\211\fG Z)\202 *\207\310 \f\306#\205=\311 \312\f\f$\207" [global ret start regexp string from-end 0 nil string-match replace-match t newtext literal] 5 (#$ . 43668)]) (defalias 'dired-make-absolute #[(file &optional dir) "\206 \nP\207" [dir default-directory file] 2]) #@158 Convert FILE (an absolute file name) to a name relative to DIR. If this is impossible, return FILE unchanged. DIR must be a directory name, not a file name. (defalias 'dired-make-relative #[(file &optional dir ignore) "\204 G\303V\203\303H\304U\203\305!\306\307\310!P\n\"\203*\n\303\225\311O\207\n\207" [dir default-directory file 0 126 expand-file-name string-match "^" regexp-quote nil] 4 (#$ . 44330)]) #@160 Regular expression to match up to the file name in a directory listing. The default value is designed to recognize dates and times regardless of the language. (defvar dired-move-to-filename-regexp (byte-code "\306\306\307Q\310\311\312\313\314\315 \316!\317\"\320# \321!\322\"\323\260$\324\f\325#\326$\327\f\330#\331\260 %\332 \327 \333 \332 \327\f \211\334\327 \334\f\333\260& \n\334 \n\334 \335\332 \327\f\n\334\333\260'\336 \332&\327'\327%\333 \260\n.\207" [l month k s yyyy mm "\\([A-Za-z]\\|[^-]\\)" "+[.]?,? *" "[^-]" " " "[0-9][0-9][0-9][0-9]" "[ 0-1]?[0-9]" "[ 0-3][0-9][.]?" "[ 0-2][0-9]:[0-5][0-9]" "[0-6][0-9]\\([.,][0-9]+\\)?" "[-+][0-2][0-9][0-5][0-9]" "[01][0-9]-[0-3][0-9]" "\\(:" "\\( ?" "\\)?\\)?" "\\(\\(" "-\\)?" "[ T]" "\\|" "-" " ?\\)" "\\(" "\\)" "?" "+" ".*[0-9][kKMGTPEZY]?" dd HH:MM seconds zone iso-mm-dd iso-time iso western japanese] 22) (#$ . 44757)) #@62 Regular expression to match the permission flags in `ls -l'. (defvar dired-permission-flags-regexp "\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)" (#$ . 45686)) (defalias 'dired-move-to-filename #[(&optional raise-error eol) "\204 \303\210`\304 \210\305 \306#\203\307\225b\207\n\205\310\311!\207" [eol dired-move-to-filename-regexp raise-error nil beginning-of-line re-search-forward t 0 error "No file on this line"] 4]) (defalias 'dired-move-to-end-of-filename #[(&optional no-error) "\306\211\211\211\211\211\211\211\307\310\"`\212\306\210`)\205.\212\311\312\313#)\211\204\244\212\314 \306\313#\203a\315\224f\211\316= \205]\307\317\320\224\320\225{\321\224\321\225{\322\224\322\225{Q\"\202j!\204j\323\324!\210)\f\203\217\311\325\313#\203\244\326u\210 \203\244\"\203\244h\327=\203\244\330u\210\202\244b\210 \203\244\331>\204\241 \203\244\330u\210!\204\276`=\203\276\323 \203\273\332\333!\202\274\324!\210`=?\205\307`.\207" [eol used-F case-fold-search hidden symlink executable nil string-match "F" search-forward " " t re-search-backward 1 108 "[xst]" 2 3 4 error "No file on this line" " ->" -3 64 -1 (100 115) substitute-command-keys "File line is hidden, type \\[dired-hide-subdir] to unhide" file-type opoint dired-actual-switches selective-display dired-permission-flags-regexp no-error dired-ls-F-marks-symlinks] 9]) (defalias 'dired-buffers-for-dir #[(dir &optional file) "\306! \307\211\211\211\211\203h@\211A\310 !\203Z\311\f@\"\203_r q\210\312\"\203V\203R\313!\211G\314U\206N\315\316!\")\203V B)\202_\317\f \"A\211\204 -\207" [dir dired-buffers pattern buf elt result file-name-as-directory nil buffer-name dired-in-this-tree assoc file-name-nondirectory 0 string-match dired-glob-regexp delq alist dired-subdir-alist file dired-directory wildcards] 6]) #@55 Convert glob-pattern PATTERN to a regular expression. (defalias 'dired-glob-regexp #[(pattern) "\306\307\310\311\n #\203w\306\225\n\306\224H\312\n \306\224O!P \313U\203-\314P\f\202s \315U\203g\306\224\n TH\316U\203E \317\\\202H \320\\\310\321\n#\n TOPT,\202s \322U\203s\323P\f*\202\324\312\n \307O!\325R*\207" [regexp matched-in-pattern pattern next-op op-end set-start 0 nil string-match "[[?*]" regexp-quote 63 "." 91 94 3 2 "]" 42 ".*" "\\`" "\\'" set-cont set-end set] 6 (#$ . 47588)]) (defalias 'dired-advertise #[nil "\303!p\304 !>\203\305\202 pB\nB\211)\207" [default-directory expanded-default dired-buffers expand-file-name dired-buffers-for-dir t] 3]) (defalias 'dired-unadvertise #[(dir) "\302\303\304! \" \"\211\207" [dir dired-buffers delq assoc expand-file-name] 4]) (defalias 'dired-in-this-tree #[(file dir) "\303\304\305\306 !P\n\")\207" [case-fold-search dir file nil string-match "^" regexp-quote] 4]) (defalias 'dired-normalize-subdir #[(dir) "\302\303!\203 \202\304 \"!\207" [dir default-directory file-name-as-directory file-name-absolute-p expand-file-name] 4]) (defalias 'dired-get-subdir #[nil "\212\302 \303 \210\304`\305\306 \"!Z!\205*\207" [cur-dir dired-subdir-alist dired-current-directory beginning-of-line zerop dired-get-subdir-min assoc] 6]) (defalias 'dired-get-subdir-min 'cdr) (defalias 'dired-get-subdir-max #[(elt) "\212\301!b\210\302 )\207" [elt dired-get-subdir-min dired-subdir-max] 2]) (defalias 'dired-clear-alist #[nil "\205\301@!\302\211\223\210A\211\204\302\207" [dired-subdir-alist dired-get-subdir-min nil] 4]) (defalias 'dired-subdir-index #[(dir) "\305\306 \203\"\f @@\230\203\305\307\202 A\nT\202 \205'\n+\207" [dired-subdir-alist alist index found dir nil 0 t] 3]) #@47 Go to next subdirectory, regardless of level. (defalias 'dired-next-subdir #[(arg &optional no-error-if-not-found no-skip) "\306 \307\211\310\n! Z\211\311Y\205\312\f8!\211\203, b\210 \204(\313\307w\210`\202@?\205@\314\315 \311V\203>\316\202?\317\"+\207" [index pos this-dir arg dired-subdir-alist no-skip dired-current-directory nil dired-subdir-index 0 dired-get-subdir-min "^\n " error "%s directory" "Last" "First" no-error-if-not-found] 5 (#$ . 49399) "p"]) #@174 Build `dired-subdir-alist' by parsing the buffer. Returns the new value of the alist. If optional arg SWITCHES is non-nil, use its value instead of `dired-actual-switches'. (defalias 'dired-build-subdir-alist #[(&optional switches) "\306 \210\212\307\310\n\206 \310\311\312\n\"\205$\311\313 \"\205$\314\315\316 \"Peb\210\310\317\310\320#\203\237\212\307\224b\210\321 \210\322u\210\323  \324\216\325!!+\204\237\212\316\224b\210\326`\316\225\"\323  \327\216\203|\f \230\204|\311\f\"\203| \f\307\225\310OP\202\330\f!*`\316\225|\210\fc\210)T\331\f\212\307\224b\210\321 \210\332 )\"\210\202,\316V\203\252\333\334\"\210.\207" [count buffer-read-only switches dired-actual-switches new-dir-name default-directory dired-clear-alist 0 nil string-match "R" "\\`/.*:\\(/.*\\)" "\\`" match-string 1 re-search-forward t beginning-of-line 2 match-data ((set-match-data save-match-data-internal)) looking-at buffer-substring-no-properties ((set-match-data save-match-data-internal)) expand-file-name dired-alist-add-1 point-marker message "Buffer includes %d directories" R-ftp-base-dir-regex dired-subdir-alist dired-subdir-regexp save-match-data-internal dired-re-perms] 4 (#$ . 49884) nil]) (defalias 'dired-alist-add-1 #[(dir new-marker) "\303! B\nB\211\207" [dir new-marker dired-subdir-alist dired-normalize-subdir] 2]) (defalias 'dired-goto-next-nontrivial-file #[nil "\301 \210;\205&m?\205&\302\303\304\305\306\"\206\307!\"\205&\310y\210\311 \210\202\207" [dired-trivial-filenames dired-goto-next-file string-match file-name-nondirectory dired-get-filename nil t "" 1 dired-move-to-filename] 6]) (defalias 'dired-goto-next-file #[nil "\301 S\302 ?\205`W\205\303y\210\202)\207" [max dired-subdir-max dired-move-to-filename 1] 2]) #@47 Go to file line of FILE in this dired buffer. (defalias 'dired-goto-file #[(file) "\306!\307\211\211\310!\206\311\312\"\212 \313\f!\230\203#eb\202+ A\203_\314 !\203_\315!\316  \204^\317\320P\321#\203^\322\323\324\"\232\203X\325 \211\2028\326y\210\2027*) \205f b+\207" [file dir case-fold-search found default-directory dired-subdir-alist directory-file-name nil file-name-directory error "Need absolute pathname for %s" expand-file-name dired-goto-subdir file-name-nondirectory dired-subdir-max search-forward " " move dired-get-filename no-dir t dired-move-to-filename 1 boundary base] 5 (#$ . 51670) (byte-code "\300\301\302\303 \"!C\304 \210\207" [expand-file-name read-file-name "Goto file: " dired-current-directory push-mark] 4)]) (defalias 'dired-initial-position #[(dirname) "\301\210\205 \302 \207" [dired-trivial-filenames nil 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) "`\206 \306\307p\"\310\211 \203) @\211@\311\n!\fX?\205$ A\211\204 \2035\312  \"\2026 ,\207" [dired-subdir-alist dir elt alist here localp error "No subdir-alist in %s" nil dired-get-subdir-min dired-make-relative default-directory] 5 (#$ . 52586)]) (defalias 'dired-subdir-max #[nil "\212A\203\301\302\303\211#\204d\202`)\207" [dired-subdir-alist dired-next-subdir 1 t] 4]) #@289 *Decide whether recursive deletes are allowed. Nil means no recursive deletes. `always' means delete recursively without asking. This is DANGEROUS! `top' means ask for each directory at top level, but delete its subdirectories without asking. Anything else means ask for each directory. (custom-declare-variable 'dired-recursive-deletes 'nil '(#$ . -53255) :type '(choice :tag "Delete not empty directory" (const :tag "No. Only empty directories" nil) (const :tag "Ask for each directory" t) (const :tag "Ask for each top directory only" top)) :group 'dired) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list dired-re-no-dot boundp "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*"] 2) #@310 Delete FILE or directory (possibly recursively if optional RECURSIVE is true.) RECURSIVE determines what to do with a non-empty directory. If RECURSIVE is: Nil, do not delete. `always', delete recursively without asking. `top', ask for each directory at top level. Anything else, ask for each sub-directory. (defalias 'dired-delete-file #[(file &optional recursive) "\304\305 !@\306=\204\307 !\202L\n\203I\310 \306 #\211\203I\n\311=\2040\312\313\314\315 !\"!\203I\n\316=\2038\311\203I\317@\n\"\210A\211\204<\320 !)\207" [files file recursive dired-re-no-dot nil file-attributes t delete-file directory-files always yes-or-no-p format "Recursive delete of %s " dired-make-relative top dired-delete-file delete-directory] 6 (#$ . 53957)]) #@135 In dired, delete the files flagged for deletion. If NOMESSAGE is non-nil, we don't display any message if there are no flagged files. (defalias 'dired-do-flagged-delete #[(&optional nomessage) "\306 \307\212eb\210\310\n\307\311#)\203}\312\307\211\211\211\306 \307\212eb\210\310\n\307\311#\2052\313 \211??\203eb\210\314 `B\fBb\210\315y\210\307\211\223\210\310\n\307\311#\205_\313 \211\204=) \203n\f\202s\314 `BC.\316 \210\307\"\202\205\206\205\317\320!+\207" [dired-del-marker dired-marker-char regexp case-fold-search results found dired-marker-regexp nil re-search-forward t dired-internal-do-deletions point-marker dired-get-filename 1 dired-move-to-filename message "(No deletions requested)" buffer-read-only next-position nomessage] 6 (#$ . 54719) nil]) #@40 Delete all marked (or next ARG) files. (defalias 'dired-do-delete #[(&optional arg) "\306\307\211\211\211\f\203.\f\250\203&\310\f\311\"\210\f\312W\203\"\237\202\200\202\200\313 `BC\202\200\314 \307\212eb\210\315\307\316#\205C\317 \211?? \203q b\210\313 `BB b\210\320y\210 \307\211\223\210\315\307\316#\205l\317 \211\204L) \203z\202\313 `BC*,\321 \210\f\"\207" [results found case-fold-search buffer-read-only arg next-position dired-internal-do-deletions nil dired-repeat-over-lines #[nil "\301 `BB\211\207" [results dired-get-filename] 2] 0 dired-get-filename dired-marker-regexp re-search-forward t point-marker 1 dired-move-to-filename regexp] 6 (#$ . 55522) "P"]) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list dired-deletion-confirmer boundp yes-or-no-p] 2) (defalias 'dired-internal-do-deletions #[(l arg) "\306\307\"G\310\306\311 \"\237\312\313\314 \f\315\316\317 \"\"%\203`\212\320\203=@Ab\210\320\321\322\323\217\210)A\211\204(\204M\324\325\n\326\n!#\210\202\\\327\315\330G\n\326\n!$\"\210*\202d\324\331!\210+\332 \207" [l succ count files dired-deletion-confirmer arg mapcar car 0 dired-make-relative dired-mark-pop-up " *Deletions*" delete format "Delete %s " dired-mark-prompt nil err (byte-code "@@\305 \n\"\210 T\306\307 \f#\210\310 \210`\311y\210`|\210\312 !\210)\305\207" [l fn dired-recursive-deletes succ count dired-delete-file message "%s of %s deletions" beginning-of-line 1 dired-clean-up-after-deletion] 4) ((error (byte-code "\303\304\"\210 @@\nB\303\207" [err l failures dired-log "%s\n"] 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 failures buffer-read-only] 11]) (defalias 'dired-clean-up-after-deletion #[(fn) "\212A\205\302 !\205\303 )\207" [dired-subdir-alist fn dired-goto-subdir dired-kill-subdir] 2]) (defalias 'dired-marker-regexp #[nil "\301\302\303!!P\207" [dired-marker-char "^" regexp-quote char-to-string] 4]) (defalias 'dired-plural-s #[(count) "\301U\203\302\207\303\207" [count 1 "" "s"] 2]) (defalias 'dired-mark-prompt #[(arg files) "G\211\304U\203@\202\n\250\203\305\306\n\"\202\305\307 #)\207" [files count arg dired-marker-char 1 format "[next %d files]" "%c [%d files]"] 5]) (defalias 'dired-pop-to-buffer #[(buf) "\204\n\306\307 !!\207\310 \311\211\312\313 \211! V\203*\314 \315\n!U\203*\n\202E\312\316 \211!\211\\\317\\V\203E\314 \315\n!U\203E\n\212 q\210db\210\320\311x\210\321e`\"n\204\\ T)\312\f!\211\\\317\\X\203q\322 !\202\201\323\f\312\f! ]TZ]\"\324\n \"\210\312\n!S W\203\234\325\n!\210\326 \312\n!SZ!\210\327\n\330\"+\207" [dired-shrink-to-fit buf w2 target-lines window split-height-threshold pop-to-buffer get-buffer-create selected-window nil window-height get-largest-window frame-width window-width get-lru-window 0 "\n " count-lines display-buffer split-window set-window-buffer select-window enlarge-window set-window-start 1 window-min-height] 6]) #@225 A list of symbols for commands dired should not confirm. Command symbols are `byte-compile', `chgrp', `chmod', `chown', `compress', `copy', `delete', `hardlink', `load', `move', `print', `shell', `symlink' and `uncompress'. (defvar dired-no-confirm nil (#$ . 58586)) #@485 Args BUFNAME OP-SYMBOL FILES FUNCTION &rest ARGS. Return FUNCTION's result on ARGS after popping up a window (in a buffer named BUFNAME, nil gives " *Marked Files*") showing the marked files. Uses function `dired-pop-to-buffer' to do that. FUNCTION should not manipulate files. It should only read input (an argument or confirmation). The window is not shown if there is just one file or OP-SYMBOL is a member of the list in `dired-no-confirm'. FILES is the list of marked files. (defalias 'dired-mark-pop-up #[(bufname op-symbol files function &rest args) "\204\306 \307=\204\n >\204 G\310U\203\311\f \"\207r\312!q\210\313 \210\314 !\210\315ed\316#\210)\317\213\207" [bufname dired-no-confirm op-symbol files function args " *Marked Files*" t 1 apply get-buffer-create erase-buffer dired-format-columns-of-files remove-text-properties (mouse-face nil help-echo nil) ((byte-code "\303!\210\304 \n\"\207" [bufname function args dired-pop-to-buffer apply] 3))] 4 (#$ . 58860)]) (defalias 'dired-format-columns-of-files #[(files) "\306\307\310\311\"\"\312\\\313\314 !\312Z\315\n \245]G\211 \245\316\f \246!\203)\317\202*\315\\\317\317\320!\321 _\fZ\322\"\244\211GS\233\241\210 W\203} W\203l _j\210@c\210 \233T\211\202P\323c\210\317TA\202G .\207" [files maxlen width columns nfiles rows apply max mapcar length 2 window-width selected-window 1 zerop 0 copy-sequence make-list "" "\n" i j] 6]) (defalias 'dired-repeat-over-lines #[(arg function) "\303 \304 \210 \305V\203;m\204; S\304 \210m\204%\306 \203%\307y\210\202\212\307y\210`T\310\223\210)\212\n \210)b\210\202 \305W\203eo\204e T\311y\210o\204Z\306 \203Z\311y\210\202K\304 \210\212\n \210)\202;\310\211\223\210\312 )\207" [pos arg function make-marker beginning-of-line 0 dired-between-files 1 nil -1 dired-move-to-filename] 3]) (defalias 'dired-between-files #[nil "\301\302!\206\301!\205\212\303 )?\207" [dired-subdir-regexp looking-at "^$\\|^. *$\\|^. total\\|^. wildcard\\|^. used\\|^. find" 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) "\204` \304V\203\305\n\306\307 $\202\310 \210\311\n\306\307 [$\203%\312 \207 \2040b\210\313\314!\207\315\316!\210 \304V\203>e\202?db\210\317 \306#\207" [opoint arg dired-re-mark wrap 0 re-search-forward nil t beginning-of-line re-search-backward dired-move-to-filename error "No next marked file" message "(Wraparound for next marked file)" dired-next-marked-file] 5 (#$ . 60927) "p\np"]) #@74 Move to the previous marked file, wrapping around the end of the buffer. (defalias 'dired-prev-marked-file #[(arg &optional wrap) "\302[ \"\207" [arg wrap dired-next-marked-file] 3 (#$ . 61469) "p\np"]) (defalias 'dired-file-marker #[(file) "\212\301!\205\302 \210g\303\232?\205g)\207" [file dired-goto-file beginning-of-line 32] 2]) (defalias 'dired-mark-files-in-region #[(start end) "\305 \nV\203\f\306\307!\210 b\210`\nW\205@`\nW\203&\310 \203&\311y\210\202\312 !\204:\313\305\314\"\203:\315\311!\210\fc\210\311y\210\202)\207" [buffer-read-only start end dired-re-dot dired-marker-char nil error "start > end" dired-between-files 1 looking-at dired-get-filename t delete-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) "\302 \203\n\212\303 )\207\304\305\306 !\307\")\207" [buffer-read-only arg dired-get-subdir dired-mark-subdir-files nil dired-repeat-over-lines prefix-numeric-value #[nil "\301\302!\210c\207" [dired-marker-char delete-char 1] 2]] 3 (#$ . 62178) "P"]) #@107 Unmark the current (or next ARG) files. If looking at a subdir, unmark all its files except `.' and `..'. (defalias 'dired-unmark #[(arg) "\302\303 !)\207" [dired-marker-char arg 32 dired-mark] 2 (#$ . 62693) "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) "\303\n!)\207" [dired-del-marker dired-marker-char arg dired-mark] 2 (#$ . 62916) "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) "\301[!\207" [arg dired-unmark] 2 (#$ . 63222) "p"]) #@217 Toggle marks. That is, currently marked files become unmarked and vice versa. Files marked with other flags (such as `D') are not affected. `.' and `..' are never toggled. As always, hidden subdirs are not affected. (defalias 'dired-do-toggle #[nil "\212eb\210\303m?\2052\304 \204,\305 !\204,\306\307``Tg\310=\203'\310\nD\202*\n\310D$\210\311y\210\202*\207" [buffer-read-only dired-re-dot dired-marker-char nil dired-between-files looking-at apply subst-char-in-region 32 1] 6 (#$ . 63452) nil]) #@61 History list of regular expressions used in Dired commands. (defvar dired-regexp-history nil (#$ . 63962)) (defalias 'dired-read-regexp #[(prompt) "\301\302\211\211\303%\207" [prompt read-from-minibuffer 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) "\206 \306\211\212\307\310\311\312\"\210eb\210m\204G\313\f!\204Al\204A\314\306\315\"\211\2053\316\317 !\")\203A\320\321!\210 c\210\nT\321y\210\202\310\322\n\312\323\n! \324=\203X\325\202Y\326 =\203d\327\202e\330&\210)\n\307V\205p\n+\207" [marker-char dired-marker-char count buffer-read-only dired-re-dot fn nil 0 message "Marking %ss..." "matching file" looking-at dired-get-filename t string-match file-name-nondirectory delete-char 1 "%s %s%s %s%s." dired-plural-s 32 "un" "" "flagged" "marked" regexp dired-del-marker] 9 (#$ . 64204) (list (dired-read-regexp (concat (if current-prefix-arg "Unmark" "Mark") " files (regexp): ")) (if current-prefix-arg 32))]) #@154 Mark all files with contents containing REGEXP for use in later commands. A prefix argument means to unmark them instead. `.' and `..' are never marked. (defalias 'dired-mark-files-containing-regexp #[(regexp &optional marker-char) "\206 \306\211\212\307\310\311\312\"\210eb\210m\204\214\313\f!\204\206l\204\206\314\306\315\"\211\205x\316 !\205x\317 !?\205x\320 !!\310\321 \"\210!\203[r!q\210\212eb\210\322\"\306\315#*\202w\323\324\325!!#\326\216r#q\210\327 !\210eb\210\322\"\306\315#+))\203\206\330\331!\210 c\210\nT\331y\210\202\310\332\n\312\333\n! \334=\203\235\335\202\236\336 $=\203\251\337\202\252\340&\210)\n\307V\205\265\n+\207" [marker-char dired-marker-char count buffer-read-only dired-re-dot fn nil 0 message "Marking %ss..." "matching file" looking-at dired-get-filename t file-readable-p file-directory-p get-file-buffer "Checking %s" re-search-forward get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents delete-char 1 "%s %s%s %s%s." dired-plural-s 32 "un" "" "flagged" "marked" prebuf regexp #1# dired-del-marker] 9 (#$ . 65238) (list (dired-read-regexp (concat (if current-prefix-arg "Unmark" "Mark") " files containing (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) "\302 \"\207" [regexp dired-del-marker dired-mark-files-regexp] 3 (#$ . 66576) (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) "\203\306\202 \307\211\212\310\311\312\313\"\210eb\210m\2043\314\f!\203-\315\316!\210 c\210\nT\316y\210\202\311\317\n\313\320\n! \306=\203D\321\202E\322 =\203O\323\202P\324&\210)\n\310V\205[\n+\207" [unflag-p dired-marker-char count buffer-read-only dired-re-sym dired-del-marker 32 nil 0 message "Marking %ss..." "symbolic link" looking-at delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "" "flagged" "marked"] 8 (#$ . 67003) "P"]) #@98 Mark all directory file lines except `.' and `..'. With prefix argument, unflag all those files. (defalias 'dired-mark-directories #[(unflag-p) "\203\306\202 \307\211\212\310\311\312\313\"\210eb\210m\2049\314\f!\2033\314 !\2043\315\316!\210 c\210\nT\316y\210\202\311\317\n\313\320\n! \306=\203J\321\202K\322 =\203V\323\202W\324&\210)\n\310V\205b\n+\207" [unflag-p dired-marker-char count buffer-read-only dired-re-dir dired-re-dot 32 nil 0 message "Marking %ss..." "directory file" looking-at delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "" "flagged" "marked" dired-del-marker] 8 (#$ . 67580) "P"]) #@74 Mark all executable files. With prefix argument, unflag all those files. (defalias 'dired-mark-executables #[(unflag-p) "\203\306\202 \307\211\212\310\311\312\313\"\210eb\210m\2043\314\f!\203-\315\316!\210 c\210\nT\316y\210\202\311\317\n\313\320\n! \306=\203D\321\202E\322 =\203O\323\202P\324&\210)\n\310V\205[\n+\207" [unflag-p dired-marker-char count buffer-read-only dired-re-exe dired-del-marker 32 nil 0 message "Marking %ss..." "executable file" looking-at delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "" "flagged" "marked"] 8 (#$ . 68213) "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) "\203\306\202 \307\211\212\310\311\312\313\"\210eb\210m\204a\212\307\210h\314=\2063h\315=\2053\316u\210h\314=)\203[\317 !\204[\320\321\211\"\211\205M\322\323!!)\203[\324\325!\210\nc\210 T\325y\210\202\311\326 \313\327 !\n\306=\203r\330\202s\331\n =\203}\332\202~\333&\210) \310V\205\211 +\207" [unflag-p dired-del-marker dired-marker-char count buffer-read-only dired-re-dir 32 nil 0 message "Marking %ss..." "auto save file" 35 42 -1 looking-at dired-get-filename t auto-save-file-name-p file-name-nondirectory delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "" "flagged" "marked" fn] 9 (#$ . 68798) "P"]) #@78 *Regular expression to match "garbage" files for `dired-flag-garbage-files'. (defvar dired-garbage-files-regexp "\\.log$\\|\\.toc$\\|\\.dvi$\\|\\.bak$\\|\\.orig$\\|\\.rej$" (#$ . -69628)) #@70 Flag for deletion all files that match `dired-garbage-files-regexp'. (defalias 'dired-flag-garbage-files #[nil "\301!\207" [dired-garbage-files-regexp dired-flag-files-regexp] 2 (#$ . 69822) nil]) #@103 Flag all backup files (names ending with `~') for deletion. With prefix argument, unflag these files. (defalias 'dired-flag-backup-files #[(&optional unflag-p) "\203\306\202 \307\211\212\310\311\312\313\"\210eb\210m\204Y\212\307\210h\314=\203*\315u\210h)\316=\203S\317 !\204S\320\321\211\"\211\205E\322!)\203S\323\324!\210\nc\210 T\324y\210\202\311\325 \313\326 !\n\306=\203j\327\202k\330\n =\203u\331\202v\332&\210) \310V\205\201 +\207" [unflag-p dired-del-marker dired-marker-char count buffer-read-only dired-re-dir 32 nil 0 message "Marking %ss..." "backup file" 42 -1 126 looking-at dired-get-filename t backup-file-name-p delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "" "flagged" "marked" fn] 9 (#$ . 70027) "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) "\305=\204\f \305=\203\306 \207\307\310\"\311\212eb\210\312 \311\313#\205E\314U\2035\315 \316\216\317\320\313\"*\2026\313\203\321\322\224\322\225 $\210\202+\207" [old new buffer-read-only string save-match-data-internal 13 ding format "\n%c" nil search-forward t 32 match-data ((set-match-data save-match-data-internal)) dired-get-filename no-dir subst-char-in-region 0] 5 (#$ . 70787) (let* ((cursor-in-echo-area t) (old (progn (message "Change (old mark): ") (read-char))) (new (progn (message "Change %c marks to (new mark): " old) (read-char)))) (list old new))]) #@54 Remove all marks from all files in the Dired buffer. (defalias 'dired-unmark-all-marks #[nil "\300\301!\207" [dired-unmark-all-files 13] 2 (#$ . 71517) 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) "\212\306\307\307\307\310\311\f\"\312eb\210\f\313=\203#\314\307\315#\202(\316 \307\315#\203H\203:\317\303\320\321\315!#\203\322`S`h\323$\210T\202\324\325U\203S\326\202T\327\".\207" [count buffer-read-only case-fold-search query mark string 0 nil format "\n%c" "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." 13 re-search-forward t search-forward dired-query "Unmark file `%s'? " dired-get-filename subst-char-in-region 32 message 1 "1 mark removed" "%d marks removed" help-form dired-re-mark arg] 5 (#$ . 71682) "cRemove marks (RET means all): \nP"]) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list dired-log-buffer boundp "*Dired log*"] 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 "\303!\205\304 \305\303!!\306\216\307 !\210db\210\310\311!+\207" [dired-log-buffer window owindow get-buffer selected-window display-buffer ((select-window owindow)) select-window recenter -1] 4 (#$ . 72743) nil]) (defalias 'dired-log #[(log &rest args) "p\305\216\306 !q\210db\210\307 ;\203$\f\203\310\311 \f#\202 c\202@\312 !\2030\313 !\202@ \314=\205@\315\316 \317\320!\321\261+\207" [obuf dired-log-buffer buffer-read-only log args ((set-buffer obuf)) get-buffer-create nil apply format bufferp insert-buffer t "\n " current-time-string " Buffer `" buffer-name "'\n\f\n"] 5]) (defalias 'dired-log-summary #[(string failures) "\302\203 \303\202\n\304 #\210\305\306 P!\210\305\307!\207" [failures string message "%s--type ? for details (%s)" "%s--type ? for details" dired-log "\n" t] 4]) #@77 String of `ls' switches (single letters) except `t' that influence sorting. (defvar dired-ls-sorting-switches "SXU" (#$ . 73773)) #@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 "]*$") (#$ . 73909)) #@51 Regexp recognized by dired to set `by name' mode. (defvar dired-sort-by-name-regexp (concat "^-[^t" dired-ls-sorting-switches "]+$") (#$ . 74095)) (defalias 'dired-sort-set-modeline #[nil "\305\306 \n\"\203 \307\202\306 \n\"\203\310\202\311\nP)\312 \207" [case-fold-search dired-sort-by-name-regexp dired-actual-switches dired-sort-by-date-regexp mode-name nil string-match "Dired by name" "Dired by date" "Dired " 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) "\203 \302\303\304 \"!\207\305 \207" [arg dired-actual-switches dired-sort-other read-string "ls switches (must contain -l): " dired-sort-toggle] 4 (#$ . 74554) "P"]) (defalias 'dired-sort-toggle #[nil "\303\304\305 \"\203\304\306 \"\203\307\306\310 #\2027 \311P\2027\312\307\313\n\314Q\310 #\304\315\n\314Q \"\2035\310\2026\316Q)\317 \210\320 \207" [case-fold-search dired-actual-switches dired-ls-sorting-switches nil string-match " " " -t\\'" dired-replace-in-string "" " -t" "-l" "[-lt" "]" "[t" "t" dired-sort-set-modeline revert-buffer] 6]) (defalias 'dired-replace-in-string #[(regexp newtext string) "\306\307\310\211\311\f \n#\203$\307\224\307\225 \n O\nQ\202 \n\310OP,\207" [me mb start result regexp string "" 0 nil string-match newtext] 4]) (defalias 'dired-sort-other #[(switches &optional no-revert) "\304!\210\n\305=\203\306 \210 \206\307 \207" [switches dired-actual-switches major-mode no-revert dired-sort-R-check dired-mode dired-sort-set-modeline revert-buffer] 2]) (byte-code "\302\301B\303\301\304\305#\210\306\301!\204\307\301!\207" [current-load-list dired-subdir-alist-pre-R make-variable-buffer-local put variable-documentation "Value of `dired-subdir-alist' before -R switch added." boundp nil] 5) #@240 Additional processing of -R in ls option string SWITCHES. Saves `dired-subdir-alist' when R is set and restores saved value minus any directories explicitly deleted when R is cleared. To be called first in body of `dired-sort-other', etc. (defalias 'dired-sort-R-check #[(switches) "\306\307\"\203\306\307 \"\204\n\211\207\306\307 \"\205Q\306\307\"?\205Q \203J\310 \203C\311 \211@@)\n\"\203< @\fB A\211\204+\312\f!)\202O\312\n!@C\211\207" [switches dired-actual-switches dired-subdir-alist dired-subdir-alist-pre-R subdirs x string-match "R" nil assoc reverse] 4 (#$ . 76017)]) #@233 Compare file at point with file FILE using `diff'. FILE defaults to the file at the mark. (That's the mark set by \[set-mark-command], not by Dired's \[dired-mark] command.) The prompted-for file is the first file given to `diff'. (autoload 'dired-diff "dired-aux" '(#$ . 76621) 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 'dired-backup-diff "dired-aux" '(#$ . 76911) 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 'dired-clean-directory "dired-aux" '(#$ . 77195) t) #@114 Change the mode of the marked (or next ARG) files. This calls chmod, thus symbolic modes like `g+w' are allowed. (autoload 'dired-do-chmod "dired-aux" '(#$ . 77616) t) #@53 Change the group of the marked (or next ARG) files. (autoload 'dired-do-chgrp "dired-aux" '(#$ . 77790) t) #@53 Change the owner of the marked (or next ARG) files. (autoload 'dired-do-chown "dired-aux" '(#$ . 77903) t) #@129 Print the marked (or next ARG) files. Uses the shell command coming from variables `lpr-command' and `lpr-switches' as default. (autoload 'dired-do-print "dired-aux" '(#$ . 78017) 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 'dired-do-shell-command "dired-aux" '(#$ . 78207) t) #@97 Kill all marked lines (not the files). With a prefix arg, kill all lines not marked or flagged. (autoload 'dired-do-kill-lines "dired-aux" '(#$ . 79066) t) #@52 Compress or uncompress marked (or next ARG) files. (autoload 'dired-do-compress "dired-aux" '(#$ . 79228) t) #@53 Byte compile marked (or next ARG) Emacs Lisp files. (autoload 'dired-do-byte-compile "dired-aux" '(#$ . 79343) t) #@49 Load the marked (or next ARG) Emacs Lisp files. (autoload 'dired-do-load "dired-aux" '(#$ . 79463) 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 'dired-do-redisplay "dired-aux" '(#$ . 79572) t) #@38 Create a directory called DIRECTORY. (autoload 'dired-create-directory "dired-aux" '(#$ . 79815) 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 'dired-do-copy "dired-aux" '(#$ . 79922) 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 'dired-do-symlink "dired-aux" '(#$ . 80160) 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 'dired-do-hardlink "dired-aux" '(#$ . 80531) 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 'dired-do-rename "dired-aux" '(#$ . 80899) 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 'dired-do-rename-regexp "dired-aux" '(#$ . 81145) t) #@106 Copy all marked files containing REGEXP to NEWNAME. See function `dired-do-rename-regexp' for more info. (autoload 'dired-do-copy-regexp "dired-aux" '(#$ . 81655) t) #@110 Hardlink all marked files containing REGEXP to NEWNAME. See function `dired-do-rename-regexp' for more info. (autoload 'dired-do-hardlink-regexp "dired-aux" '(#$ . 81828) t) #@109 Symlink all marked files containing REGEXP to NEWNAME. See function `dired-do-rename-regexp' for more info. (autoload 'dired-do-symlink-regexp "dired-aux" '(#$ . 82009) t) #@54 Rename all marked (or next ARG) files to upper case. (autoload 'dired-upcase "dired-aux" '(#$ . 82187) t) #@54 Rename all marked (or next ARG) files to lower case. (autoload 'dired-downcase "dired-aux" '(#$ . 82299) 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 'dired-maybe-insert-subdir "dired-aux" '(#$ . 82414) t) #@47 Go to next subdirectory, regardless of level. (autoload 'dired-next-subdir "dired-aux" '(#$ . 82917) 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 'dired-prev-subdir "dired-aux" '(#$ . 83028) 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 'dired-goto-subdir "dired-aux" '(#$ . 83221) t) #@37 Mark all files except `.' and `..'. (autoload 'dired-mark-subdir-files "dired-aux" '(#$ . 83447) t) #@72 Remove all lines of current subdirectory. Lower levels are unaffected. (autoload 'dired-kill-subdir "dired-aux" '(#$ . 83553) t) #@37 Go up ARG levels in the dired tree. (autoload 'dired-tree-up "dired-aux" '(#$ . 83688) t) #@28 Go down in the dired tree. (autoload 'dired-tree-down "dired-aux" '(#$ . 83784) 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 'dired-hide-subdir "dired-aux" '(#$ . 83874) 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 'dired-hide-all "dired-aux" '(#$ . 84098) t) #@198 Print the type of FILE, according to the `file' command. If FILE is a symbolic link and the optional argument DEREF-SYMLINKS is true then the type of the file linked to by FILE is printed instead. (autoload 'dired-show-file-type "dired-aux" '(#$ . 84351) t) (byte-code "\301=\203\n\302\303!\210\304\305!\210\306\307!\207" [system-type vax-vms load "dired-vms" provide dired run-hooks dired-load-hook] 2)