;ELC   
;;; compiled by rms@mole.gnu.ai.mit.edu on Tue Jun 20 11:31:58 1995
;;; from file /home/fsf/rms/e19/lisp/dired-aux.el
;;; emacs version 19.28.95.3.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.28.90")))
    (error "`dired-aux.el' was compiled for Emacs 19.29 or later"))


#@232 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'.
With prefix arg, prompt for second argument SWITCHES,
 which is options for `diff'.
(defalias 'dired-diff #[(file &optional switches) #@59 ("А	ВГ!\f#‡" . [diff file dired-get-filename t switches])(#$ . 767) nil 4 (#$ . 480) (byte-code "АБ!… ЉАБ!b€ВБ‰\")ДЕ!€ЖЗИВБ!ѓ' ЙКQ‚( Л#М Б$…G ОП;ѓ@ ‚F СТУ#\")D‡" [mark t dired-get-filename default require diff read-file-name format "Diff %s with: %s" "(default " ") " "" dired-current-directory current-prefix-arg read-string "Options for diff: " diff-switches mapconcat identity " "] 7)])
#@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) #@58 ("АБ \n\"‡" . [diff-backup dired-get-filename switches])(#$ . 1529) nil 3 (#$ . 1177) (byte-code "… БВ;ѓ ‚ ДЕЖ#\"C‡" [current-prefix-arg read-string "Options for diff: " diff-switches mapconcat identity " "] 6)])
(defalias 'dired-do-chxxx #[(attribute-name program op-symbol arg) #@339 ("АБ\n\"ДЕЗQИ	\n%\nМ\nQИПРС\nE$Т\n!€…=0УФХ\"И\",‡" . [dired-get-marked-files t arg files dired-mark-read-string "Change " attribute-name " of %s to: " nil op-symbol new-attribute program " " operation failures dired-bunch-files 10000 dired-check-process dired-do-redisplay dired-log-summary format "%s: error"])(#$ . 1823) nil 6])
#@114 Change the mode of the marked (or next ARG) files.
This calls chmod, thus symbolic modes like `g+w' are allowed.
(defalias 'dired-do-chmod #[(&optional arg) #@71 ("АБ\nГ\f$‡" . [dired-do-chxxx "Mode" dired-chmod-program chmod arg])(#$ . 2350) nil 5 (#$ . 2187) "P"])
#@53 Change the group of the marked (or next ARG) files.
(defalias 'dired-do-chgrp #[(&optional arg) #@147 ("Б>ѓ\n0ВГ!€ДЕЖЗ$‡" . [system-type (ms-dos windows-nt) error "chgrp not supported on this system." dired-do-chxxx "Group" "chgrp" chgrp arg])(#$ . 2564) nil 5 (#$ . 2461) "P"])
#@53 Change the owner of the marked (or next ARG) files.
(defalias 'dired-do-chown #[(&optional arg) #@160 ("Б>ѓ\n0ВГ!€ДЕЗ$‡" . [system-type (ms-dos windows-nt) error "chown not supported on this system." dired-do-chxxx "Owner" dired-chown-program chown arg])(#$ . 2854) nil 5 (#$ . 2751) "P"])
(defalias 'dired-bunch-files #[(max function args files) #@217 ("АБАѓH0@‰GЗ\\A	\fѓ60\\\nVѓ60Л\fН\f\"\"\n¤АБ\fЎ€\\	+‚0Л\fН\f\"\"\n¤+‡" . [nil 0 failures pending-length pending files thisfile 3 thislength rest max apply function append args])(#$ . 3112) 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) #@252 ("АБ\n\"ДЕЖЗ	;ѓ0	C‚0	BК#Л\n%\fНО\fП#!*‡" . [dired-get-marked-files t arg file-list dired-mark-read-string "Print %s with: " mapconcat identity lpr-command lpr-switches " " print command dired-run-shell-command dired-shell-stuff-it nil])(#$ . 3533) nil 6 (#$ . 3354) "P"])
(defalias 'dired-mark-read-string #[(prompt initial op-symbol arg files) #@126 ("АБ\nДЕЗ\"\"	&‡" . [dired-mark-pop-up nil op-symbol files read-string format prompt dired-mark-prompt arg initial])(#$ . 3899) nil 10])
(byte-code "А	BА‡" [dired-file-version-alist current-load-list] 2)
#@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) #@503 ("ѓ\n0Б!‚0\n‰ГWѓ0[‚0\fГXѓ\"0\n‚#0ЕЙК#€ЛМ!€‰ѓx0ОП@AР\"B‰G‰\\Vѓf0›Z›Ў€@AЎ€*A‰„>0)ЛУ!€ЙФ!+‡" . [keep prefix-numeric-value dired-kept-versions 0 kept-old-versions nil dired-file-version-alist late-retention early-retention message "Cleaning numerical backups (keeping %d late, %d old)..." dired-map-dired-file-lines dired-collect-file-versions fval q sort < sorted-v-list v-count dired-trample-file-versions "Cleaning numerical backups...done"])(#$ . 4520) nil 5 (#$ . 4119) "P"])
(defalias 'dired-map-dired-file-lines #[(fun) #@145 ("ЉА‰eb€m?…00ЉГ\f!„)0l„)0ЕАЖ\"‰ѓ)0А€\n!€)Иy€‚0+‡" . [nil buffer-read-only file looking-at dired-re-dir dired-get-filename t fun 1])(#$ . 5110) nil 3])
(defalias 'dired-collect-file-versions #[(fn) #@280 ("А	!В	\"?…40Д	!ЕP‰GИЙ	!\"\nЛМ\n\"‰…30	BB‰,)‡" . [file-name-sans-versions fn assoc dired-file-version-alist file-name-nondirectory ".~" base-versions bv-length file-name-all-completions file-name-directory possibilities mapcar backup-extract-version versions])(#$ . 5326) nil 5])
(defalias 'dired-trample-file-versions #[(fn) #@211 ("АБ\n\"Д…00Ж\nЗO\"‰…00Й\nК\\ДO!>?…00Зy€ЛМ!€c*‡" . [string-match "\\.~[0-9]+~$" fn start-vn nil base-version-list assoc 0 dired-file-version-alist string-to-int 2 delete-char 1 dired-del-marker])(#$ . 5677) nil 4])
#@72 Quote a file name for inferior shell (see variable `shell-file-name').
(defalias 'dired-shell-quote #[(filename) #@135 ("АБВЖЗ\f#ѓ'0Б”\fOЙ‰TORT‚0\fВOP+‡" . ["" 0 nil end start result string-match "[^-0-9a-zA-Z_./]" filename "\\"])(#$ . 6032) nil 6 (#$ . 5912)])
(defalias 'dired-read-shell-command #[(prompt arg files) #@110 ("АБВДЕЗ\"\"%‡" . [dired-mark-pop-up nil shell files read-string format prompt dired-mark-prompt arg])(#$ . 6261) nil 10])
#@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.
(defalias 'dired-do-shell-command #[(command &optional arg) #@305 ("АБ\n\"?ДЕ\"ѓ0ИЙ\nGZКЛ$‚(0МН\nЛ$!*‡" . [string-match "\\*" command on-each dired-get-marked-files t arg file-list dired-bunch-files 10000 #[(&rest files) "АБ\nД$!‡" [dired-run-shell-command dired-shell-stuff-it command files t arg] 6] nil dired-run-shell-command dired-shell-stuff-it])(#$ . 7254) nil 6 (#$ . 6397) (list (dired-read-shell-command (concat "! on " "%s: ") current-prefix-arg (dired-get-marked-files t current-prefix-arg)) current-prefix-arg)])
#@52 Prepended to marked files in dired shell commands.
(defvar dired-mark-prefix "" (#$ . 7737))
#@51 Appended to marked files in dired shell commands.
(defvar dired-mark-postfix "" (#$ . 7836))
#@49 Separates marked files in dired shell commands.
(defvar dired-mark-separator " " (#$ . 7935))
(defalias 'dired-shell-stuff-it #[(command file-list on-each &optional raw-arg) #@338 ("АБ\n\"ѓ0Г‚\f0Дѓ0ЗИЙ\n\"Л#‚=0ЗЙ\n\f#\nGОVѓ80Q!))‡" . [string-match "\\*" command #[(x) "АБ\n#‡" [dired-replace-in-string "\\*" x command] 4] #[(x) "Б\nQ‡" [command " " x] 3] stuff-it on-each mapconcat mapcar dired-shell-quote file-list ";" dired-mark-separator fns 1 dired-mark-prefix dired-mark-postfix])(#$ . 8116) nil 5])
(defalias 'dired-run-shell-command #[(command) #@42 ("А	!€В‡" . [shell-command command nil])(#$ . 8525) nil 2])
(defalias 'dired-call-process #[(program discard &rest arguments) #@72 ("АБ\nГ\f?Г&‡" . [apply call-process program nil discard arguments])(#$ . 8657) nil 7])
(defalias 'dired-check-process #[(msg program &rest arguments) #@333 ("А‰	ЕЖ\"€ЉИЙ!‰q€К €\nЛМА$ПU?‰ѓG0РСТ!УR!€Р\f!€†R0†R0Ф‚R0Х\f!€ЕЦ\"€А,‡" . [nil default-directory dir err err-buffer message "%s..." msg get-buffer-create " *dired-check-process output*" erase-buffer apply dired-call-process program arguments 0 dired-log " " prin1-to-string "\n" t kill-buffer "%s...done"])(#$ . 8817) nil 6])
(defalias 'dired-kill-line #[(&optional arg) #@272 ("А	!В‰	ЕU„M0ЖВЗ\"‰„0ИЙ!€‚0Љѓ,0К!ѓ,0Л €)Еy€`Мy€`|€	ЕVѓD0	S‰‚	0	TНy€‚0О *‡" . [prefix-numeric-value arg nil file buffer-read-only 0 dired-get-filename t error "Can only kill file lines." dired-goto-subdir dired-kill-subdir 1 -1 dired-move-to-filename])(#$ . 9220) nil 4 nil "P"])
#@313 Kill all marked lines (not the files).
With a prefix argument, kill that many lines starting with the current line.
(A negative argument kills lines before the current line.)
To kill an entire subdirectory, 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) #@379 ("ѓ0Б ѓ\f0В ‡Г!‡Љeb€ДЕ„E0И 	m„A0К	ДЛ#ѓA0TЕy€`Мy€`|€‚\"0)‚k0m„k0Н „T0ОП!„Z0Мy€‚E0T`ЉМy€`)|€‚E0Рљ„Ѓ0Т†y0УФ!#€+‡" . [arg dired-get-subdir dired-kill-subdir dired-kill-line nil 0 count buffer-read-only dired-marker-regexp regexp re-search-forward t 1 dired-between-files looking-at "^  " "" fmt message "Killed %d line%s." dired-plural-s])(#$ . 9897) nil 5 (#$ . 9525) "P"])
(defalias 'dired-compress #[nil #@235 ("АВ Д!‰ѓ\"0`АЗИЏ€b€Й!€)А‚)0КЛP!€+‡" . [nil buffer-read-only dired-get-filename from-file dired-compress-file new-file start (dired-remove-entry new-file) ((error)) dired-update-file-line dired-log "Failed to compress"])(#$ . 10349) nil 4])
(defalias 'dired-compress-file #[(file) #@590 ("А	В\"‰ѓ0В	\"‚u0Д	!ѓ0Е‚u0ЕЗИ	\")ѓ70ЙК	PЛ	#?…u0	МНO‚u0ЕЗО	\")ѓT0ЙК	PП	#?…u0	МРO‚u0ЕЗС	\")ѓq0ЙК	PП	#?…u0	МНO‚u0ЕТУЏ)‡" . [find-file-name-handler file dired-compress-file handler file-symlink-p nil case-fold-search string-match "\\.Z$" dired-check-process "Uncompressing " "uncompress" 0 -2 "\\.gz$" "gunzip" -3 "\\.z$" (byte-code "АБ\nPГД\n$?…0Е\nЖP!ѓ0\nЖP‡\nЗP‡" [dired-check-process "Compressing " file "gzip" "-f" file-exists-p ".gz" ".z"] 5) ((file-error (byte-code "АБ\nPГД\n$?…0\nЕP‡" [dired-check-process "Compressing " file "compress" "-f" ".Z"] 5)))])(#$ . 10650) nil 5])
(defalias 'dired-mark-confirm #[(op-symbol arg) #@252 ("	>†/0ВГ\f\"Е=ѓ0Ж‚0ЗИ!!	\nЛМ\nН	ОП\f\n\"РR%*‡" . [op-symbol dired-no-confirm dired-get-marked-files t arg compress "Compress or uncompress" capitalize symbol-name string files dired-mark-pop-up nil y-or-n-p " " dired-mark-prompt "? "])(#$ . 11314) nil 10])
(defalias 'dired-map-over-marks-check #[(fun arg op-symbol &optional show-progress) #@770 ("А	\n\"…б0Г‰‰‰\nѓ50\nЁѓ.0И\nЙ\"€\nКWѓ*0\fџ‚•0\f‚•0 C‚•0М ГЉeb€ПГР#…K0С ‰??ѓ‡0b€ѓc0УК!€ \fBb€Фy€Г‰“€ПГР#…Ѓ0С ‰„V0)ѓђ0\f‚”0 C*,Х €‰GШГ\"‰G	Ы=ѓґ0Ь‚№0ЭЮ	!!_„О0аб_в!$‚а0где_—в!%\"-‡" . [dired-mark-confirm op-symbol arg nil results found case-fold-search buffer-read-only dired-repeat-over-lines #[nil "ѓ0БВ!€ \fB‰‡" [show-progress sit-for 0 fun results] 2] 0 fun dired-marker-regexp next-position regexp re-search-forward t point-marker show-progress sit-for 1 dired-move-to-filename total-list total delq failures count compress "Compress or uncompress" capitalize symbol-name string message "%s: %d file%s." dired-plural-s dired-log-summary format "Failed to %s %d of %d file%s"])(#$ . 11677) nil 9])
(byte-code "АБ!„ ВБBА‡" [boundp dired-query-alist ((121 . y) (32 . y) (110 . n) (127 . n) (33 . yes) (113 . no) (27 . no)) current-load-list] 2)
(defalias 'dired-query #[(qs-var qs-prompt &rest qs-args) #@423 ("JВ	\"A‰Е=ѓ0Ж‚t0\fЗ=ѓ0И‚t0	\nѓ00ЛМНО!!\"‚10РPИ‰ФХ#€Ч LВ	\"‰„n0ХШ\"€Щ €ЪЫ!€ФХ#€Ч L‚G0AЬ>+*‡" . [qs-var char assoc dired-query-alist action yes t no nil qs-prompt help-form format " [Type yn!q or %s] " key-description char-to-string help-char " [Type y, n, q or !] " elt result qprompt apply message qs-args read-char "Invalid char - type %c for help." ding sit-for 1 (t y yes)])(#$ . 12680) nil 7])
#@52 Compress or uncompress marked (or next ARG) files.
(defalias 'dired-do-compress #[(&optional arg) #@75 ("АБ\nГД$‡" . [dired-map-over-marks-check dired-compress arg compress t])(#$ . 13232) nil 5 (#$ . 13128) "P"])
(defalias 'dired-byte-compile #[nil #@355 ("А ВВВЖЗИЏ€Й	!ѓ\"0КЛ	#€М	!‚.0Н!€Вy€О!€В,‡" . [dired-get-filename filename nil elc-file buffer-read-only failure err (byte-code "ЉА	!€)А‡" [byte-compile-file filename] 2) ((error (byte-code "В‡" [err failure nil] 1))) byte-compile-dest-file dired-log "Byte compile error for %s:\n%s\n" dired-make-relative dired-remove-file dired-add-file])(#$ . 13386) nil 4])
#@53 Byte compile marked (or next ARG) Emacs Lisp files.
(defalias 'dired-do-byte-compile #[(&optional arg) #@83 ("АБ\nГД$‡" . [dired-map-over-marks-check dired-byte-compile arg byte-compile t])(#$ . 13875) nil 5 (#$ . 13766) "P"])
(defalias 'dired-load #[nil #@228 ("А БДЕЖЏ€\n??…0ЗИ\n#€Й!*‡" . [dired-get-filename nil failure file err (byte-code "А	В‰Г$‡" [load file nil t] 5) ((error (byte-code "В‡" [err failure nil] 1))) dired-log "Load error for %s:\n%s\n" dired-make-relative])(#$ . 14029) nil 4])
#@49 Load the marked (or next ARG) Emacs Lisp files.
(defalias 'dired-do-load #[(&optional arg) #@67 ("АБ\nГД$‡" . [dired-map-over-marks-check dired-load arg load t])(#$ . 14379) nil 5 (#$ . 14282) "P"])
#@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.
(defalias 'dired-do-redisplay #[(&optional arg test-for-subdir) #@819 ("ѓ0Б ѓ0ВБ …0ДЕ\"\"‡ЗИ!€Й\n:ѓ(0\n@‚*0\n!€Л‰‰‰\fѓf0ЁѓS0РС\"€ТWѓХ0\fџ€‚Х0У ЗХ\"€Ц!€)‚Х0Ч ЛЉeb€ЪЛЫ#…|0Ь ‰??ѓѕ0b€У ЗХ\"€Ц!)\fB\fb€Эy€Л‰“€ЪЛЫ#…ё0Ь ‰„€0)„Ф0У ЗХ\"€Ц!€)*,Ю €Ю €ЗЯ!‡" . [test-for-subdir dired-get-subdir dired-insert-subdir arg read-string "Switches for listing: " dired-actual-switches message "Redisplaying..." dired-uncache dired-directory nil results found case-fold-search buffer-read-only dired-repeat-over-lines #[nil "А ВГ	\"€Д	!)B‰‡" [dired-get-filename fname message "Redisplaying... %s" dired-update-file-line results] 3] 0 dired-get-filename fname "Redisplaying... %s" dired-update-file-line dired-marker-regexp next-position regexp re-search-forward t point-marker 1 dired-move-to-filename "Redisplaying...done"])(#$ . 14738) nil 6 (#$ . 14489) "P\np"])
(defalias 'dired-update-file-line #[(file) #@156 ("Аy€g`Б`Еy€`|€ѓ\"0З!€И‰TЙ\f$€+К ‡" . [0 nil buffer-read-only opoint char 1 file dired-add-entry subst-char-in-region 32 dired-move-to-filename])(#$ . 15646) nil 5])
(defalias 'dired-fun-in-all-buffers #[(directory fun &rest args) #@204 ("АБ\n!!pГ‰ѓ40@AИЋq€Й\n\"ѓ00М!\fB)‚0\f,‡" . [dired-buffers-for-dir expand-file-name directory nil success-list buf obuf buf-list ((set-buffer obuf)) apply fun args buffer-name])(#$ . 15893) nil 4])
(defalias 'dired-add-file #[(filename &optional marker-char) #@104 ("АБ\n!Г\n\f$‡" . [dired-fun-in-all-buffers file-name-directory filename dired-add-entry marker-char])(#$ . 16184) nil 5])
(defalias 'dired-add-entry #[(filename &optional marker-char) #@897 ("А	!`В 	Г	!Д	К	!ЛМЌ‰ѓ%0	b€-?‡" . [directory-file-name filename dired-current-directory file-name-directory nil reason directory orig-file-name cur-dir opoint file-name-nondirectory not-found (byte-code "	ѓ'0ВГw€gД=ѓ0Е €Ж	!`Wѓ#0b€)‚A0И!ѓ<0ЙК!ѓ60Е €Л €‚A0МНО\"€Г‰Сy€`Т!€ХШP\"€)b€ЩЪ!Ь!ѓѓ0Г€ЭG[!€c€Юu€‚†0Юy€)Я`\"€аy€!ѓЁ0ЉЊСy€`ЉЮy€`)}€вб!€*г €*Г‡" [directory cur-dir "^\n" nil 13 dired-unhide-subdir dired-after-subdir-garbage p dired-goto-subdir looking-at "" dired-goto-next-nontrivial-file throw not-found "Subdir not found" opoint buffer-read-only 0 dired-add-entry-do-indentation marker-char default-directory insert-directory filename dired-actual-switches "d" dired-get-filename no-dir inserted-name file-name-directory delete-char 1 dired-insert-set-properties -1 dired-after-readin-hook run-hooks dired-move-to-filename] 4)])(#$ . 16376) nil 6])
(defalias 'dired-add-entry-do-indentation #[(marker-char) #@69 ("ѓ0Ёѓ0‚0	‚0ВВ±‡" . [marker-char dired-marker-char 32])(#$ . 17356) nil 2])
(defalias 'dired-after-subdir-garbage #[(dir) #@120 ("ЉА	!„0ВГ!€Дy€l„0Е „0Дy€‚0`)‡" . [dired-goto-subdir dir error "This cannot happen" 1 dired-move-to-filename])(#$ . 17497) nil 2])
(defalias 'dired-remove-file #[(file) #@89 ("АБ\n!Г\n#‡" . [dired-fun-in-all-buffers file-name-directory file dired-remove-entry])(#$ . 17680) nil 4])
(defalias 'dired-remove-entry #[(file) #@80 ("ЉА	!…0ВДy€`ЉЕy€`)|))‡" . [dired-goto-file file nil buffer-read-only 0 1])(#$ . 17833) nil 2])
(defalias 'dired-relist-file #[(file) #@89 ("АБ\n!Г\n#‡" . [dired-fun-in-all-buffers file-name-directory file dired-relist-entry])(#$ . 17976) nil 4])
(defalias 'dired-relist-entry #[(file) #@150 ("А‰ЉГ\f!ѓ0Еy€g`ЉЖy€`)|€З\f!И\f	Й=?…'0	\"+‡" . [nil marker buffer-read-only dired-goto-file file 0 1 directory-file-name dired-add-entry 32])(#$ . 18130) nil 4])
#@125 *Non-nil if Dired should ask about making backups before overwriting files.
Special value `always' suppresses confirmation.
(defvar dired-backup-overwrite nil (#$ . -18306))
(byte-code "А	BА‡" [dired-overwrite-confirmed current-load-list] 2)
(defalias 'dired-handle-overwrite #[(to) #@264 ("…-0	…-0В=„0ГДЕЖ\"\"…-0И!@	К	Л#€М	!)‡" . [dired-backup-overwrite dired-overwrite-confirmed always dired-query overwrite-backup-query format "Make backup for existing file `%s'? " to find-backup-file-name backup rename-file 0 dired-relist-entry])(#$ . 18597) nil 5])
(defalias 'dired-copy-file #[(from to ok-flag) #@96 ("А	!€В	\f$‡" . [dired-handle-overwrite to copy-file from ok-flag dired-copy-preserve-time])(#$ . 18933) nil 5])
(defalias 'dired-rename-file #[(from to ok-flag) #@233 ("А	!€В	\f#€Е!ѓ$0ЉЕ!q€Ж И	!€Й!€*К!€Л	\"‡" . [dired-handle-overwrite to rename-file from ok-flag get-file-buffer buffer-modified-p modflag set-visited-file-name set-buffer-modified-p dired-remove-file dired-rename-subdir])(#$ . 19104) nil 4])
(defalias 'dired-rename-subdir #[(from-dir to-dir) #@405 ("А	!А\n!Г	Д	\n$€Е	!Ж …W0Љ@q€	ѓL0К	\"ѓL0Л МНО	!P\n	#С!€Т!€*)A‰„0У*‡" . [file-name-as-directory from-dir to-dir dired-fun-in-all-buffers dired-rename-subdir-1 expand-file-name buffer-list blist expanded-from-dir buffer-file-name dired-in-this-tree buffer-modified-p dired-replace-in-string "^" regexp-quote to-file modflag set-visited-file-name set-buffer-modified-p nil])(#$ . 19414) nil 6])
(defalias 'dired-rename-subdir-1 #[(dir to) #@366 ("А	!\nГѓ&0@AЗ\f@\"ѓ	0И\f		#€‚	0	\nљ…V0Л	!€	\nАМ!	\"МО!!Р!„S0С!€)Т +‡" . [expand-file-name dir dired-subdir-alist nil elt alist expanded-dir dired-in-this-tree dired-rename-subdir-2 to default-directory dired-unadvertise file-name-nondirectory dired-directory directory-file-name new-name get-buffer rename-buffer dired-advertise])(#$ . 19889) nil 4])
(defalias 'dired-rename-subdir-2 #[(elt dir to) #@426 ("ЉАБ\n!!Б!ДИ	!b€К!„$0МН\n\"€‚D0О”b€ПО•Р#ѓ<0СР‰#€‚D0МТ\n	@#€	УФ	@#! ,‡" . [regexp-quote directory-file-name dir to nil buffer-read-only newtext regexp dired-get-subdir-min elt looking-at dired-subdir-regexp 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" dired-normalize-subdir dired-replace-in-string])(#$ . 20329) nil 6])
(defalias 'dired-expand-newtext #[(string newtext) #@216 ("А	GВ‰\fWѓp0	H‰ЗUѓb0	T‰H‰ИUѓ10	А”А•O‚f0КYѓ[0ЛXѓ[0МZ‰”ѓV0	”•O‚W0В)‚f0О!‚f0О!)PT‰‚0+‡" . [0 newtext "" expanded-newtext len pos c 92 38 string 49 57 48 n char-to-string])(#$ . 20832) nil 5])
(defalias 'dired-create-files #[(file-creator operation fn-list name-constructor &optional marker-char) #@1318 ("А‰Б\nGА‰‰	КЛ\n\"€+ѓ20МНОGР!%\"€‚R0ѓH0МНСGР!%\"€‚R0ТУ\fР\f!$€,Ф ‡" . [nil 0 fn-list total success-count skipped failures overwrite-backup-query overwrite-query to mapcar #[(from) "	!‰	љѓ0ГДЕ—	#€\n„\"0З	!B‰‡Й\n!‰\n…40Л\fНОП\n#)ЁѓA0‚M0ѓL0Т	!‚M0ГФХЦЏ+‡" [name-constructor from to nil dired-log "Cannot %s to same file: %s\n" operation dired-make-relative skipped file-exists-p overwrite (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) help-form dired-query overwrite-query "Overwrite `%s'?" dired-overwrite-confirmed marker-char dired-file-marker actual-marker-char err (byte-code "	\n#€\fѓ0Е\n!€TЗИ	\n$€Л\n\f\"‡" [file-creator from to dired-overwrite-confirmed overwrite dired-remove-file success-count message "%s: %d of %d" operation total dired-add-file actual-marker-char] 5) ((file-error (byte-code "А	!\nBГД	%‡" [dired-make-relative from failures dired-log "%s `%s' to `%s' failed:\n%s\n" operation to err] 6)))] 5] dired-log-summary format "%s failed for %d of %d file%s" operation dired-plural-s "%s: %d of %d file%s skipped" message "%s: %s file%s" dired-move-to-filename])(#$ . 21179) nil 8])
(defalias 'dired-do-create-files #[(op-symbol file-creator operation arg &optional marker-char op1 how-to) #@594 ("„0	ВГ\f\"‰GЗИЙUѓ0‚0	КPЛ \f\fНО\"%!„80С!‚H0Т=ѓC0Г‚H0!ЙVѓ]0„]0ФХ	#€„h0Ц!Ч	ѓv0Щ‚w0Ъ%,‡" . [op1 operation dired-get-marked-files nil arg fn-list fn-count expand-file-name dired-mark-read-file-name 1 " %s to: " dired-dwim-target-directory op-symbol mapcar dired-make-relative target how-to file-directory-p t into-dir error "Marked %s: target must be a directory: %s" directory-file-name dired-create-files file-creator #[(from) "АБ\n!\"‡" [expand-file-name file-name-nondirectory from target] 3] #[(from) "‡" [target] 1] marker-char])(#$ . 22630) nil 10])
(defalias 'dired-mark-read-file-name #[(prompt dir op-symbol arg files) #@125 ("АБ\nДЕЗ\"\"	&‡" . [dired-mark-pop-up nil op-symbol files read-file-name format prompt dired-mark-prompt arg dir])(#$ . 23323) nil 10])
(defalias 'dired-dwim-target-directory #[nil #@182 ("Б=…0В \fѓ,0ЕЖ !Љq€Б=… 0В )‰†(0*‚-0)‡" . [major-mode dired-mode dired-current-directory this-dir dired-dwim-target window-buffer next-window other-buf other-dir])(#$ . 23520) nil 3])
#@38 Create a directory called DIRECTORY.
(defalias 'dired-create-directory #[(directory) #@138 ("АБ\n!!Д!€Е!€Ж )‡" . [directory-file-name expand-file-name directory expanded make-directory dired-add-file dired-move-to-filename])(#$ . 23819) nil 3 (#$ . 23727) (list (read-file-name "Create directory: " (dired-current-directory)))])
(defalias 'dired-into-dir-with-symlinks #[(target) #@62 ("А	!…\n0В	!?‡" . [file-directory-p target file-symlink-p])(#$ . 24117) nil 2])
#@361 Copy all marked (or next ARG) files, or copy the current file.
This normally preserves the last-modified date when copying.
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.
(defalias 'dired-do-copy #[(&optional arg) #@145 ("АБВѓ0Д‚\f0Е%‡" . [dired-do-create-files copy dired-copy-file dired-copy-preserve-time "Copy [-p]" "Copy" arg dired-keep-marker-copy])(#$ . 24615) nil 6 (#$ . 24205) "P"])
#@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.
(defalias 'dired-do-symlink #[(&optional arg) #@108 ("АБВГ\f%‡" . [dired-do-create-files symlink make-symbolic-link "Symlink" arg dired-keep-marker-symlink])(#$ . 25163) nil 6 (#$ . 24803) "P"])
#@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.
(defalias 'dired-do-hardlink #[(&optional arg) #@109 ("АБВГ\f%‡" . [dired-do-create-files hardlink add-name-to-file "Hardlink" arg dired-keep-marker-hardlink])(#$ . 25671) nil 6 (#$ . 25314) "P"])
#@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.
(defalias 'dired-do-rename #[(&optional arg) #@111 ("АБВГ\fЖ&‡" . [dired-do-create-files move dired-rename-file "Move" arg dired-keep-marker-rename "Rename"])(#$ . 26058) nil 7 (#$ . 25823) "P"])
(defalias 'dired-do-create-files-regexp #[(file-creator operation arg regexp newname &optional whole-path marker-char) #@1015 ("АБ\n\"‰GЖPИЙ——#\nѓ_0М‚ 0НБР%.‡" . [dired-get-marked-files nil arg fn-list fn-count operation " `%s' to `%s'?" operation-prompt 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." rename-regexp-help-form whole-path #[(from) "А	\n#\f‰ѓ0ЗИ	\n$…$0‚$0КЛ\f\n	$*‡" [dired-string-replace-match regexp from newname rename-regexp-help-form help-form to dired-query rename-regexp-query operation-prompt dired-log "%s: %s did not match regexp %s\n" operation] 6] #[(from) "А	В!\f#‰…0ЖЗ!\"	\nѓ10ЛМО!О!$…:0‚:0ПРВ!	$+‡" [dired-string-replace-match regexp file-name-nondirectory from newname new expand-file-name file-name-directory to rename-regexp-help-form help-form dired-query rename-regexp-query operation-prompt dired-make-relative dired-log "%s: %s did not match regexp %s\n" operation] 7] regexp-name-constructor rename-regexp-query dired-create-files file-creator marker-char])(#$ . 26332) nil 7])
(defalias 'dired-mark-read-regexp #[(operation) #@234 ("А	!Вљ‰?…\f0	Еѓ0Ж‚0ЗЙQ!\nЛѓ'0Ж‚(0ЗМ\nН°!\n\fF,‡" . [prefix-numeric-value current-prefix-arg 0 whole-path arg dired-read-regexp "Path " "" operation " from (regexp): " regexp read-string " " " to: " newname])(#$ . 27421) nil 7])
#@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 \=\<n> 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.
(defalias 'dired-do-rename-regexp #[(regexp newname &optional arg whole-path) #@135 ("АБВ\f&‡" . [dired-do-create-files-regexp dired-rename-file "Rename" arg regexp newname whole-path dired-keep-marker-rename])(#$ . 28206) nil 8 (#$ . 27681) (dired-mark-read-regexp "Rename")])
#@103 Copy all marked files containing REGEXP to NEWNAME.
See function `dired-rename-regexp' for more info.
(defalias 'dired-do-copy-regexp #[(regexp newname &optional arg whole-path) #@179 ("АБ\nѓ\n0Г‚0Д	&‡" . [dired-do-create-files-regexp dired-copy-file dired-copy-preserve-time "Copy [-p]" "Copy" arg regexp newname whole-path dired-keep-marker-copy])(#$ . 28599) nil 8 (#$ . 28414) (dired-mark-read-regexp "Copy")])
#@107 Hardlink all marked files containing REGEXP to NEWNAME.
See function `dired-rename-regexp' for more info.
(defalias 'dired-do-hardlink-regexp #[(regexp newname &optional arg whole-path) #@138 ("АБВ\f&‡" . [dired-do-create-files-regexp add-name-to-file "HardLink" arg regexp newname whole-path dired-keep-marker-hardlink])(#$ . 29042) nil 8 (#$ . 28849) (dired-mark-read-regexp "HardLink")])
#@106 Symlink all marked files containing REGEXP to NEWNAME.
See function `dired-rename-regexp' for more info.
(defalias 'dired-do-symlink-regexp #[(regexp newname &optional arg whole-path) #@138 ("АБВ\f&‡" . [dired-do-create-files-regexp make-symbolic-link "SymLink" arg regexp newname whole-path dired-keep-marker-symlink])(#$ . 29446) nil 8 (#$ . 29255) (dired-mark-read-regexp "SymLink")])
(defalias 'dired-create-files-non-directory #[(file-creator basename-constructor operation arg) #@508 ("АВ\fЕА\"З%)‡" . [nil rename-non-directory-query dired-create-files file-creator operation dired-get-marked-files arg #[(from) "А	!\nГ	!!PЕЖ——#ЙКЛPМ	!М\f!$)…'0\f)‡" [file-name-directory from basename-constructor file-name-nondirectory to 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." operation help-form dired-query rename-non-directory-query " `%s' to `%s'" dired-make-relative] 6] dired-keep-marker-rename])(#$ . 29754) nil 6])
(defalias 'dired-rename-non-directory #[(basename-constructor operation arg) #@105 ("АБ\n\f$‡" . [dired-create-files-non-directory dired-rename-file basename-constructor operation arg])(#$ . 30365) nil 5])
#@54 Rename all marked (or next ARG) files to upper case.
(defalias 'dired-upcase #[(&optional arg) #@70 ("АБВ#‡" . [dired-rename-non-directory upcase "Rename upcase" arg])(#$ . 30596) nil 4 (#$ . 30495) "P"])
#@54 Rename all marked (or next ARG) files to lower case.
(defalias 'dired-downcase #[(&optional arg) #@74 ("АБВ#‡" . [dired-rename-non-directory downcase "Rename downcase" arg])(#$ . 30811) nil 4 (#$ . 30708) "P"])
#@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.
(defalias 'dired-maybe-insert-subdir #[(dirname &optional switches no-error-if-not-dir-p) #@160 ("`Б\n!„0Д\n!„0Е\n#€З!)‡" . [opoint file-name-as-directory dirname switches dired-goto-subdir dired-insert-subdir no-error-if-not-dir-p push-mark])(#$ . 31456) nil 4 (#$ . 30928) (list (dired-get-filename) (if current-prefix-arg (read-string "Switches for listing: " dired-actual-switches)))])
#@404 Insert this subdirectory into the same dired buffer.
If it is already present, overwrites previous entry,
  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.
(defalias 'dired-insert-subdir #[(dirname &optional switches no-error-if-not-dir-p) #@634 ("АБ\n!!Г\n\f\"€„0Ж\n!„0ЗИ\n\"€Й\n\n\"Л‰‰‰\f\f…50СТ\f\"‰ѓA0У\nФ\"ѓR0Х!¤‚V0Ц\n!€Ч\nШ\n\f\"#€ѓh0Щ €Ъ\n!€ЉЫ!.‡" . [file-name-as-directory expand-file-name dirname dired-insert-subdir-validate switches no-error-if-not-dir-p file-directory-p error "Attempt to insert a non-directory: %s" assoc dired-subdir-alist nil buffer-read-only case-fold-search mark-alist switches-have-R elt 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-initial-position dired-mark-remembered])(#$ . 32262) nil 6 (#$ . 31768) (list (dired-get-filename) (if current-prefix-arg (read-string "Switches for listing: " dired-actual-switches)))])
(defalias 'dired-insert-subdir-validate #[(dirname &optional switches) #@338 ("А	В!\"„0ДЕ	\"€…0ЗЙКЛ\")‡" . [dired-in-this-tree dirname expand-file-name default-directory error "%s: not in this directory tree" switches nil case-fold-search mapcar #[(x) "А	\n\"?А	\"?=†0ДЕ	\"‡" [string-match x switches dired-actual-switches error "Can't have dirs with and without -%s switches together"] 4] ("F" "b")])(#$ . 33119) nil 4])
(defalias 'dired-alist-add #[(dir new-marker) #@70 ("А	\n\"€Г ‡" . [dired-alist-add-1 dir new-marker dired-alist-sort])(#$ . 33528) nil 3])
(defalias 'dired-alist-sort #[nil #@104 ("А	В\"‰‡" . [sort dired-subdir-alist #[(elt1 elt2) "А	!А\n!V‡" [dired-get-subdir-min elt1 elt2] 3]])(#$ . 33658) nil 3])
(defalias 'dired-kill-tree #[(dirname &optional remember-marks) #@216 ("А	!\nГ‰ѓ70@@A	„0З	\"ѓ0И!ѓ0Й\n!\f¤‚0\f+‡" . [expand-file-name dirname dired-subdir-alist nil m-alist dir s-alist dired-in-this-tree dired-goto-subdir dired-kill-subdir remember-marks])(#$ . 33852) nil 3 nil "DKill tree below directory: "])
(defalias 'dired-insert-subdir-newpos #[(new-dir) #@208 ("Б‰‰‰ѓ30@A@З!И\f	\"ѓ0К!Б‰„0\nb€-m„>0Лy€Мc€`‡" . [dired-subdir-alist nil new-pos pos dir elt alist dired-get-subdir-min dired-tree-lessp new-dir dired-get-subdir-max -1 "\n"])(#$ . 34179) nil 6])
(defalias 'dired-insert-subdir-del #[(element) #@125 ("А	!‰b€Г b€m„0Дu€Е\n`\"\n`|€)‡" . [dired-get-subdir-min element begin-marker dired-subdir-max -1 dired-remember-marks])(#$ . 34460) nil 4])
(defalias 'dired-insert-subdir-doinsert #[(dirname switches) #@451 ("`АГД\"€†0ЗИЙ\n#\nЛ\f!@@љѓ)0Н!€‚;0`Р\nАС$€Т`\"€))ГУ\"€Ф Х\n	Ц#€\nb€Ч!€\nШ	!D	А‰“€*‡" . [nil end begin message "Reading directory %s..." dirname switches dired-replace-in-string "R" "" dired-actual-switches reverse dired-subdir-alist dired-readin-insert dired-directory opoint insert-directory t dired-insert-set-properties "Reading directory %s...done" point-marker indent-rigidly 2 dired-insert-headerline marker-position])(#$ . 34672) nil 5])
(defalias 'dired-insert-subdir-doupdate #[(dirname elt beg-end) #@185 ("ѓ0Б!В Г“€‚0ДВ \"€…40Љ@A@‰	b€Њ	}€КЖ!,‡" . [elt dired-get-subdir-min point-marker nil dired-alist-add dirname dired-after-readin-hook beg-end end begin run-hooks])(#$ . 35213) nil 4])
(defalias 'dired-tree-lessp #[(dir1 dir2) #@252 ("А	!А\n!ГД	\"ГД\n\"ѓ00ѓ00@@љѓ00AA‚0@@‰ѓJ0ѓJ0™‚m0„X0„X0Й‚m0„a0К‚m0„j0Й‚m0ЛМ!,‡" . [file-name-as-directory dir1 dir2 dired-split "/" components-2 components-1 c2 c1 nil t error "This can't happen"])(#$ . 35466) 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) #@188 ("А	\n\"\nДOCЖ…0Д•‰ѓJ0	Ёѓ(0	WѓJ0А	\n#ѓJ0Д”T\nOBД•‰‚0	ЁѓX0	Wѓe0ѓe0\nКOBџ,‡" . [string-match pat str start 0 result 1 count end limit nil])(#$ . 36084) nil 5 (#$ . 35744)])
#@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) #@70 ("А	[\n#‡" . [dired-next-subdir arg no-error-if-not-found no-skip])(#$ . 36522) nil 4 (#$ . 36311) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) (if (dired-get-subdir) 1 0)))])
(defalias 'dired-subdir-min #[nil #@77 ("ЉАБВ‰#„0ГД!‚0`)‡" . [dired-prev-subdir 0 t error "Not in a subdir!"])(#$ . 36765) 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) #@129 ("А	!В	\"‰…0Е\f!b…0ЖЗw€`)‡" . [file-name-as-directory dir assoc dired-subdir-alist elt dired-get-subdir-min "^\n" nil])(#$ . 37074) nil 4 (#$ . 36868) (byte-code "АБВДЕЖ %!CЗ €‡" [expand-file-name completing-read "Goto in situ directory: " dired-subdir-alist nil t dired-current-directory push-mark] 7)])
#@37 Mark all files except `.' and `..'.
(defalias 'dired-mark-subdir-files #[nil #@88 ("А В	Г \")‡" . [dired-subdir-min p-min dired-mark-files-in-region dired-subdir-max])(#$ . 37477) nil 3 (#$ . 37394) nil])
#@72 Remove all lines of current subdirectory.
Lower levels are unaffected.
(defalias 'dired-kill-subdir #[(&optional remember-marks) #@291 ("А Б В‰З ‰љѓ0ЙК!€…#0М\"|€mѓ00НО!€П!€,‡" . [dired-subdir-min dired-subdir-max nil cur-dir buffer-read-only end beg dired-current-directory default-directory error "Attempt to kill top level directory" remember-marks dired-remember-marks delete-char -1 dired-unsubdir])(#$ . 37743) nil 5 (#$ . 37607) nil])
(defalias 'dired-unsubdir #[(dir) #@57 ("АБ\n\"\"‰‡" . [delq assoc dir dired-subdir-alist])(#$ . 38110) nil 4])
#@37 Go up ARG levels in the dired tree.
(defalias 'dired-tree-up #[(arg) #@189 ("А \nГYѓ0\nSДЕ	!!‚0Ж	!†_0ЗИ	\")‡" . [dired-current-directory dir arg 1 file-name-directory directory-file-name dired-goto-subdir error "Cannot go up to %s - not in this tree."])(#$ . 38268) nil 3 (#$ . 38192) "p"])
#@28 Go down in the dired tree.
(defalias 'dired-tree-down #[nil #@254 ("А Б‰Е!Бѓ60@AЙК@!\f\"ѓ0БЛ@!‚0*ѓ@0b‚C0МН!+‡" . [dired-current-directory nil case-fold-search pos dir reverse dired-subdir-alist elt rest dired-in-this-tree directory-file-name dired-goto-subdir error "At the bottom"])(#$ . 38566) nil 3 (#$ . 38499) nil])
(defalias 'dired-unhide-subdir #[nil #@104 ("АВГ Д ЕЖ$)‡" . [nil buffer-read-only subst-char-in-region dired-subdir-min dired-subdir-max 13 10])(#$ . 38900) nil 5])
(defalias 'dired-hide-check #[nil #@100 ("†0БВ!‡" . [selective-display error "selective-display must be t for subdir hiding to work!"])(#$ . 39064) nil 2])
(defalias 'dired-subdir-hidden-p #[(dir) #@81 ("…0ЉБ\n!€ГД!)‡" . [selective-display dired-goto-subdir dir looking-at ""])(#$ . 39230) 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) #@341 ("А €	S‰ВY…P0Г Е\f!З\f\"	К	!SМО	!b€ПМw€ѓ?0Р`СТ$€‚G0Р`ТС$€-УФХ\"€‚0‡" . [dired-hide-check arg 0 dired-current-directory cur-dir dired-subdir-hidden-p hidden-p assoc dired-subdir-alist elt dired-get-subdir-max end-pos nil buffer-read-only dired-get-subdir-min "^\n" subst-char-in-region 13 10 dired-next-subdir 1 t])(#$ . 39540) nil 5 (#$ . 39337) "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 #[(arg) #@238 ("А €БЉeb€ГДБЕ#)ѓ0ЖedЗИ$‚M0d	\n\n…L0ЖМ\n@!Љb€Нy€`)ИЗ$€М\n@!\nA‰\n„'0Б*)‡" . [dired-hide-check nil buffer-read-only search-forward "" t subst-char-in-region 13 10 dired-subdir-alist alist pos dired-get-subdir-min -1])(#$ . 40156) nil 6 (#$ . 39924) "P"])
#@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) #@60 ("А	В\"‡" . [tags-search regexp (dired-get-marked-files)])(#$ . 40639) nil 3 (#$ . 40437) "sSearch marked files (regexp): "])
#@253 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] or ESC), you can resume the query replace
with the command \[tags-loop-continue].
(defalias 'dired-do-query-replace #[(from to &optional delimited) #@80 ("А	\nД$‡" . [tags-query-replace from to delimited (dired-get-marked-files)])(#$ . 41096) nil 5 (#$ . 40772) "sQuery replace in marked files (regexp): \nsQuery replace %s by: \nP"])
(provide (quote dired-aux))