;ELC ;;; Compiled by rms@psilocin.ai.mit.edu on Tue Aug 4 23:35:12 1998 ;;; from file /gd/gnu/emacs/lisp/dired.el ;;; in Emacs version 20.2.98.3 ;;; with bytecomp version 2.48 ;;; 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 "\302\303\304\305\306%\210\302\307\304\310 \311\303&\207" [:group :prefix custom-declare-group dired nil "Directory editing." environment dired-mark "Handling marks in dired." "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" '(#$ . -802) :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) (#$ . 1148)) #@42 Name of chmod command (usually `chmod'). (defvar dired-chmod-program "chmod" (#$ . 1431)) #@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 '(#$ . -1528) :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 '"^\\.\\.?$\\|^#" '(#$ . -2242) :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 '(#$ . -2584) :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 '(#$ . -2945) :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 '(#$ . -3292) :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 '(#$ . -3635) :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 '(#$ . -3981) :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 '(#$ . -4349) :type 'boolean :group 'dired) #@87 Run after loading dired. You can customize key bindings or load extensions with this. (defvar dired-load-hook nil (#$ . 4556)) #@36 Run at the very end of dired-mode. (defvar dired-mode-hook nil (#$ . 4689)) #@74 This hook is run before a dired buffer is read in (created or reverted). (defvar dired-before-readin-hook nil (#$ . 4771)) #@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 (#$ . 4901)) #@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 (#$ . 5121)) #@44 Character used to flag files for deletion. (defvar dired-del-marker 68 (#$ . 5283)) #@73 Non-nil means Dired shrinks the display buffer to fit the marked files. (defvar dired-shrink-to-fit t (#$ . 5373)) (byte-code "\302\300!\204\303\300 B\304 B\303\207" [dired-flagging-regexp current-load-list 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 (#$ . 5632)) #@72 The value of `dired-listing-switches' used to make this buffer's text. (defvar dired-actual-switches nil (#$ . 5880)) #@72 Regexp for optional initial inode and file size as made by `ls -i -s'. (defvar dired-re-inode-size "[0-9 ]*" (#$ . 6004)) (byte-code "\306\300!\204\307\300 B\306\302!\204\310\302 B\306\304!\204#\n \311Q\304 B\306\305!\2042\n \312Q\305 B\306\313!\204C\314\315\316\317# \313 B\306\320!\204P\321\320 B\306\322!\204]\323\322 B\306\207" [dired-re-mark current-load-list 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 (#$ . 6784)) #@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 ]" (#$ . 7071)) #@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) (#$ . 7426)) (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])) (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])) #@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 (#$ . 9682)]) (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 (#$ . 11066) (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 (#$ . 12039) (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 (#$ . 12327) (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 (#$ . 12604)]) (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]) (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 :\203 @\202 \307! :\203 AB\310\311!\210\212\312\313\"\210\nq\210\306\314~\210\315 \210\316 !\210\317ed\320#\210eb\210\321\322!\204J\323 !\210*\312\324\"\210\325\326!\306L\210\327 \210\330!\211@\314=\203l\331\3328!\210)\333\306!*\207" [dirname dir-or-list buffer failed buffer-read-only default-directory 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 attributes] 5]) (defalias 'dired-readin-insert #[(dir-or-list) "\304 :\203 @\202 \305\n!\305!\232\203' :\204'\306 \304\307$\202L\310\311\312!!!\2048\313\314\"\202L\306 " dired-next-dirline "^" dired-up-directory " " "" "" [down] [up] "$" dired-hide-subdir "\244" dired-hide-all "?" dired-summary "" "" 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 revert-buffer] ("Update Buffer" . revert-buffer) [menu-bar immediate dashes] ("--") [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 regexp mark] ("Mark Containing..." . dired-mark-files-containing-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-marks) [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 garbage-files] ("Flag Garbage Files" . dired-flag-garbage-files) [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 mark toggle-marks] ("Toggle Marks" . dired-do-toggle) [menu-bar operate] "Operate" [menu-bar operate query-replace] ("Query Replace in Files..." . dired-do-query-replace) [menu-bar operate search] ("Search Files..." . dired-do-search) [menu-bar operate chown] ("Change Owner..." . dired-do-chown) [menu-bar operate chgrp] ("Change Group..." . dired-do-chgrp) [menu-bar operate chmod] ("Change Mode..." . dired-do-chmod) [menu-bar operate load] ("Load" . dired-do-load) [menu-bar operate compile] ("Byte-compile" . dired-do-byte-compile) [menu-bar operate compress] ("Compress" . dired-do-compress) [menu-bar operate print] ("Print" . dired-do-print) [menu-bar operate hardlink] ("Hardlink to..." . dired-do-hardlink) [menu-bar operate symlink] ("Symlink to..." . dired-do-symlink) [menu-bar operate command] ("Shell Command..." . dired-do-shell-command) [menu-bar operate delete] ("Delete" . dired-do-delete) [menu-bar operate rename] ("Rename to..." . dired-do-rename) [menu-bar operate copy] ("Copy to..." . dired-do-copy) put dired-mode mode-class special] 6) #@2928 Mode for "editing" directory listings. In dired, you are "editing" a list of the files in a directory and (optionally) its subdirectories, in the format of `ls -lR'. Each directory is a page: use \[backward-page] and \[forward-page] to move pagewise. "Editing" means that you can run shell commands on files, visit, compress, load or byte-compile them, change their file attributes and insert subdirectories into the same buffer. You can "mark" files for later commands or "flag" them for deletion, either file by file or all files matching certain criteria. You can move using the usual cursor motion commands.\ Letters no longer insert themselves. Digits are prefix arguments. Instead, type \[dired-flag-file-deletion] to flag a file for Deletion. Type \[dired-mark] to Mark a file or subdirectory for later commands. Most commands operate on the marked files and use the current file if no files are marked. Use a numeric prefix argument to operate on the next ARG (or previous -ARG if ARG<0) files, or just `1' to operate on the current file only. Prefix arguments override marks. Mark-using commands display a list of failures afterwards. Type \[dired-summary] to see why something went wrong. Type \[dired-unmark] to Unmark a file or all files of a subdirectory. Type \[dired-unmark-backward] to back up one line and unflag. Type \[dired-do-flagged-delete] to eXecute the deletions requested. Type \[dired-advertised-find-file] to Find the current line's file (or dired it in another buffer, if it is a directory). Type \[dired-find-file-other-window] to find file or dired directory in Other window. Type \[dired-maybe-insert-subdir] to Insert a subdirectory in this buffer. Type \[dired-do-rename] to Rename a file or move the marked files to another directory. Type \[dired-do-copy] to Copy files. Type \[dired-sort-toggle-or-edit] to toggle sorting by name/date or change the `ls' switches. Type \[revert-buffer] to read all currently expanded directories again. This retains all marks and hides subdirs again that were hidden before. SPC and DEL can be used to move down and up by lines. If dired ever gets confused, you can either type \[revert-buffer] to read the directories again, type \[dired-do-redisplay] to relist a single or the marked files or a subdirectory, or type \[dired-build-subdir-alist] to parse the buffer again for the directory tree. Customization variables (rename this buffer and type \[describe-variable] on each line for more info): dired-listing-switches dired-trivial-filenames dired-shrink-to-fit dired-marker-char dired-del-marker dired-keep-marker-rename dired-keep-marker-copy dired-keep-marker-hardlink dired-keep-marker-symlink Hooks (use \[describe-variable] to see their documentation): dired-before-readin-hook dired-after-readin-hook dired-mode-hook dired-load-hook Keybindings: \{dired-mode-map} (defalias 'dired-mode #[(&optional dirname switches) "\306 \210\307!\210\310 \210\311\312\313\313\314\315\316!\317L\210\315\320!\321L\210\315\322!\206*L\210\315\323!\324!L\210\315\325!\206?L\210\315\326!\327L\210\330\313\"\210\331\332!\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 ("%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 (#$ . 28507)]) #@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 (#$ . 32213) 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 (#$ . 32453) 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 (#$ . 32805) "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 (#$ . 33042) "p"]) #@39 Goto ARG'th next directory file line. (defalias 'dired-next-dirline #[(arg &optional opoint) "\204` \303V\203\304\n\305\306 $\202\303y\210\307\n\305\306 [$\203%\310 \207b\210\311\312!\207" [opoint arg dired-re-dir 0 re-search-forward nil t re-search-backward dired-move-to-filename error "No more subdirectories"] 5 (#$ . 33284) "p"]) #@43 Goto ARG'th previous directory file line. (defalias 'dired-prev-dirline #[(arg) "\301[!\207" [arg dired-next-dirline] 2 (#$ . 33635) "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 (#$ . 33782) "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 "\301\302 \303\"\304!\203\305!\202!\306!\203\307\310!\202!\307\311!)\207" [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 (#$ . 34339) 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)\211@)!q\210\212 \305 8:\203*\305\202+\306 8)\211A@:\203=\nA@@\202@\nA@)b\210\307 *\310 \305 8:\203U\305\202V\306 8)\211@)!\210\311\312\313\"!)\207" [file event position nil window-buffer 2 1 dired-get-filename select-window find-file-other-window file-name-sans-versions t] 5 (#$ . 34744) "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 (#$ . 35219) 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 (#$ . 35619) 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 (#$ . 35847) nil]) #@430 In dired, return name of file mentioned on this line. Value returned normally includes the directory name. Optional arg LOCALP with value `no-dir' means don't include directory name in result. A value of t means construct name relative to `default-directory', which still may contain slashes if in a subdirectory. Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on this line, otherwise an error occurs. (defalias 'dired-get-filename #[(&optional localp no-error-if-not-filep) "\306\211\211\211\212\307\f?!\211\203\310\f!) \205\"\205\" {\211\203@\311\312\nG\306\n$\210\313\314\315\316\n\317\306\320%\206<\n\314Q!\n\203W \203W\204W\204W\321\n \"\322=\203b\n\202l\n\205l\323!\nP,\207" [p2 p1 file case-fold-search no-error-if-not-filep buffer-file-coding-system nil dired-move-to-filename dired-move-to-end-of-filename set-text-properties 0 read "\"" dired-string-replace-match "\\([^\\]\\|\\`\\)\"" "\\1\\\\\"" t encode-coding-string no-dir dired-current-directory file-name-coding-system default-file-name-coding-system localp] 8 (#$ . 36092)]) #@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\n #\203% G\306\225Z\310 \311\n $\211G\fZ)\202 )\207\307\n \306#\2057\310 \311\n $\207" [global start regexp string from-end newtext 0 string-match replace-match t literal] 6 (#$ . 37201)]) (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 (#$ . 37842)]) #@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 \316\317 \f\317\f \320\260 \n \n \316 \317\f\n\320\260 \321 \316\317\320 \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-9]" dd HH:MM western japanese] 19) (#$ . 38269)) #@62 Regular expression to match the permission flags in `ls -l'. (defvar dired-permission-flags-regexp "\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)" (#$ . 38868)) (defalias 'dired-move-to-filename #[(&optional raise-error eol) "\204 \303\210`\304y\210\305 \306#\203\304\225b\207\n\205\307\310!\207" [eol dired-move-to-filename-regexp raise-error nil 0 re-search-forward t 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]) #@67 Alist of expanded directories and their associated dired buffers. (defvar dired-buffers nil (#$ . 40268)) (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 (#$ . 40864)]) (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 \303y\210`\304\305 \"!Z\303U\205*\207" [cur-dir dired-subdir-alist dired-current-directory 0 dired-get-subdir-min assoc] 5]) (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 (#$ . 42653) "p"]) #@87 Build `dired-subdir-alist' by parsing the buffer. Returns the new value of the alist. (defalias 'dired-build-subdir-alist #[nil "\306 \210\212\307\310\211eb\210\310\311\f\310\312#\203Y\212\307\224b\210\307y\210\313u\210\314 \315\216\316!+\204Y\212\317\224b\210\320`\317\225{!`\317\225|\210c\210)\nT\321\212\307\224b\210\307y\210\322 )\"\210\202\n\317V\203d\323\324\n\"\210 ,\207" [new-dir-name buffer-read-only count dired-subdir-alist dired-subdir-regexp save-match-data-internal dired-clear-alist 0 nil re-search-forward t 2 match-data ((set-match-data save-match-data-internal)) looking-at 1 expand-file-name dired-alist-add-1 point-marker message "Buffer includes %d directories" dired-re-perms] 4 (#$ . 43137) 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 (#$ . 44442) (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 (#$ . 45358)]) (defalias 'dired-subdir-max #[nil "\212A\203\301\302\303\211#\204d\202`)\207" [dired-subdir-alist dired-next-subdir 1 t] 4]) #@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 (#$ . 46027) 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 (#$ . 46830) "P"]) (byte-code "\302\300!\204\303\300 B\302\207" [dired-deletion-confirmer current-load-list 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 "@@\304 !@\305=\203\306 !\210\202\307 !\210\nT\310\311\n #\210\312y\210`\313y\210`|\210\314 !\210)\304\207" [l fn succ count file-attributes t delete-directory delete-file message "%s of %s deletions" 0 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 (#$ . 49914)) (defalias 'dired-mark-pop-up #[(bufname op-symbol files function &rest args) "\204\306 \307=\204\n >\204 G\310U\203\311\f \"\207\212\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) ((byte-code "\303!\210\304 \n\"\207" [bufname function args dired-pop-to-buffer apply] 3))] 4]) (defalias 'dired-format-columns-of-files #[(files) "\306\307\310\311\"\"\312\\\313\314 !\312Z\315\n \245]G\211 \245\f \246\316U\203)\316\202*\315\\\316\316\317!\320 _\fZ\321\"\244\211GS\233\241\210 W\203} W\203l _j\210@c\210 \233T\211\202P\322c\210\316TA\202G .\207" [files maxlen width columns nfiles rows apply max mapcar length 2 window-width selected-window 1 0 copy-sequence make-list "" "\n" i j] 6]) (defalias 'dired-repeat-over-lines #[(arg function) "\303 \304y\210 \304V\203;m\204; S\304y\210m\204%\305 \203%\306y\210\202\212\306y\210`T\307\223\210)\212\n \210)b\210\202 \304W\203eo\204e T\310y\210o\204Z\305 \203Z\310y\210\202K\304y\210\212\n \210)\202;\307\211\223\210\311 )\207" [pos arg function make-marker 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" 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\304y\210\310\n\306\307 [$\203%\311 \207 \2040b\210\312\313!\207\314\315!\210 \304V\203>e\202?db\210\316 \306#\207" [opoint arg dired-re-mark wrap 0 re-search-forward nil t re-search-backward dired-move-to-filename error "No next marked file" message "(Wraparound for next marked file)" dired-next-marked-file] 5 (#$ . 51692) "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 (#$ . 52216) "p\np"]) (defalias 'dired-file-marker #[(file) "\212\301!\205\302y\210g\303\232?\205g)\207" [file dired-goto-file 0 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 (#$ . 52909) "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 (#$ . 53424) "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 (#$ . 53647) "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 (#$ . 53953) "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 (#$ . 54183) nil]) #@61 History list of regular expressions used in Dired commands. (defvar dired-regexp-history nil (#$ . 54693)) (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 (#$ . 54935) (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\204b\313\f!\204\\l\204\\\314\306\315\"\211\205N\212\310\316 \"\210\317 !\320 !\210eb\210\321\306\315#\204M\322\306!\210*)\203\\\323\324!\210 c\210\nT\324y\210\202\310\325\n\312\326\n! \327=\203s\330\202t\331 =\203\332\202\200\333&\210)\n\307V\205\213\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 "Checking %s" get-file-buffer find-file re-search-forward kill-buffer delete-char 1 "%s %s%s %s%s." dired-plural-s 32 "un" "" "flagged" "marked" prebuf regexp dired-del-marker] 9 (#$ . 55969) (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 (#$ . 57024) (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 (#$ . 57451) "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 (#$ . 58028) "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 (#$ . 58661) "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 (#$ . 59246) "P"]) #@78 *Regular expression to match "garbage" files for `dired-flag-garbage-files'. (defvar dired-garbage-files-regexp "\\.log$\\|\\.toc$\\|\\.dvi$\\|\\.bak$\\|\\.orig$\\|\\.rej$" (#$ . -60076)) #@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 (#$ . 60270) 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 (#$ . 60475) "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 (#$ . 61235) (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 (#$ . 61965) 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 (#$ . 62130) "cRemove marks (RET means all): \nP"]) (byte-code "\302\300!\204\303\300 B\302\207" [dired-log-buffer current-load-list 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 (#$ . 63190) 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" (#$ . 64220)) #@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 "]*$") (#$ . 64356)) #@51 Regexp recognized by dired to set `by name' mode. (defvar dired-sort-by-name-regexp (concat "^-[^t" dired-ls-sorting-switches "]+$") (#$ . 64542)) (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 (#$ . 65001) "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) "\n\304=\203 \305 \210 \206\306 \207" [switches dired-actual-switches major-mode no-revert dired-mode dired-sort-set-modeline revert-buffer] 2]) #@148 Compare file at point with file FILE using `diff'. FILE defaults to the file at the mark. The prompted-for file is the first file given to `diff'. (autoload 'dired-diff "dired-aux" '(#$ . 66191) 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" '(#$ . 66396) 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" '(#$ . 66680) 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" '(#$ . 67101) t) #@53 Change the group of the marked (or next ARG) files. (autoload 'dired-do-chgrp "dired-aux" '(#$ . 67275) t) #@53 Change the owner of the marked (or next ARG) files. (autoload 'dired-do-chown "dired-aux" '(#$ . 67388) 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" '(#$ . 67502) 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" '(#$ . 67692) 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" '(#$ . 68551) t) #@52 Compress or uncompress marked (or next ARG) files. (autoload 'dired-do-compress "dired-aux" '(#$ . 68713) t) #@53 Byte compile marked (or next ARG) Emacs Lisp files. (autoload 'dired-do-byte-compile "dired-aux" '(#$ . 68828) t) #@49 Load the marked (or next ARG) Emacs Lisp files. (autoload 'dired-do-load "dired-aux" '(#$ . 68948) 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" '(#$ . 69057) t) #@38 Create a directory called DIRECTORY. (autoload 'dired-create-directory "dired-aux" '(#$ . 69300) 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" '(#$ . 69407) 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" '(#$ . 69645) 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" '(#$ . 70016) 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" '(#$ . 70384) 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" '(#$ . 70630) t) #@103 Copy all marked files containing REGEXP to NEWNAME. See function `dired-rename-regexp' for more info. (autoload 'dired-do-copy-regexp "dired-aux" '(#$ . 71140) t) #@107 Hardlink all marked files containing REGEXP to NEWNAME. See function `dired-rename-regexp' for more info. (autoload 'dired-do-hardlink-regexp "dired-aux" '(#$ . 71310) t) #@106 Symlink all marked files containing REGEXP to NEWNAME. See function `dired-rename-regexp' for more info. (autoload 'dired-do-symlink-regexp "dired-aux" '(#$ . 71488) t) #@54 Rename all marked (or next ARG) files to upper case. (autoload 'dired-upcase "dired-aux" '(#$ . 71663) t) #@54 Rename all marked (or next ARG) files to lower case. (autoload 'dired-downcase "dired-aux" '(#$ . 71775) 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" '(#$ . 71890) t) #@47 Go to next subdirectory, regardless of level. (autoload 'dired-next-subdir "dired-aux" '(#$ . 72393) 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" '(#$ . 72504) 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" '(#$ . 72697) t) #@37 Mark all files except `.' and `..'. (autoload 'dired-mark-subdir-files "dired-aux" '(#$ . 72923) t) #@72 Remove all lines of current subdirectory. Lower levels are unaffected. (autoload 'dired-kill-subdir "dired-aux" '(#$ . 73029) t) #@37 Go up ARG levels in the dired tree. (autoload 'dired-tree-up "dired-aux" '(#$ . 73164) t) #@28 Go down in the dired tree. (autoload 'dired-tree-down "dired-aux" '(#$ . 73260) 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" '(#$ . 73350) 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" '(#$ . 73574) 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)