| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/dired-aux.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:15 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/dired-aux.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; Function definitions are lazy-loaded.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'dired)
#@196 Variable where `dired-create-files' records failing file names.
Functions that operate recursively can store additional names
into this list; they also should call `dired-log' to log the errors.
(defvar dired-create-files-failures nil (#$ . 612))
(defconst dired-star-subst-regexp "\\(^\\|[ ]\\)\\*\\([ ]\\|$\\)")
(defconst dired-quark-subst-regexp "\\(^\\|[ ]\\)\\?\\([ ]\\|$\\)")
#@557 Compare file at point with file FILE using `diff'.
If called interactively, prompt for FILE. If the file at point
has a backup file, use that as the default. If the mark is active
in Transient Mark mode, use the file at the mark as the default.
(That's the mark set by \[set-mark-command], not by Dired's
\[dired-mark] command.)
FILE is the first file given to `diff'. The file at point
is the second file given to `diff'.
With prefix arg, prompt for second argument SWITCHES, which is
the string of command switches for the third argument of `diff'.
(defalias 'dired-diff #[(file &optional switches) #@237 ("\303\304!\305 !\305!\232\204_0\306 !\203#0\305 \"\305!\232\203#0\307\310!\210\311 \n#)\207" . [current file switches dired-get-filename t expand-file-name file-directory-p error "Attempt to compare the file to itself" diff]) (#$ . 1618) nil 4 (#$ . 1005) (let* ((current (dired-get-filename t)) (oldf (diff-latest-backup-file current)) (file-at-mark (if (and transient-mark-mode mark-active) (save-excursion (goto-char (mark t)) (dired-get-filename t t)))) (default-file (or file-at-mark (and oldf (file-name-nondirectory oldf)))) (default (if (and (not (equal default-file current)) (or (equal (dired-dwim-target-directory) (dired-current-directory)) default-file)) default-file)) (target-dir (if default (dired-current-directory) (dired-dwim-target-directory))) (defaults (dired-dwim-target-defaults (list current) target-dir))) (list (let (#1=#:setup-hook) (setq #1# #'(lambda nil (remove-hook #2='minibuffer-setup-hook #1#) (funcall #'(lambda nil (set (make-local-variable 'minibuffer-default-add-function) nil) (setq minibuffer-default defaults))))) (unwind-protect (progn (add-hook #2# #1#) (read-file-name (format "Diff %s with%s: " current (if default (format " (default %s)" default) "")) target-dir default t)) (remove-hook #2# #1#))) (if current-prefix-arg (read-string "Options for diff: " (if (stringp diff-switches) diff-switches (mapconcat 'identity diff-switches " "))))))])
#@295 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'.
With prefix arg, prompt for argument SWITCHES which is options for `diff'.
(defalias 'dired-backup-diff #[(&optional switches) #@66 ("\301\302 \"\207" . [switches diff-backup dired-get-filename]) (#$ . 3378) nil 3 (#$ . 3026) (byte-code "\205 \302\303 ;\203 \202 \304\305 \306#\"C\207" [current-prefix-arg diff-switches read-string "Options for diff: " mapconcat identity " "] 6)])
#@1125 Mark files with different file attributes in two dired buffers.
Compare file attributes of files in the current directory
with file attributes in directory DIR2 using PREDICATE on pairs of files
with the same name. Mark files for which PREDICATE returns non-nil.
Mark files with different names if PREDICATE is nil (or interactively
with empty input at the predicate prompt).
PREDICATE is a Lisp expression that can refer to the following variables:
size1, size2 - file size in bytes
mtime1, mtime2 - last modification time in seconds, as a float
fa1, fa2 - list of file attributes
returned by function `file-attributes'
where 1 refers to attribute of file in the current dired buffer
and 2 to attribute of file in second dired buffer.
Examples of PREDICATE:
(> mtime1 mtime2) - mark newer files
(not (= size1 size2)) - mark files with different sizes
(not (string= (nth 8 fa1) (nth 8 fa2))) - mark files with different modes
(not (and (= (nth 2 fa1) (nth 2 fa2)) - mark files with different UID
(= (nth 3 fa1) (nth 3 fa2)))) and GID.
(defalias 'dired-compare-directories #[(dir2 predicate) #@921 ("\306 \307!\307\n!\310\211 \311\312\313 \" \"\311\312\314 \" \"\311\312\313 \" \"\311\312\314 \" \"\315\316\317 #\"\315\316\317 #\"\320\310\321#\210\320\n\310\322#\210\323\324\fG
G#-\207" . [dir1 file-alist1 dir2 file-alist2 file-list1 file-list2 dired-current-directory dired-files-attributes nil delq assoc "." ".." mapcar cadr dired-file-set-difference dired-fun-in-all-buffers #[nil "\304\305\212\306eb\210m\204'0\307\305\304\"\n\235\203!0\310\311!\210 c\210T\311y\210\202\n0)\306V\205/0*\207" [count inhibit-read-only file-list1 dired-marker-char t nil 0 dired-get-filename delete-char 1] 3] #[nil "\304\305\212\306eb\210m\204'0\307\305\304\"\n\235\203!0\310\311!\210 c\210T\311y\210\202\n0)\306V\205/0*\207" [count inhibit-read-only file-list2 dired-marker-char t nil 0 dired-get-filename delete-char 1] 3] message "Marked in dir1: %s files, in dir2: %s files" predicate]) (#$ . 4828) nil 7 (#$ . 3641) (list (let* ((target-dir (dired-dwim-target-directory)) (defaults (dired-dwim-target-defaults nil target-dir))) (let (#1=#:setup-hook) (setq #1# #'(lambda nil (remove-hook #2='minibuffer-setup-hook #1#) (funcall #'(lambda nil (set (make-local-variable 'minibuffer-default-add-function) nil) (setq minibuffer-default defaults))))) (unwind-protect (progn (add-hook #2# #1#) (read-directory-name (format "Compare %s with: " (dired-current-directory)) target-dir target-dir t)) (remove-hook #2# #1#)))) (read-from-minibuffer "Mark if (lisp expr or RET): " nil nil t nil "nil"))])
#@430 Combine LIST1 and LIST2 using a set-difference operation.
The result list contains all file items that appear in LIST1 but not LIST2.
This is a non-destructive function; it makes a copy of the data if necessary
to avoid corrupting the original LIST1 and LIST2.
PREDICATE (see `dired-compare-directories') is an additional match
condition. Two file items are considered to match if they are equal
*and* PREDICATE evaluates to t.
(defalias 'dired-file-set-difference #[(list1 list2 predicate) #@358 ("\2030 \204\n0\207\306\306\211 \203|0\f@ \211 \203l0
@ \211 \fAA)@
\211 \fAA)@ \307
8 \3078 \310\311
8! \310\3118! @ @\232\205`0\312!?.\204l0
A\211\204 0
)\204u0 \nB\fA\211\2040*\n\237)\207" . [list1 list2 res file1 --dolist-tail-- list nil 7 float-time 5 eval file2 x fa1 fa2 size1 size2 mtime1 mtime2 predicate]) (#$ . 6859) nil 4 (#$ . 6360)])
#@122 Return a list of all file names and attributes from DIR.
List has a form of (file-name full-file-name (attribute-list)).
(defalias 'dired-files-attributes #[(dir) #@166 ("\301\302\303!\"\207" . [dir mapcar #[(file-name) "\303 \"\n\304\n!E)\207" [file-name dir full-file-name expand-file-name file-attributes] 4] directory-files]) (#$ . 7424) nil 4 (#$ . 7254)])
(defalias 'dired-do-chxxx #[(attribute-name program op-symbol arg) #@948 ("\306\307\"\310\307\211\"\211\205:0 \311=\203_0\312\313\314\315\n!8\"\202:0 \316=\203.0\317\315\n\320\"8\202:0 \321=\205:0\322\315\n\320\"8 \323
\324 \311=\203H0\325\202I0\326R )\327)\330 \f \316=\203_0\331 \202g0 \321=\205g0\332 & *+\333*Q ,\330 -\334\335\336\337,+D*\340\230\206\2120*\f=?\205\2360 \311=\203\2330\341*D\202\2360*C\342\343.\"\205\2470\344# $-\345!\210-\205\2750\346\347\350,\"\330\".\207" . [arg files default-file op-symbol default attribute-name dired-get-marked-files t dired-get-filename touch format-time-string "%Y%m%d%H%M.%S" 5 file-attributes chown 2 string chgrp 3 "Change " " of %s to" " (default now): " ": " dired-mark-read-string nil system-users system-groups " " dired-bunch-files 10000 dired-check-process append "" "-t" string-match "gnu" ("--") dired-do-redisplay dired-log-summary format "%s: error" prompt new-attribute program operation failures system-configuration]) (#$ . 7694) nil 10])
#@170 Change the mode of the marked (or next ARG) files.
Symbolic modes like `g+w' are allowed.
Type M-n to pull the file attributes of the file at point
into the minibuffer.
(defalias 'dired-do-chmod #[(&optional arg) #@812 ("\306\307\"\310\307\211\"\211\2050\311\312\n!8\211;\20530\313\314 \"\20530\315\316\317\320\321\322\323 \"\322\324 \"\322\325 \"$# \326\327\330\331 \f& \330 \"
\317\232\204M0
\f=\203T0\332\333!\210\202a0\313\334
\"\203a0\335
\311\"\" \330 #\211 $\203\2170$@#\336#\"\203}0\"\202\2040\337
\340#!\"\"\210$A\211$\204k0*\341!.\207" . [arg files default-file modestr default modes dired-get-marked-files t dired-get-filename 8 file-attributes string-match "^.\\(...\\)\\(...\\)\\(...\\)$" replace-regexp-in-string "-" "" format "u=%s,g=%s,o=%s" match-string 1 2 3 dired-mark-read-string "Change mode of %s to: " nil chmod error "No file mode specified" "^[0-7]+" string-to-number set-file-modes file-modes-symbolic-to-number file-modes dired-do-redisplay num-modes file --dolist-tail--]) (#$ . 8888) nil 11 (#$ . 8668) "P"])
#@132 Change the group of the marked (or next ARG) files.
Type M-n to pull the file attributes of the file at point
into the minibuffer.
(defalias 'dired-do-chgrp #[(&optional arg) #@175 ("\302>\203\n0\303\304!\210\305\306\307\310 $\207" . [system-type arg (ms-dos windows-nt) error "chgrp not supported on this system" dired-do-chxxx "Group" "chgrp" chgrp]) (#$ . 9924) nil 5 (#$ . 9742) "P"])
#@132 Change the owner of the marked (or next ARG) files.
Type M-n to pull the file attributes of the file at point
into the minibuffer.
(defalias 'dired-do-chown #[(&optional arg) #@185 ("\303>\203\n0\304\305!\210\306\307 \310\n$\207" . [system-type dired-chown-program arg (ms-dos windows-nt) error "chown not supported on this system" dired-do-chxxx "Owner" chown]) (#$ . 10322) nil 5 (#$ . 10140) "P"])
#@154 Change the timestamp of the marked (or next ARG) files.
This calls touch.
Type M-n to pull the file attributes of the file at point
into the minibuffer.
(defalias 'dired-do-touch #[(&optional arg) #@86 ("\302\303\304 $\207" . [dired-touch-program arg dired-do-chxxx "Timestamp" touch]) (#$ . 10753) nil 5 (#$ . 10550) "P"])
(defalias 'dired-bunch-files #[(max function args files) #@315 ("\306\211\307\306\f\203P0\f@\211 G\310\\ \fA \f \203>0 \\
V\203>0 \237\311\312 \"\"\244\n \244\306\307\f \241\210\f \\\f+\2020 \237\311\312 \"\"\244\n \244\210,\207" . [failures pending-length past pending files thisfile nil 0 3 apply append thislength rest max function args]) (#$ . 10939) nil 6])
#@129 Print the marked (or next ARG) files.
Uses the shell command coming from variables `lpr-command' and
`lpr-switches' as default.
(defalias 'dired-do-print #[(&optional arg) #@286 ("\305\306\"\307\310\311\312\n ;\2030 C\2020 B\313#\314 % \315\316\f \317#!*\207" . [arg file-list lpr-command lpr-switches command dired-get-marked-files t dired-mark-read-string "Print %s with: " mapconcat identity " " print dired-run-shell-command dired-shell-stuff-it nil]) (#$ . 11459) nil 6 (#$ . 11280) "P"])
#@618 Read args for a Dired marked-files command, prompting with PROMPT.
Return the user input (a string).
INITIAL, if non-nil, is the initial minibuffer input.
OP-SYMBOL is an operation symbol (see `dired-no-confirm').
ARG is normally the prefix argument for the calling command;
it is passed as the first argument to `dired-mark-prompt'.
FILES should be a list of marked files' names.
Optional arg DEFAULT-VALUE is a default value or list of default
values, passed as the seventh arg to `completing-read'.
Optional arg COLLECTION is a collection of possible completions,
passed as the second arg to `completing-read'.
(defalias 'dired-mark-read-string #[(prompt initial op-symbol arg files &optional default-value collection) #@191 ("\306\307 \310\311\n\312 \"\"\f\307\211
\307 \307&\f\207" . [op-symbol files prompt arg collection initial dired-mark-pop-up nil completing-read format dired-mark-prompt default-value]) (#$ . 12520) nil 13 (#$ . 11788)])
#@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.
(defalias 'dired-clean-directory #[(keep) #@612 ("\203\n0\306!\202 0 \211\307W\2030[\2020\n\307X\203\"0 \202#0\310 \311\312\f
#\210\313\314!\210 \211 \203n0\315\316@A\317\"B\211 G\211
\f\\V\203\\0
\233\fZ\233\241\210@A\241\210*A\211\20480)\313\320!\210\311\321!+\207" . [keep dired-kept-versions kept-old-versions dired-file-version-alist late-retention early-retention prefix-numeric-value 0 nil message "Cleaning numerical backups (keeping %d late, %d old)..." dired-map-dired-file-lines dired-collect-file-versions q sort < dired-trample-file-versions "Cleaning numerical backups...done" fval sorted-v-list v-count]) (#$ . 13152) nil 5 (#$ . 12751) "P"])
(defalias 'dired-map-dired-file-lines #[(fun) #@206 ("\212\304\211eb\210m?\205/0\212\305\n!\204(0l\204(0\306\304\307\"\211\203(0\304\210 !\210)\310y\210\2020+\207" . [buffer-read-only file dired-re-dir fun nil looking-at dired-get-filename t 1]) (#$ . 13853) nil 3])
(defalias 'dired-collect-file-versions #[(fn) #@334 ("\306!\307 \"?\205-0\310!\311P\211G\312\n\313!\" \314\315\f\"\211 \205,0
B B\211,)\207" . [fn dired-file-version-alist base-versions backup-extract-version-start possibilities versions file-name-sans-versions assoc file-name-nondirectory ".~" file-name-all-completions file-name-directory mapcar backup-extract-version]) (#$ . 14131) nil 5])
(defalias 'dired-trample-file-versions #[(fn) #@283 ("\305\306\"\307 \205.0\310\311 O \"\211\205.0\312\313 \\\307O!\n>?\205.0\314 \210\315\316!\210\fc*\207" . [fn start-vn base-version-list dired-file-version-alist dired-del-marker string-match "\\.~[0-9]+~$" nil assoc 0 string-to-number 2 beginning-of-line delete-char 1]) (#$ . 14537) nil 4])
#@206 Return a list of all commands associated with current dired files.
This function is used to add all related commands retrieved by `mailcap'
to the end of the list of defaults just after the default value.
(defalias 'minibuffer-default-add-dired-shell-commands #[nil #@192 ("\303\300!\2050\304\305\306\307#\2050\310!\n<\203 0\311\n \"\202!0\n B)\207" . [files commands minibuffer-default boundp require mailcap nil t mailcap-file-default-commands append]) (#$ . 15119) nil 4 (#$ . 14846) nil])
#@441 Read a dired shell command.
PROMPT should be a format string with one "%s" format sequence,
which is replaced by the value returned by `dired-mark-prompt',
with ARG and FILES as its arguments. FILES should be a list of
file names. The result is used as the prompt.
This normally reads using `read-shell-command', but if the
`dired-x' package is loaded, use `dired-guess-shell-command' to
offer a smarter default choice of shell command.
(defalias 'dired-read-shell-command #[(prompt arg files) #@572 ("\304\305\306\216\307\310\"\210\311 \312\n \"\"\313\314!\203%0\315\304\316 \314 &\202/0\315\304\316 \317 \304\211&*\207" . [#1=#:setup-hook prompt arg files nil #[nil "\302\303\"\210\304\301!\210\305\211\207" [#1# minibuffer-default-add-function remove-hook minibuffer-setup-hook make-local-variable minibuffer-default-add-dired-shell-commands] 3] ((byte-code "\301\302\"\207" [#1# remove-hook minibuffer-setup-hook] 3)) add-hook minibuffer-setup-hook format dired-mark-prompt functionp dired-guess-shell-command dired-mark-pop-up shell read-shell-command]) (#$ . 15858) nil 8 (#$ . 15354)])
#@664 Run a shell command COMMAND on the marked files asynchronously.
Like `dired-do-shell-command', but adds `&' at the end of COMMAND
to execute it asynchronously.
When operating on multiple files, asynchronous commands
are executed in the background on each file in parallel.
In shell syntax this means separating the individual commands
with `&'. However, when COMMAND ends in `;' or `;&' then commands
are executed in the background on each file sequentially waiting
for each command to terminate before running the next command.
In shell syntax this means separating the individual commands with `;'.
The output appears in the buffer `*Async Shell Command*'.
(defalias 'dired-do-async-shell-command #[(command &optional arg file-list) #@123 ("\303\304\"\204 0\305P\306 \n#\207" . [command arg file-list string-match "&[ ]*\\'" " &" dired-do-shell-command]) (#$ . 17215) nil 4 (#$ . 16469) (let ((files (dired-get-marked-files t current-prefix-arg))) (list (dired-read-shell-command "& on %s: " current-prefix-arg files) current-prefix-arg files))])
#@2201 Run a shell command COMMAND on the marked files.
If no files are marked or a 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 a `*' in COMMAND, surrounded by whitespace, this runs
COMMAND just once with the entire file list substituted there.
If there is no `*', but there is a `?' in COMMAND, surrounded by
whitespace, this runs COMMAND on each file individually with the
file name substituted for `?'.
Otherwise, this runs COMMAND on each file individually with the
file name added at the end of COMMAND (separated by a space).
`*' and `?' when not surrounded by whitespace have no special
significance for `dired-do-shell-command', and are passed through
normally to the shell, but you must confirm first.
If you want to use `*' as a shell wildcard with whitespace around
it, write `*""' in place of just `*'. This is equivalent to just
`*' in the shell, but avoids Dired's special handling.
If COMMAND ends in `&', `;', or `;&', it is executed in the
background asynchronously, and the output appears in the buffer
`*Async Shell Command*'. When operating on multiple files and COMMAND
ends in `&', the shell command is executed on each file in parallel.
However, when COMMAND ends in `;' or `;&' then commands are executed
in the background on each file sequentially waiting for each command
to terminate before running the next command. You can also use
`dired-do-async-shell-command' that automatically adds `&'.
Otherwise, COMMAND is executed synchronously, and the output
appears in the buffer `*Shell Command Output*'.
This feature does not try to redisplay Dired buffers afterward, as
there's no telling what files COMMAND may have changed.
Type \[dired-do-redisplay] to redisplay the marked files.
When COMMAND runs, its working directory is the top-level directory
of the Dired buffer, so output files usually are created there
instead of in a subdir.
In a noninteractive call (from Lisp code), you must specify
the list of file names explicitly with the FILE-LIST argument, which
can be produced by `dired-get-marked-files', for example.
(defalias 'dired-do-shell-command #[(command &optional arg file-list) #@707 ("\306 \"?\306 \"? \306\307 \" \306\310 \" \n\204%0\f\204%0\311\312!\202C0
\20330\n\20330\313\314!\202C0\203B0\f\203B0\313\315!\202C0\316\205a0\n\203W0\317\320 GZ\321\322$\202a0\323\324 \322$!,\207" . [dired-star-subst-regexp command on-each dired-quark-subst-regexp no-subst star string-match "\\*" "\\?" error "You can not combine `*' and `?' substitution marks" y-or-n-p "Confirm--do you mean to use `*' as a wildcard? " "Confirm--do you mean to use `?' as a wildcard? " t dired-bunch-files 10000 #[(&rest files) "\303\304 \305\n$!\207" [command files arg dired-run-shell-command dired-shell-stuff-it t] 6] nil dired-run-shell-command dired-shell-stuff-it qmark file-list arg]) (#$ . 19813) nil 6 (#$ . 17536) (let ((files (dired-get-marked-files t current-prefix-arg))) (list (dired-read-shell-command "! on %s: " current-prefix-arg files) current-prefix-arg files))])
#@52 Prepended to marked files in dired shell commands.
(defvar dired-mark-prefix "" (#$ . 20716))
#@51 Appended to marked files in dired shell commands.
(defvar dired-mark-postfix "" (#$ . 20816))
#@49 Separates marked files in dired shell commands.
(defvar dired-mark-separator " " (#$ . 20916))
(defalias 'dired-shell-stuff-it #[(command file-list on-each &optional _raw-arg) #@774 ("\306\307\"\211\2030\310\211\224O\2020\306\311\"\211\203$0\310\211\224O\202%0\306 \"\20440\306\f\"\20380\312\20290\313 \203W0\314
\315\316\" \203R0\n\204R0\317\202S0\320#\202v0\314\316# G\321V\203q0Q
!) \203~0\317\2020\322P-\207" . [command in-background sequentially dired-star-subst-regexp dired-quark-subst-regexp stuff-it string-match "[ ]*&[ ]*\\'" 0 "[ ]*;[ ]*\\'" #[(x) "\303\304 \"\2030\305\n\306\211 \307%\2020 )\207" [command retval x string-match "\\(^\\|[ ]\\)\\([*?]\\)\\([ ]\\|$\\)" replace-match t 2] 6] #[(x) " \nQ\207" [command dired-mark-separator x] 3] mapconcat mapcar shell-quote-argument "&" ";" 1 "" on-each file-list dired-mark-separator files dired-mark-prefix dired-mark-postfix]) (#$ . 21099) nil 6])
(defalias 'dired-run-shell-command #[(command) #@183 ("\303\304!\305\"\211\2030\306 \305\nC#\210\2020\305\n!\210)\307\207" . [default-directory handler command find-file-name-handler directory-file-name shell-command apply nil]) (#$ . 21946) nil 5])
(defalias 'dired-check-process #[(msg program &rest arguments) #@438 ("\306\211\307\310\f\"\210\212\311\312!\211q\210\313 \210 \314\315
\306\316\306&\317=?\211\203F0\320
\321\322!\323R!\210\320 !\210\206P0
\206P0\316\202P0\324 !\210\307\325\f\"\210\306,\207" . [default-directory dir err err-buffer msg program nil message "%s..." get-buffer-create " *dired-check-process output*" erase-buffer apply process-file t 0 dired-log " " prin1-to-string "\n" kill-buffer "%s...done" arguments]) (#$ . 22218) nil 8])
#@155 Kill the current line (not the files).
With a prefix argument, kill that many lines starting with the current line.
(A negative argument kills backward.)
(defalias 'dired-kill-line #[(&optional arg) #@392 ("\303!\304\211\305U\204K0\306\304\307\"\211\204 0\310\311!\210\2020\212 \203,0\312 !\203,0\313 \210)\314 \315y\210`|\210\305V\203B0S\211\202 0T\316y\210\2020\317 *\207" . [arg file buffer-read-only prefix-numeric-value nil 0 dired-get-filename t error "Can only kill file lines" dired-goto-subdir dired-kill-subdir line-beginning-position 1 -1 dired-move-to-filename]) (#$ . 22888) nil 4 (#$ . 22682) "P"])
#@561 Kill all marked lines (not the files).
With a prefix argument, kill that many lines starting with the current line.
(A negative argument kills backward.)
If you use this command with a prefix argument to kill the line
for a file that is a directory, which you have inserted in the
Dired buffer as a subdirectory, then it deletes that subdirectory
from the buffer as well.
To kill an entire subdirectory (without killing its line in the
parent directory), go to its directory header line and use this
command with a prefix argument (the value does not matter).
(defalias 'dired-do-kill-lines #[(&optional arg fmt) #@398 ("\2030\305 \203\f0\306 \207\307!\207\212eb\210\310\311\312 m\20450\313 \310\314#\20350\nT\315 \316y\210`|\210\2020\f\317\232\204G0\320\f\206A0\321\n\322\n!#\210\n,\207" . [arg regexp count buffer-read-only fmt dired-get-subdir dired-kill-subdir dired-kill-line nil 0 dired-marker-regexp re-search-forward t line-beginning-position 1 "" message "Killed %d line%s." dired-plural-s]) (#$ . 23943) nil 5 (#$ . 23323) "P"])
(defalias 'dired-compress #[nil #@290 ("\304\305 \306 !\211\203 0`\304\307\310\217\210 b\210\311\n!\210)\304\202'0\312\313 P!\210 +\207" . [buffer-read-only from-file new-file start nil dired-get-filename dired-compress-file (dired-remove-entry new-file) ((error)) dired-update-file-line dired-log "Failed to compress"]) (#$ . 24416) nil 4])
#@551 Control changes in file name suffixes for compression and uncompression.
Each element specifies one transformation rule, and has the form:
(REGEXP NEW-SUFFIX PROGRAM)
The rule applies when the old file name matches REGEXP.
The new file name is computed by deleting the part that matches REGEXP
(as well as anything after that), then adding NEW-SUFFIX in its place.
If PROGRAM is non-nil, the rule is an uncompression rule,
and uncompression is done by running PROGRAM.
Otherwise, the rule is a compression rule, and compression is done with gzip.
(defvar dired-compress-file-suffixes '(("\\.gz\\'" #1="" "gunzip") ("\\.tgz\\'" ".tar" "gunzip") ("\\.Z\\'" #1# "uncompress") ("\\.z\\'" #1# "gunzip") ("\\.dz\\'" #1# "dictunzip") ("\\.tbz\\'" ".tar" "bunzip2") ("\\.bz2\\'" #1# "bunzip2") ("\\.xz\\'" #1# "unxz") ("\\.tar\\'" ".tgz" nil)) (#$ . 24732))
(defalias 'dired-compress-file #[(file) #@919 ("\306\307\"\310\211 \n\203'0\310 \311\n@@\"\203 0\n@\310\nA)\202 0\f\20350\312\211\224O\fA@P
\203@0
\307\"\202i0\313!\203J0\310\202i0\f\203e0\314\f8\203e0\315\316P\314\f8#?\205i0 \202i0\310\317\320\217,\207" . [file dired-compress-file-suffixes suffixes newname suffix handler find-file-name-handler dired-compress-file nil string-match 0 file-symlink-p 2 dired-check-process "Uncompressing " (byte-code "\303P\304 !\2030\305\306\307 \"!\205B0\310\311P\312\313$?\205B0\304 !\204-0\314P\211\205B0\n\203A0\n \232\204A0\315 \n\316#\210\n\202B0 )\207" [file out-name newname ".gz" file-exists-p y-or-n-p format "File %s already exists. Really compress? " dired-check-process "Compressing " "gzip" "-f" ".z" rename-file t] 5) ((file-error (byte-code "\301\302P\303\304$?\2050\305P\207" [file dired-check-process "Compressing " "compress" "-f" ".Z"] 5))) case-fold-search]) (#$ . 25632) nil 4])
(defalias 'dired-mark-confirm #[(op-symbol arg) #@314 ("\305=\20620 >\20620\306\305\n\307\305$ \310=\203 0\311\202!0\312\313 !! \314\307 \f\315 \316\317\n\f\"\320R%*\207" . [dired-no-confirm op-symbol arg string files t dired-get-marked-files nil compress "Compress or uncompress" capitalize symbol-name dired-mark-pop-up y-or-n-p " " dired-mark-prompt "? "]) (#$ . 26625) nil 10])
(defalias 'dired-map-over-marks-check #[(fun arg op-symbol &optional show-progress) #@1039 ("\306 \"\205\3370\307\310\211\211 \20330 \250\203,0\311 \312\"\210 \313W\203(0\n\237\202\2230\n\202\2230 C\202\2230\314 \310 _\212eb\210\315_\310\307#\205I0\316 \211 ?? \203\2050 b\210 \203a0\317\313!\210 \nB b\210\320y\210 \310\211\223\210\315_\310\307#\2050\316 \211 \204T0) \203\2160\n\202\2220 C*,\321 \210\211 !G \"\322\310!\"\211 #G $\323=\203\2620\324\202\2670\325\326!! %#\204\3140\327\330%\"\331\"!$\202\3360\332\333\334%\227$\"\331\"!%#\"-\207" . [op-symbol arg results found case-fold-search inhibit-read-only dired-mark-confirm t nil dired-repeat-over-lines #[nil "\2030\303\304!\210 \nB\211\207" [show-progress fun results sit-for 0] 2] 0 dired-marker-regexp re-search-forward point-marker sit-for 1 dired-move-to-filename delq compress "Compress or uncompress" capitalize symbol-name message "%s: %d file%s." dired-plural-s dired-log-summary format "Failed to %s %d of %d file%s" fun next-position regexp show-progress total-list total failures count string]) (#$ . 27051) nil 9])
#@431 Format PROMPT with ARGS, query user, and store the result in SYM.
The return value is either nil or t.
The user may type y or SPC to accept once; n or DEL to skip once;
! to accept this and subsequent queries; or q or ESC to decline
this and subsequent queries.
If SYM is already bound to a non-nil value, this function may
return automatically without querying the user. If SYM is !,
return t; if SYM is q or ESC, return nil.
(defalias 'dired-query #[(sym prompt &rest args) #@373 ("J\306 \307=\2030\310\202A0 \311>\2030\312\202A0\313\314 \f#
\203.0\314\315\316\317!!\"\202/0\320P\321 \n\"\211L\210 \322>\205A0\310*\207" . [sym char char-choices prompt args help-form (121 32 110 127 33 113 27) 33 t (113 27) nil apply format " [Type yn!q or %s] " key-description vector " [Type y, n, q or !] " read-char-choice (121 32 33) help-char]) (#$ . 28602) nil 6 (#$ . 28116)])
#@52 Compress or uncompress marked (or next ARG) files.
(defalias 'dired-do-compress #[(&optional arg) #@89 ("\301\302\303\304$\207" . [arg dired-map-over-marks-check dired-compress compress t]) (#$ . 29117) nil 5 (#$ . 29013) "P"])
(defalias 'dired-byte-compile #[nil #@481 ("\304 \305\211\305\306\307\310\217\210\311!\312 !\2040\313 \203*0\314\315 #\210\316!\20260\317 !\210\305y\210\320 !\210\305,\207" . [filename elc-file buffer-read-only failure dired-get-filename nil err (byte-code "\212\301!\210)\301\207" [filename byte-compile-file] 2) ((error (byte-code "\302\207" [err failure nil] 1))) byte-compile-dest-file file-exists-p t dired-log "Byte compile error for %s:\n%s\n" dired-make-relative dired-remove-file dired-add-file]) (#$ . 29285) nil 5])
#@53 Byte compile marked (or next ARG) Emacs Lisp files.
(defalias 'dired-do-byte-compile #[(&optional arg) #@97 ("\301\302\303\304$\207" . [arg dired-map-over-marks-check dired-byte-compile byte-compile t]) (#$ . 29900) nil 5 (#$ . 29791) "P"])
(defalias 'dired-load #[nil #@284 ("\302 \303\304\305\306\217\210\2050\307\310 #\210\311 !*\207" . [failure file dired-get-filename nil err (byte-code "\301\302\211\303$\207" [file load nil t] 5) ((error (byte-code "\302\207" [err failure nil] 1))) dired-log "Load error for %s:\n%s\n" dired-make-relative]) (#$ . 30068) nil 4])
#@49 Load the marked (or next ARG) Emacs Lisp files.
(defalias 'dired-do-load #[(&optional arg) #@81 ("\301\302\303\304$\207" . [arg dired-map-over-marks-check dired-load load t]) (#$ . 30474) nil 5 (#$ . 30377) "P"])
#@634 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.
Dired remembers switches specified with a prefix arg, so that reverting
the buffer will not reset them. However, using `dired-undo' to re-insert
or delete subdirectories can bypass this machinery. Hence, you sometimes
may have to reset some subdirectory switches after a `dired-undo'.
You can reset all subdirectory switches to the default using
\<dired-mode-map>\[dired-reset-subdir-switches].
See Info node `(emacs)Subdir switches' for more details.
(defalias 'dired-do-redisplay #[(&optional arg test-for-subdir) #@1332 ("\203(0\306 \203(0\306 \307 \n\"A\310 \f\205%0\311\312 \206$0
\206$0 \"\"*\207\313\314!\210\315_:\20390_@\202;0_!\210\316\317\211\211 ! \" #\f\203\2000\f\250\203j0\320\f\321\"\210\f\322W\203d0 \237\210\202\3730 \210\202\3730\323 \317 $\313\324$\"\210\325$!\210*\202\3730\326 \317 % &\212eb\210\327&\317\316#\205\2260\330 \211%??!%\203\3330%b\210\323 \317 $\313\324$\"\210\325$!* B %b\210\331y\210%\317\211\223\210\327&\317\316#\205\3250\330 \211%\204\2420)!\203\3470 \210\202\3720\323 \317 $\313\324$\"\210\325$!\210**,\332 \210\333\334!\210\332 \210\313\335!\207" . [test-for-subdir dir dired-switches-alist switches arg dired-subdir-switches dired-get-subdir assoc-string dired-insert-subdir read-string "Switches for listing: " message "Redisplaying..." dired-uncache t nil dired-repeat-over-lines #[nil "\303 \304\305\306 \"\210\307 !*\nB\211\207" [dired-after-readin-hook fname results dired-get-filename nil message #1="Redisplaying... %s" dired-update-file-line] 3] 0 dired-get-filename #1# dired-update-file-line dired-marker-regexp re-search-forward point-marker 1 dired-move-to-filename run-hooks dired-after-readin-hook "Redisplaying...done" dired-actual-switches dired-directory results found case-fold-search inhibit-read-only fname next-position regexp]) (#$ . 31303) nil 6 (#$ . 30598) "P\np"])
#@60 Set `dired-switches-alist' to nil and revert dired buffer.
(defalias 'dired-reset-subdir-switches #[nil #@63 ("\301\302 \207" . [dired-switches-alist nil revert-buffer]) (#$ . 32790) nil 1 (#$ . 32680) nil])
(defalias 'dired-update-file-line #[(file) #@228 ("\304 \211f\305\306y\210`|\210 \203!0\307 \305\310#\210\311\211T\312 $\210+\313 \207" . [opoint char buffer-read-only file line-beginning-position nil 1 dired-add-entry t subst-char-in-region 32 dired-move-to-filename]) (#$ . 32939) nil 6])
(defalias 'dired-add-file #[(filename &optional marker-char) #@142 ("\302\303!\304!\305 %\207" . [filename marker-char dired-fun-in-all-buffers file-name-directory file-name-nondirectory dired-add-entry]) (#$ . 33254) nil 6])
#@405 Add a new dired entry for FILENAME.
Optionally mark it with MARKER-CHAR (a character, else uses
`dired-marker-char'). Note that this adds the entry `out of order'
if files are sorted by time, etc.
Skips files that match `dired-trivial-filenames'.
Exposes hidden subdirectories if a file is added there.
If `dired-x' is loaded and `dired-omit-mode' is enabled, skips
files matching `dired-omit-regexp'.
(defalias 'dired-add-entry #[(filename &optional marker-char relative) #@1617 ("\306\307!\20370\20370\310 \211\311\230\20630\312 \n\313=\203_0 \20210\n\314=\203+0\315 !\20210\316 \317 !\"\"?)\203s0\320 !` \321 \203I0
\202L0\317 ! \322 \203^0\323 \"\202a0\324 !\325\326\215\211\203n0\fb\210,?\207\314\207" . [dired-omit-mode omit-re dired-omit-localp filename opoint cur-dir featurep dired-x dired-omit-regexp "" string-match no-dir t dired-make-relative dired-make-absolute file-name-directory directory-file-name dired-current-directory nil file-relative-name file-name-nondirectory not-found (byte-code " \230\203$0\306\307w\210g\310=\2030\311 \210\312 !`\nW\203 0\nb\210)\202>0\313!\20390\314\315!\20330\311 \210\316 \210\202>0\317\320\321\"\210\307\211 \322 \210` \323#\324P$C#\210) b\210%\203q0%\250\203h0%\202j0& &\325\307!\210) b\210\326\327! '\330'!\203\2560\307\211 (\210'G[u\210\331`!(\332'G!\210` )$c\210\333)`(#\210)\334u\210)\202\2610\334y\210)\335y\210!\203\3120\212\214\322 \210`\336\337!}\210\340\341!\210*\342 \210*\307\207" [directory cur-dir p opoint buffer-read-only default-directory "^
\n" nil 13 dired-unhide-subdir dired-after-subdir-garbage dired-goto-subdir looking-at "
" dired-goto-next-nontrivial-file throw not-found "Subdir not found" beginning-of-line dired-insert-directory " -d" dired-mark dired-get-filename verbatim file-name-directory text-properties-at delete-char set-text-properties 1 -1 line-beginning-position 2 run-hooks dired-after-readin-hook dired-move-to-filename dired-actual-switches filename marker-char dired-marker-char inserted-name props pt] 5) relative directory reason]) (#$ . 33905) nil 7 (#$ . 33422)])
(defalias 'dired-after-subdir-garbage #[(dir) #@165 ("\212\301!\204 0\302\303!\210\304y\210l\204 0\305 \204 0\304y\210\2020`)\207" . [dir dired-goto-subdir error "This cannot happen" 1 dired-move-to-filename]) (#$ . 35607) nil 2])
(defalias 'dired-remove-file #[(file) #@128 ("\301\302!\303!\304$\207" . [file dired-fun-in-all-buffers file-name-directory file-name-nondirectory dired-remove-entry]) (#$ . 35836) nil 5])
(defalias 'dired-remove-entry #[(file) #@144 ("\212\302!\2050\303\304 \210`\305\306!|))\207" . [file buffer-read-only dired-goto-file nil beginning-of-line line-beginning-position 2]) (#$ . 36029) nil 3])
#@77 Create or update the line for FILE in all Dired buffers it would belong in.
(defalias 'dired-relist-file #[(file) #@128 ("\301\302!\303!\304$\207" . [file dired-fun-in-all-buffers file-name-directory file-name-nondirectory dired-relist-entry]) (#$ . 36319) nil 5 (#$ . 36198)])
(defalias 'dired-relist-entry #[(file) #@232 ("\303\211\212\304\n!\2030\305 \210g`\306\307!|\210\310\n!\311\n\312=?\205$0\"+\207" . [marker buffer-read-only file nil dired-goto-file beginning-of-line line-beginning-position 2 directory-file-name dired-add-entry 32]) (#$ . 36525) nil 4])
#@124 Non-nil if Dired should ask about making backups before overwriting files.
Special value `always' suppresses confirmation.
(custom-declare-variable 'dired-backup-overwrite nil '(#$ . 36783) :type '(choice (const :tag "off" nil) (const :tag "suppress" always) (other :tag "ask" t)) :group 'dired)
(defalias 'dired-handle-overwrite #[(to) #@310 ("\304 \205*0\n\205*0\305 !@\211\205*0 \306=\204!0\307\310\311 #\205*0\312 \313#\210\314!)\207" . [backup dired-backup-overwrite dired-overwrite-confirmed to nil find-backup-file-name always dired-query overwrite-backup-query "Make backup for existing file `%s'? " rename-file 0 dired-relist-entry]) (#$ . 37127) nil 4])
(defalias 'dired-copy-file #[(from to ok-flag) #@156 ("\305!\210\306 \n \307\f&\207" . [to from ok-flag dired-copy-preserve-time dired-recursive-copies dired-handle-overwrite dired-copy-file-recursive t]) (#$ . 37510) nil 7])
(defalias 'dired-copy-file-recursive #[(from to ok-flag &optional preserve-time top recursive) #@691 ("\306!@\307=\2030\310 \"\2030\311\312 #\210\306! \203<0\n@\307=\203<0 \313=\20440\314\315\316\"!\203<0\317 \f#\202H0
\204D0\320 !\210\321\322\323\217)\207" . [from to attrs recursive preserve-time top file-attributes t file-in-directory-p error "Cannot copy `%s' into its subdirectory `%s'" always yes-or-no-p format "Recursive copies of %s? " copy-directory dired-handle-overwrite err (byte-code "@;\203
0\305@ \n#\207\306 \n\f$\207" [attrs to ok-flag from preserve-time make-symbolic-link copy-file] 5) ((file-date-error (byte-code "\303! B\304\305\n#\207" [from dired-create-files-failures err dired-make-relative dired-log "Can't set date on %s:\n%s\n"] 4)))]) (#$ . 37787) nil 4])
(defalias 'dired-rename-file #[(file newname ok-if-already-exists) #@250 ("\303!\210\304 \n#\210\305 !\203 0r\305 !q\210\306\307\310#\210)\311 !\210\312 \"\207" . [newname file ok-if-already-exists dired-handle-overwrite rename-file get-file-buffer set-visited-file-name nil t dired-remove-file dired-rename-subdir]) (#$ . 38571) nil 4])
(defalias 'dired-rename-subdir #[(from-dir to-dir) #@472 ("\306!\306 !\307\310\311 %\210\312!\313 \n\205L0r\n@q\210\f\203C0\314\f \"\203C0\315 \316\317\320!P \f# \321
!\210\322!\210*)\nA\211\2040\310*\207" . [from-dir to-dir blist expanded-from-dir buffer-file-name to-file file-name-as-directory dired-fun-in-all-buffers nil dired-rename-subdir-1 expand-file-name buffer-list dired-in-this-tree buffer-modified-p dired-replace-in-string "^" regexp-quote set-visited-file-name set-buffer-modified-p modflag]) (#$ . 38898) nil 7])
(defalias 'dired-rename-subdir-1 #[(dir to) #@425 ("\306! \307 \203#0 @ A\310\n@\f\"\2030\311\n
#\210\2020\232\205Q0\312!\210
\306\313!
\"\313\314!! \315!\204N0\316!\210)\317 +\207" . [dir dired-subdir-alist elt alist expanded-dir to expand-file-name nil dired-in-this-tree dired-rename-subdir-2 dired-unadvertise file-name-nondirectory directory-file-name get-buffer rename-buffer dired-advertise default-directory dired-directory new-name]) (#$ . 39440) nil 4])
(defalias 'dired-rename-subdir-2 #[(elt dir to) #@599 ("\212\306\307!!\307 !\310 \311
!b\210\312!\204!0\313\314\"\210\202>0\315\224b\210\316\f\315\225\317#\20370\320 \317\211#\210\202>0\313\321
@#\210\322
@\"\323\324\f
@#!
\240\210\205_0\240.\207" . [dir to buffer-read-only newtext regexp elt regexp-quote directory-file-name nil dired-get-subdir-min looking-at error "%s not found where expected - dired-subdir-alist broken?" 1 re-search-forward t replace-match "Expected to find `%s' in headerline of %s" assoc-string dired-normalize-subdir dired-replace-in-string dired-subdir-regexp dired-switches-alist cur-dir cons]) (#$ . 39939) nil 6])
#@1028 Create one or more new files from a list of existing files FN-LIST.
This function also handles querying the user, updating Dired
buffers, and displaying a success or failure message.
FILE-CREATOR should be a function. It is called once for each
file in FN-LIST, and must create a new file, querying the user
and updating Dired buffers as necessary. It should accept three
arguments: the old file name, the new name, and an argument
OK-IF-ALREADY-EXISTS with the same meaning as in `copy-file'.
OPERATION should be a capitalized string describing the operation
performed (e.g. `Copy'). It is used for error logging.
FN-LIST is the list of files to copy (full absolute file names).
NAME-CONSTRUCTOR should be a function accepting a single
argument, the name of an old file, and returning either the
corresponding new file name or nil to skip.
If optional argument MARKER-CHAR is non-nil, mark each
newly-created file's Dired entry with the character MARKER-CHAR,
or with the current marker character if MARKER-CHAR is t.
(defalias 'dired-create-files #[(file-creator operation fn-list name-constructor &optional marker-char) #@1963 ("\306\211\211\307G \306\211\211 % &\306 '\211 (\203\3150(@')'!\211&'\232\203=0\306&\310\311*\227'#\210&\204L0\312'! B\202\3040\313&!\211 +\205`0\314 ,\315\316\317&#) -.\250\203m0.\202z0.\203y0\320'!\202z0\306 /\321&! 0\322'!\203\2330\322&!\203\23301\323=\203\23300&\3240!@\325=\203\27501\323=\203\2750\3260'\"\203\2750\327\330'&#\210)\331\332\333\217\210+(A\211(\204 0-
\203\3510\f
\244\334\335\336*\fG\337\fG! %\f\"\210\202_\f\203\3770\334\335\340*\fG \337 !%\f\"\210\202_ \203\334\335\341* G \337 !% \"\210\202_\342\343*\n\337\n!$\210-\344 \207" . [fn-list total success-count skipped failures dired-create-files-failures nil 0 dired-log "Cannot %s to same file: %s\n" dired-make-relative file-exists-p (format "Type SPC or `y' to overwrite file `%s',\nDEL or `n' to skip to next,\nESC or `q' to not overwrite any of the remaining files,\n`!' to overwrite all remaining files with no more questions." to) dired-query overwrite-query "Overwrite `%s'?" dired-file-marker file-name-directory file-directory-p dired-copy-file file-attributes t file-in-directory-p error "Cannot copy `%s' into its subdirectory `%s'" err (byte-code " \n #\210\f\2030\306\n!\210
T\307\310\n
$\210\311\n\f\"\207" [file-creator from to dired-overwrite-confirmed overwrite success-count dired-remove-file message "%s: %d of %d" dired-add-file operation total actual-marker-char] 5) ((file-error (byte-code "\305! B\306\307\n \f%\207" [from failures operation to err dired-make-relative dired-log "%s `%s' to `%s' failed:\n%s\n"] 6))) dired-log-summary format "%s failed for %d file%s in %d requests" dired-plural-s "%s failed for %d of %d file%s" "%s: %d of %d file%s skipped" message "%s: %s file%s" dired-move-to-filename overwrite-backup-query to from --dolist-tail-- name-constructor operation overwrite help-form dired-overwrite-confirmed marker-char actual-marker-char destname file-creator]) (#$ . 41704) nil 9 (#$ . 40565)])
#@1756 Create a new file for each marked file.
Prompt user for a target directory in which to create the new
files. The target may also be a non-directory file, if only
one file is marked. The initial suggestion for target is the
Dired buffer's current directory (or, if `dired-dwim-target' is
non-nil, the current directory of a neighboring Dired window).
OP-SYMBOL is the symbol for the operation. Function `dired-mark-pop-up'
will determine whether pop-ups are appropriate for this OP-SYMBOL.
FILE-CREATOR and OPERATION as in `dired-create-files'.
ARG as in `dired-get-marked-files'.
Optional arg MARKER-CHAR as in `dired-create-files'.
Optional arg OP1 is an alternate form for OPERATION if there is
only one file.
Optional arg HOW-TO determines how to treat the target.
If HOW-TO is nil, use `file-directory-p' to determine if the
target is a directory. If so, the marked file(s) are created
inside that directory. Otherwise, the target is a plain file;
an error is raised unless there is exactly one marked file.
If HOW-TO is t, target is always treated as a plain file.
Otherwise, HOW-TO should be a function of one argument, TARGET.
If its return value is nil, TARGET is regarded as a plain file.
If it return value is a list, TARGET is a generalized
directory (e.g. some sort of archive). The first element of
this list must be a function with at least four arguments:
operation - as OPERATION above.
rfn-list - list of the relative names for the marked files.
fn-list - list of the absolute names for the marked files.
target - the name of the target itself.
The rest of into-dir are optional arguments.
For any other return value, TARGET is treated as a directory.
(defalias 'dired-do-create-files #[(op-symbol file-creator operation arg &optional marker-char op1 how-to) #@1446 ("\2040 \306\307\n\"\310\311 \" :\205 0 A?\205 0 @ \312
\205.0\313\314 @! \" !\315 \" \"\313\307 #\316#\317\216\320\321#\"\210\322
\203O0\202P0 \323P $\n\f!&*! %&\204\2320'\324>\205\2170$\325=\205\2170
\205\2170\313 @!\227\313%!\227\230\205\2170\314 @!\314%!\230??\205\2520\326%!\202\2520&\327=\203\2450\307\202\2520&%!\211 (:\203\3120\330(@!\203\3120\331(@ \f %(A&\202\3670
\204\3320(\204\3320\332\333 %#\210(\204\3450\334%!%\335) (\203\3630\336\202\3640\337*%.\207" . [op1 operation arg fn-list rfn-list dired-one-file dired-get-marked-files nil mapcar dired-make-relative dired-dwim-target-directory expand-file-name file-name-nondirectory dired-dwim-target-defaults #[nil "\304\305\"\210\306\301!\210\307\n\211\207" [#1=#:setup-hook minibuffer-default-add-function defaults minibuffer-default remove-hook minibuffer-setup-hook make-local-variable nil] 3] ((byte-code "\301\302\"\207" [#1# remove-hook minibuffer-setup-hook] 3)) add-hook minibuffer-setup-hook dired-mark-read-file-name " %s to: " (ms-dos windows-nt cygwin) move file-directory-p t functionp apply error "Marked %s: target must be a directory: %s" directory-file-name dired-create-files #[(from) "\302\303! \"\207" [from target expand-file-name file-name-nondirectory] 3] #[(_from) "\207" [target] 1] target-dir default defaults #1# op-symbol target how-to system-type into-dir file-creator marker-char]) (#$ . 45577) nil 9 (#$ . 43707)])
(defalias 'dired-mark-read-file-name #[(prompt dir op-symbol arg files &optional default) #@150 ("\306\307 \310\311\n\312 \"\"\f
&\207" . [op-symbol files prompt arg dir default dired-mark-pop-up nil read-file-name format dired-mark-prompt]) (#$ . 47152) nil 10])
(defalias 'dired-dwim-target-directory #[nil #@335 ("\305=\2050\306 \n\203.0\307\310!\211\205$0r\311 !q\210\305=\205#0\306 )\211 \206*0 *\202/0 )\207" . [major-mode this-dir dired-dwim-target other-win other-dir dired-mode dired-current-directory get-window-with-predicate #[(window) "r\302!q\210 )\303=\207" [window major-mode window-buffer dired-mode] 2] window-buffer]) (#$ . 47374) nil 3])
(defalias 'dired-dwim-target-defaults #[(fn-list target-dir) #@603 (":\205
0A?\205
0@ \306=\2050\307 \310 \311\312!\210\313\314\310 \n\237B\"!\315
\206-0 \n\"\f\203L0\316\n\317\320\321\n!\"\322\323@!
\206F0 \"C#\202M0\n+\207" . [fn-list major-mode dired-dirs current-dir dired-one-file target-dir dired-mode dired-current-directory nil walk-windows #[(w) "r\303!q\210 \304=\2050\305 \nB\211)\207" [w major-mode dired-dirs window-buffer dired-mode dired-current-directory] 2] delete-dups delq delete append mapcar #[(dir) "\302\303@! \"\207" [fn-list dir expand-file-name file-name-nondirectory] 3] reverse expand-file-name file-name-nondirectory]) (#$ . 47796) nil 6])
#@84 Create a directory called DIRECTORY.
If DIRECTORY already exists, signal an error.
(defalias 'dired-create-directory #[(directory) #@372 ("\304\305!!\211\306\307 !\2030\310\311 \"\210\n\20310\307\n!\20410 \n\232\20410\n\304\312\n!!\211\2040\313 \314\"\210 \205@0\315 !\210\316 +\207" . [directory expanded try new directory-file-name expand-file-name nil file-exists-p error "Cannot create directory %s: file exists" file-name-directory make-directory t dired-add-file dired-move-to-filename]) (#$ . 48562) nil 4 (#$ . 48424) (list (read-file-name "Create directory: " (dired-current-directory)))])
(defalias 'dired-into-dir-with-symlinks #[(target) #@74 ("\301!\205\n0\302!?\207" . [target file-directory-p file-symlink-p]) (#$ . 49094) nil 2])
#@120 Either nil or a function used by `dired-do-copy' to determine target.
See HOW-TO argument for `dired-do-create-files'.
(defvar dired-copy-how-to-fn nil (#$ . 49194))
#@761 Copy all marked (or next ARG) files, or copy the current file.
When operating on just the current file, prompt for the new name.
When operating on multiple or marked files, prompt for a target
directory, and make the new copies in that directory, with the
same names as the original files. The initial suggestion for the
target directory is the Dired buffer's current directory (or, if
`dired-dwim-target' is non-nil, the current directory of a
neighboring Dired window).
If `dired-copy-preserve-time' is non-nil, this command preserves
the modification time of each old file in the copy, similar to
the "-p" option for the "cp" shell command.
This command copies symbolic links by creating new ones, similar
to the "-d" option for the "cp" shell command.
(defalias 'dired-do-copy #[(&optional arg) #@168 ("\304\305\306\307 \n\310 &)\207" . [dired-recursive-copies arg dired-keep-marker-copy dired-copy-how-to-fn dired-do-create-files copy dired-copy-file "Copy" nil]) (#$ . 50177) nil 8 (#$ . 49367) "P"])
#@464 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. The default
suggested for the target directory depends on the value of
`dired-dwim-target', which see.
For relative symlinks, use \[dired-do-relsymlink].
(defalias 'dired-do-symlink #[(&optional arg) #@122 ("\302\303\304\305 %\207" . [arg dired-keep-marker-symlink dired-do-create-files symlink make-symbolic-link "Symlink"]) (#$ . 50904) nil 6 (#$ . 50388) "P"])
#@408 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. The default
suggested for the target directory depends on the value of
`dired-dwim-target', which see.
(defalias 'dired-do-hardlink #[(&optional arg) #@121 ("\302\303\304\305 %\207" . [arg dired-keep-marker-hardlink dired-do-create-files hardlink dired-hardlink "Hardlink"]) (#$ . 51530) nil 6 (#$ . 51069) "P"])
(defalias 'dired-hardlink #[(file newname &optional ok-if-already-exists) #@135 ("\303!\210\304 \n#\210\305 !\207" . [newname file ok-if-already-exists dired-handle-overwrite add-name-to-file dired-relist-file]) (#$ . 51768) nil 4])
#@354 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.
This command also renames any buffers that are visiting the files.
The default suggested for the target directory depends on the value
of `dired-dwim-target', which see.
(defalias 'dired-do-rename #[(&optional arg) #@128 ("\302\303\304\305 \306&\207" . [arg dired-keep-marker-rename dired-do-create-files move dired-rename-file "Move" "Rename"]) (#$ . 52334) nil 7 (#$ . 51929) "P"])
(defalias 'dired-do-create-files-regexp #[(file-creator operation arg regexp newname &optional whole-name marker-char) #@1114 ("\306\307\"\n\310P\311\312\n\227\n\227#
\2030\313\2020\314 \307 \315\n %-\207" . [arg fn-list operation operation-prompt rename-regexp-help-form whole-name dired-get-marked-files nil " `%s' to `%s'?" format "Type SPC or `y' to %s one match, DEL or `n' to skip to next,\n`!' to %s all remaining matches with no more questions." #[(from) "\306 \n# \211 \2030\307\310
$\205!0
\202!0\311\312\f $*\207" [regexp from newname rename-regexp-help-form help-form to dired-string-replace-match dired-query rename-regexp-query dired-log "%s: %s did not match regexp %s\n" operation-prompt operation] 6] #[(from) "\306\307 !\n#\211\2050\310 \311 !\"
\f\203,0\312\313\314 !\314\f!$\20550\f\20250\315\316\307 !$+\207" [regexp from newname new to rename-regexp-help-form dired-string-replace-match file-name-nondirectory expand-file-name file-name-directory dired-query rename-regexp-query dired-make-relative dired-log "%s: %s did not match regexp %s\n" help-form operation-prompt operation] 7] dired-create-files regexp-name-constructor rename-regexp-query file-creator marker-char]) (#$ . 52625) nil 6])
(defalias 'dired-mark-read-regexp #[(operation) #@286 ("\306!\307\232\211?\205\f0\310 \2030\311\2020\312 \313Q! \314 \203%0\311\202&0\312 \315\f\316\260! \f
\n F,\207" . [current-prefix-arg whole-name arg operation regexp newname prefix-numeric-value 0 dired-read-regexp "Abs. " "" " from (regexp): " read-string " " " to: "]) (#$ . 53813) nil 7])
#@622 Rename selected files whose names match REGEXP to NEWNAME.
With non-zero prefix argument ARG, the command operates on the next ARG
files. Otherwise, it operates on all the marked files, or the current
file if none are marked.
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 \=\<n> or \& as in `query-replace-regexp'.
REGEXP defaults to the last regexp used.
With a zero prefix arg, renaming by regexp affects the absolute file name.
Normally, only the non-directory part of the file name is used and changed.
(defalias 'dired-do-rename-regexp #[(regexp newname &optional arg whole-name) #@146 ("\305\306\307 \n \f&\207" . [arg regexp newname whole-name dired-keep-marker-rename dired-do-create-files-regexp dired-rename-file "Rename"]) (#$ . 54831) nil 8 (#$ . 54125) (dired-mark-read-regexp "Rename")])
#@111 Copy selected files whose names match REGEXP to NEWNAME.
See function `dired-do-rename-regexp' for more info.
(defalias 'dired-do-copy-regexp #[(regexp newname &optional arg whole-name) #@231 ("\306\307\310 \203\f0\311\202
0\312\n \f
&)\207" . [dired-recursive-copies dired-copy-preserve-time arg regexp newname whole-name nil dired-do-create-files-regexp dired-copy-file "Copy [-p]" "Copy" dired-keep-marker-copy]) (#$ . 55243) nil 8 (#$ . 55050) (dired-mark-read-regexp "Copy")])
#@115 Hardlink selected files whose names match REGEXP to NEWNAME.
See function `dired-do-rename-regexp' for more info.
(defalias 'dired-do-hardlink-regexp #[(regexp newname &optional arg whole-name) #@149 ("\305\306\307 \n \f&\207" . [arg regexp newname whole-name dired-keep-marker-hardlink dired-do-create-files-regexp add-name-to-file "HardLink"]) (#$ . 55746) nil 8 (#$ . 55545) (dired-mark-read-regexp "HardLink")])
#@114 Symlink selected files whose names match REGEXP to NEWNAME.
See function `dired-do-rename-regexp' for more info.
(defalias 'dired-do-symlink-regexp #[(regexp newname &optional arg whole-name) #@149 ("\305\306\307 \n \f&\207" . [arg regexp newname whole-name dired-keep-marker-symlink dired-do-create-files-regexp make-symbolic-link "SymLink"]) (#$ . 56169) nil 8 (#$ . 55970) (dired-mark-read-regexp "SymLink")])
(defalias 'dired-create-files-non-directory #[(file-creator basename-constructor operation arg) #@559 ("\305\306 \n\307\305 \"\310\f%)\207" . [rename-non-directory-query file-creator operation arg dired-keep-marker-rename nil dired-create-files dired-get-marked-files #[(from) "\305! \306!!P\307\310 \227 \227# \311\312 \313P\314!\314\n!$)\205#0\n)\207" [from basename-constructor to operation help-form file-name-directory file-name-nondirectory format "Type SPC or `y' to %s one file, DEL or `n' to skip to next,\n`!' to %s all remaining matches with no more questions." dired-query rename-non-directory-query " `%s' to `%s'" dired-make-relative] 6]]) (#$ . 56488) nil 6])
(defalias 'dired-rename-non-directory #[(basename-constructor operation arg) #@113 ("\303\304 \n$\207" . [basename-constructor operation arg dired-create-files-non-directory dired-rename-file]) (#$ . 57150) nil 5])
#@54 Rename all marked (or next ARG) files to upper case.
(defalias 'dired-upcase #[(&optional arg) #@82 ("\301\302\303#\207" . [arg dired-rename-non-directory upcase "Rename upcase"]) (#$ . 57389) nil 4 (#$ . 57288) "P"])
#@54 Rename all marked (or next ARG) files to lower case.
(defalias 'dired-downcase #[(&optional arg) #@86 ("\301\302\303#\207" . [arg dired-rename-non-directory downcase "Rename downcase"]) (#$ . 57616) nil 4 (#$ . 57513) "P"])
#@887 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.
Dired remembers switches specified with a prefix arg, so that reverting
the buffer will not reset them. However, using `dired-undo' to re-insert
or delete subdirectories can bypass this machinery. Hence, you sometimes
may have to reset some subdirectory switches after a `dired-undo'.
You can reset all subdirectory switches to the default using
\<dired-mode-map>\[dired-reset-subdir-switches].
See Info node `(emacs)Subdir switches' for more details.
(defalias 'dired-maybe-insert-subdir #[(dirname &optional switches no-error-if-not-dir-p) #@182 ("`\304 !\n\2040\305 !\2040\306 \n #\210\307!)\207" . [opoint dirname switches no-error-if-not-dir-p file-name-as-directory dired-goto-subdir dired-insert-subdir push-mark]) (#$ . 58728) nil 4 (#$ . 57745) (list (dired-get-filename) (if current-prefix-arg (read-string "Switches for listing: " (or dired-subdir-switches dired-actual-switches))))])
#@414 Insert this subdirectory into the same Dired buffer.
If it is already present, overwrite the previous entry;
otherwise, insert 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.
(defalias 'dired-insert-subdir #[(dirname &optional switches no-error-if-not-dir-p) #@1193 ("\306\307!! \2040\310!\2040\311\312\"\210\313\n\"\314 \"\315 \f\316\211\211\211 _ ! \" # $ %\f\204@0$\203@0$A\317\f\"\210\f\205M0\320\321\f\"\211!\203Y0\322\323\" %\203j0\324%! \244 \202n0\325!\210\326%\327\f\"#\210\"\203\2200$\203\2120$\f\241\210\202\2200\fB B!\203\3400\330\f!\210\331\321\332\f#\n\316 &\211 '\203\3370'@\211&@ (\333(\"\203\3250\314( \"\211 )\203\3150)\f\241\210\202\3240(\fB B))'A\211'\204\2510*\334!\210\212\335 !\210)\336#!.\207" . [dirname no-error-if-not-dir-p dired-subdir-alist dired-switches-alist switches buffer-read-only file-name-as-directory expand-file-name file-directory-p error "Attempt to insert a non-directory: %s" assoc assoc-string buffer-modified-p nil dired-insert-subdir-validate string-match "R" dired-kill-tree t dired-insert-subdir-del dired-insert-subdir-newpos dired-insert-subdir-doupdate dired-insert-subdir-doinsert dired-build-subdir-alist dired-replace-in-string "" dired-in-this-tree dired-initial-position dired-mark-remembered restore-buffer-modified-p case-fold-search mark-alist switches-have-R old-switches modflag cons elt cur-ass --dolist-tail-- cur-dir cur-cons]) (#$ . 59594) nil 9 (#$ . 59089) (list (dired-get-filename) (if current-prefix-arg (read-string "Switches for listing: " (or dired-subdir-switches dired-actual-switches))))])
(defalias 'dired-insert-subdir-validate #[(dirname &optional switches) #@447 ("\306\307 !\"\2040\310\311\"\210\n\2060 \211 \205_0\312 \313\314\315\"))\207" . [dirname default-directory switches dired-subdir-switches real-switches case-fold-search dired-in-this-tree expand-file-name error "%s: not in this directory tree" nil mapcar #[(x) "\303 \"?\303\n\"?=\2060\304\305\"\207" [x real-switches dired-actual-switches string-match error "Can't have dirs with and without -%s switches together"] 4] ("F" "b")]) (#$ . 61037) nil 5])
(defalias 'dired-alist-add #[(dir new-marker) #@81 ("\302 \"\210\303 \207" . [dir new-marker dired-alist-add-1 dired-alist-sort]) (#$ . 61555) nil 3])
(defalias 'dired-alist-sort #[nil #@124 ("\301\302\"\211\207" . [dired-subdir-alist sort #[(elt1 elt2) "\302!\302 !V\207" [elt1 elt2 dired-get-subdir-min] 3]]) (#$ . 61696) nil 3])
#@323 Kill all proper subdirs of DIRNAME, excluding DIRNAME itself.
Interactively, you can kill DIRNAME as well by using a prefix argument.
In interactive use, the command prompts for DIRNAME.
When called from Lisp, if REMEMBER-MARKS is non-nil, return an alist
of marked files. If KILL-ROOT is non-nil, kill DIRNAME as well.
(defalias 'dired-kill-tree #[(dirname &optional remember-marks kill-root) #@305 ("\306\307!! \310\211 \f\20380\f@@\fA
\204!0 \230\204\f0\311 \"\203\f0\312 !\203\f0\313\f!\n\244\202\f0\n+\207" . [dirname dired-subdir-alist m-alist dir s-alist kill-root file-name-as-directory expand-file-name nil dired-in-this-tree dired-goto-subdir dired-kill-subdir remember-marks]) (#$ . 62249) nil 3 (#$ . 61846) "DKill tree below directory: \ni\nP"])
(defalias 'dired-insert-subdir-newpos #[(new-dir) #@232 ("\306\211\211\211
\203)0
@
A\f@\307 \"\203\n0\310\f!\306\211\2040 b\210-m\20440\311y\210\312c\210`\207" . [dired-subdir-alist new-pos pos dir elt alist nil dired-tree-lessp dired-get-subdir-max -1 "\n" new-dir]) (#$ . 62680) nil 6])
(defalias 'dired-insert-subdir-del #[(element) #@156 ("\302!\211b\210\303 b\210m\2040\304u\210\305 `\" `|\210)\207" . [element begin-marker dired-get-subdir-min dired-subdir-max -1 dired-remember-marks]) (#$ . 62985) nil 4])
(defalias 'dired-insert-subdir-doinsert #[(dirname switches) #@289 ("\212` \2060\n\2060\306\307\310 #\f\311
!@@\232\203!0\312 \210\202)0\313\f \314\211\315%\210)`*D\207" . [begin switches dired-subdir-switches dired-actual-switches dirname dired-subdir-alist dired-replace-in-string "R" "" last dired-readin-insert dired-insert-directory nil t]) (#$ . 63228) nil 6])
(defalias 'dired-insert-subdir-doupdate #[(dirname elt beg-end) #@237 ("\2030\306!\307 \310\223\210\2020\311 \307 \"\210\n\205-0\212 @ A@ \211 b\210\214
\f}\210\312\302!,\207" . [elt dirname dired-after-readin-hook beg-end end begin dired-get-subdir-min point-marker nil dired-alist-add run-hooks]) (#$ . 63607) nil 4])
(defalias 'dired-tree-lessp #[(dir1 dir2) #@330 ("\306!\306 !\307\310\"\307\310 \" \203+0\n\203+0 @\n@\232\203+0 A\nA\2020 @\n@ \211 \203?0\f\203?0
\f\231\202^0
\204K0\f\204K0\311\202^0
\204S0\312\202^0\f\204[0\311\202^0\313\314!,\207" . [dir1 dir2 components-2 components-1 c2 c1 file-name-as-directory dired-split "/" nil t error "This can't happen"]) (#$ . 63912) nil 5])
#@283 Splitting on regexp PAT, turn string STR into a list of substrings.
Optional third arg LIMIT (>= 1) is a limit to the length of the
resulting list.
Thus, if SEP is a regexp that only matches itself,
(mapconcat 'identity (dired-split SEP STRING) SEP)
is always equal to STRING.
(defalias 'dired-split #[(pat str &optional limit) #@260 ("\306 \" \307\nOC\310 \n\2050\307\225\211 \203B0\n\250\203%0\f\nW\203B0\306
#\203B0\307\224\fT
\nO B\307\225\211\2020\n\250\203O0\f\nW\203Z0
\203Z0
\311O B \237,\207" . [pat str start result count end string-match 0 1 nil limit]) (#$ . 64608) nil 5 (#$ . 64268)])
#@129 Go to previous subdirectory, regardless of level.
When called interactively and not on a subdir line, go to this subdir's line.
(defalias 'dired-prev-subdir #[(arg &optional no-error-if-not-found no-skip) #@76 ("\303[ \n#\207" . [arg no-error-if-not-found no-skip dired-next-subdir]) (#$ . 65118) nil 4 (#$ . 64907) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) (if (dired-get-subdir) 1 0)))])
(defalias 'dired-subdir-min #[nil #@107 ("\212\300\301\302\211#\2040\303\304!\2020`)\207" . [dired-prev-subdir 0 t error "Not in a subdir!"]) (#$ . 65368) nil 4])
#@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.
(defalias 'dired-goto-subdir #[(dir) #@159 ("\303!\304 \"\211\2050\305\n!b\2050\306\307w\210`)\207" . [dir dired-subdir-alist elt file-name-as-directory assoc dired-get-subdir-min "^
\n" nil]) (#$ . 65707) nil 4 (#$ . 65501) (byte-code "\301\302\303\304\305\306 %!C\307 \210\207" [dired-subdir-alist expand-file-name completing-read "Goto in situ directory: " nil t dired-current-directory push-mark] 7)])
#@183 Mark all files except `.' and `..' in current subdirectory.
If the Dired buffer shows multiple directories, this command
marks the files listed in the subdirectory that point is in.
(defalias 'dired-mark-subdir-files #[nil #@100 ("\301 \302\303 \")\207" . [p-min dired-subdir-min dired-mark-files-in-region dired-subdir-max]) (#$ . 66315) nil 3 (#$ . 66085) nil])
#@72 Remove all lines of current subdirectory.
Lower levels are unaffected.
(defalias 'dired-kill-subdir #[(&optional remember-marks) #@489 ("\306 \307 \310 \311 \312 \f\" \313 \232\203_0\314\315!\210\205(0\316 \" |\210m\20340\317\320!\210\321 !\210
\203A0\322
\f\"\323\n!\210.\207" . [beg end modflag cur-dir dired-switches-alist cons dired-subdir-min dired-subdir-max buffer-modified-p dired-current-directory assoc-string nil error "Attempt to kill top level directory" dired-remember-marks delete-char -1 dired-unsubdir delete restore-buffer-modified-p buffer-read-only default-directory remember-marks]) (#$ . 66593) nil 4 (#$ . 66457) nil])
(defalias 'dired-unsubdir #[(dir) #@68 ("\302\303 \" \"\211\207" . [dir dired-subdir-alist delq assoc]) (#$ . 67158) nil 4])
#@37 Go up ARG levels in the dired tree.
(defalias 'dired-tree-up #[(arg) #@219 ("\302 \303Y\2030 S\304\305!!\2020\306!\206_0\307\310\")\207" . [dir arg dired-current-directory 1 file-name-directory directory-file-name dired-goto-subdir error "Cannot go up to %s - not in this tree"]) (#$ . 67327) nil 3 (#$ . 67251) "p"])
#@28 Go down in the dired tree.
(defalias 'dired-tree-down #[nil #@296 ("\306 \307\211\310 !\307
\203+0
@
A\311\312\f@!\n\"\203
0\307\313\f@!\202
0* \20350 b\20280\314\315!+\207" . [case-fold-search pos dir dired-subdir-alist elt rest dired-current-directory nil reverse dired-in-this-tree directory-file-name dired-goto-subdir error "At the bottom"]) (#$ . 67655) nil 3 (#$ . 67588) nil])
(defalias 'dired-unhide-subdir #[nil #@125 ("\301\302\303 \304 \305\306$)\207" . [buffer-read-only nil subst-char-in-region dired-subdir-min dired-subdir-max 13 10]) (#$ . 68031) nil 5])
(defalias 'dired-hide-check #[nil #@112 ("\2060\301\302!\207" . [selective-display error "selective-display must be t for subdir hiding to work!"]) (#$ . 68216) nil 2])
(defalias 'dired-subdir-hidden-p #[(dir) #@101 ("\205
0\212\302 !\210\303\304!)\207" . [selective-display dir dired-goto-subdir looking-at "
"]) (#$ . 68395) nil 2])
#@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.
(defalias 'dired-hide-subdir #[(arg) #@494 ("\306 \210\307 S\211\310Y\203M0\311 \312\n!\313\n\f\" \314
!S \315 \316
!b\210\317\315w\210 \203<0\320`\321\322$\210\202D0\320`\322\321$\210-\323\324\325\"\210\2020\326!)\207" . [modflag arg cur-dir hidden-p dired-subdir-alist elt dired-hide-check buffer-modified-p 0 dired-current-directory dired-subdir-hidden-p assoc dired-get-subdir-max nil dired-get-subdir-min "^\n
" subst-char-in-region 13 10 dired-next-subdir 1 t restore-buffer-modified-p end-pos buffer-read-only]) (#$ . 68725) nil 5 (#$ . 68522) "p"])
#@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.
(defalias 'dired-hide-all #[(&optional ignored) #@376 ("\305 \210\306 \307\212eb\210\310\311\307\312#)\203_0\313ed\314\315$\210\202F0d\n \203E0\313\316 @!\212\fb\210\317y\210`)\315\314$\210\316 @! A\211\204'0*\320 !*\207" . [buffer-read-only modflag dired-subdir-alist alist pos dired-hide-check buffer-modified-p nil search-forward "
" t subst-char-in-region 13 10 dired-get-subdir-min -1 restore-buffer-modified-p]) (#$ . 69508) nil 6 (#$ . 69262) "P"])
#@243 Non-nil to Isearch in file names only.
If t, Isearch in Dired always matches only file names.
If `dwim', Isearch matches file names when initial point position is on
a file name. Otherwise, it searches the whole buffer without restrictions.
(custom-declare-variable 'dired-isearch-filenames nil '(#$ . 69927) :type '(choice (const :tag "No restrictions" nil) (const :tag "When point is on a file name initially, search file names" dwim) (const :tag "Always search in file names" t)) :group 'dired :version "23.1")
(defvar dired-isearch-filter-predicate-orig nil)
#@218 Toggle file names searching on or off.
When on, Isearch skips matches outside file names using the predicate
`dired-isearch-filter-filenames' that matches only at file names.
When off, it uses the original predicate.
(defalias 'dired-isearch-filenames-toggle #[nil #@198 ("\304=\203\n0 \202 0\304\305\211\306 \207" . [isearch-filter-predicate dired-isearch-filter-predicate-orig isearch-success isearch-adjusted dired-isearch-filter-filenames t isearch-update]) (#$ . 70770) nil 3 (#$ . 70498) nil])
#@92 Set up isearch to search in Dired file names.
Intended to be added to `isearch-mode-hook'.
(defalias 'dired-isearch-filenames-setup #[nil #@482 ("\304=\2040\305=\205*0\306`\307\"\205*0\310\311\n\312\313#\210\314\315!\316\315\317\"\210\320\321\322\323\304$\207" . [dired-isearch-filenames isearch-message-prefix-add isearch-mode-map dired-isearch-filter-predicate-orig t dwim get-text-property dired-filename "filename " define-key "\363f" dired-isearch-filenames-toggle default-value isearch-filter-predicate set-default dired-isearch-filter-filenames add-hook isearch-mode-end-hook dired-isearch-filenames-end nil]) (#$ . 71155) nil 5 (#$ . 71010)])
#@64 Clean up the Dired file name search after terminating isearch.
(defalias 'dired-isearch-filenames-end #[nil #@274 ("\303\304 \305\303#\210\306\307\n\"\210\310\311\312\313#\207" . [isearch-message-prefix-add isearch-mode-map dired-isearch-filter-predicate-orig nil define-key "\363f" set-default isearch-filter-predicate remove-hook isearch-mode-end-hook dired-isearch-filenames-end t]) (#$ . 71790) nil 4 (#$ . 71675)])
#@184 Test whether the current search hit is a visible file name.
Return non-nil if the text from BEG to END is part of a file
name (has the text property `dired-filename') and is visible.
(defalias 'dired-isearch-filter-filenames #[(beg end) #@163 ("\303 \"\2050\n\2030\304 ^ ]\305\306$\207\307\207" . [beg end dired-isearch-filenames isearch-filter-visible text-property-not-all dired-filename nil t]) (#$ . 72347) nil 5 (#$ . 72103)])
#@75 Search for a string using Isearch only in file names in the Dired buffer.
(defalias 'dired-isearch-filenames #[nil #@67 ("\301\302 )\207" . [dired-isearch-filenames t isearch-forward]) (#$ . 72669) nil 1 (#$ . 72548) nil])
#@75 Search for a regexp using Isearch only in file names in the Dired buffer.
(defalias 'dired-isearch-filenames-regexp #[nil #@74 ("\301\302 )\207" . [dired-isearch-filenames t isearch-forward-regexp]) (#$ . 72906) nil 1 (#$ . 72778) nil])
#@61 Search for a string through all marked files using Isearch.
(defalias 'dired-do-isearch #[nil #@104 ("\300\301\302\211\303#!\207" . [multi-isearch-files dired-get-marked-files nil dired-nondirectory-p]) (#$ . 73123) nil 5 (#$ . 73022) nil])
#@61 Search for a regexp through all marked files using Isearch.
(defalias 'dired-do-isearch-regexp #[nil #@111 ("\300\301\302\211\303#!\207" . [multi-isearch-files-regexp dired-get-marked-files nil dired-nondirectory-p]) (#$ . 73377) nil 5 (#$ . 73269) nil])
#@159 Search through all marked files for a match for REGEXP.
Stops when a match is found.
To continue searching for next match, use command \[tags-loop-continue].
(defalias 'dired-do-search #[(regexp) #@99 ("\301\302\"\207" . [regexp tags-search (dired-get-marked-files nil nil 'dired-nondirectory-p)]) (#$ . 73733) nil 3 (#$ . 73531) "sSearch marked files (regexp): "])
#@256 Do `query-replace-regexp' of FROM with TO, on all marked files.
Third arg DELIMITED (prefix arg) means replace only word-delimited matches.
If you exit (\[keyboard-quit], RET or q), you can resume the query replace
with the command \[tags-loop-continue].
(defalias 'dired-do-query-replace-regexp #[(from to &optional delimited) #@372 ("\306\307\211\310#\307\211\203-0 @\311!\211\203%0r\nq\210 )\203%0\312\313\"\210) A\211\204\f0*\314\f
\315$\207" . [file --dolist-tail-- buffer buffer-read-only from to dired-get-marked-files nil dired-nondirectory-p get-file-buffer error "File `%s' is visited read-only" tags-query-replace (dired-get-marked-files nil nil 'dired-nondirectory-p) delimited]) (#$ . 74240) nil 6 (#$ . 73905) (let ((common (query-replace-read-args "Query replace regexp in marked files" t t))) (list (nth 0 common) (nth 1 common) (nth 2 common)))])
(defalias 'dired-nondirectory-p #[(file) #@43 ("\301!?\207" . [file file-directory-p]) (#$ . 74829) nil 2])
#@189 Print the type of FILE, according to the `file' command.
If you give a prefix to this command, and FILE is a symbolic
link, then the type of the file linked to by FILE is printed
instead.
(defalias 'dired-show-file-type #[(file &optional deref-symlinks) #@423 ("\304\305\306!r q\210\307\216\n\203 0\310\311\304\312\211\313\314 &\210\202(0\310\311\304\312\211\314 &\210n\20300\315\316!\210\317\320\321 \",\207" . [process-file-side-effects #1=#:temp-buffer deref-symlinks file nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n0\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) process-file "file" t "-L" "--" backward-delete-char 1 message "%s" buffer-string]) (#$ . 75159) nil 8 (#$ . 74898) (list (dired-get-filename t) current-prefix-arg)])
(provide 'dired-aux)