;;; compiled by jimb@wookumz.gnu.ai.mit.edu on Wed May 26 23:13:55 1993
;;; from file /gd/gnu/emacs/19.0/lisp/dired.el
;;; emacs version 19.8.0.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(defvar dired-listing-switches "-al" "\
*Switches passed to `ls' for dired.  MUST contain the `l' option.
May contain all other options that don't contradict `-l';
may contain even `F', `b', `i' and `s'.")
(defvar dired-chown-program (byte-code "Б>ѓ В‡Г‡" [system-type (hpux dgux usg-unix-v silicon-graphics-unix) "chown" "/etc/chown"] 2) "\
Name of chown command (usully `chown' or `/etc/chown').")
(defvar dired-ls-F-marks-symlinks nil "\
*Informs dired about how `ls -lF' marks symbolic links.
Set this to t if `insert-directory-program' with `-lF' marks the symbolic link
itself with a trailing @ (usually the case under Ultrix).

Example: if `ln -s foo bar; ls -F bar' gives `bar -> foo', set it to
nil (the default), if it gives `bar@ -> foo', set it to t.

Dired checks if there is really a @ appended.  Thus, if you have a
marking `ls' program on one host and a non-marking on another host, and
don't care about symbolic links which really end in a @, you can
always set this variable to t.")
(defvar dired-trivial-filenames "^\\.\\.?$\\|^#" "\
*Regexp of files to skip when finding first file of a directory.
A value of nil means move to the subdir line.
A value of t means move to first file.")
(defvar dired-keep-marker-rename t "\
*Controls marking of renamed files.
If t, files keep their previous marks when they are renamed.
If a character, renamed files (whether previously marked or not)
are afterward marked with that character.")
(defvar dired-keep-marker-copy 67 "\
*Controls marking of copied files.
If t, copied files are marked if and as the corresponding original files were.
If a character, copied files are unconditionally marked with that character.")
(defvar dired-keep-marker-hardlink 72 "\
*Controls marking of newly made hard links.
If t, they are marked if and as the files linked to were marked.
If a character, new links are unconditionally marked with that character.")
(defvar dired-keep-marker-symlink 89 "\
*Controls marking of newly made symbolic links.
If t, they are marked if and as the files linked to were marked.
If a character, new links are unconditionally marked with that character.")
(defvar dired-dwim-target nil "\
*If non-nil, dired tries to guess a default target directory.
This means: if there is a dired buffer displayed in the next window,
use its current subdir, instead of the current subdir of this dired buffer.

The target is used in the prompt for file copy, rename etc.")
(defvar dired-copy-preserve-time t "\
*If non-nil, Dired preserves the last-modified time in a file copy.
(This works on only some systems.)")
(defvar dired-load-hook nil "\
Run after loading dired.
You can customize key bindings or load extensions with this.")
(defvar dired-mode-hook nil "\
Run at the very end of dired-mode.")
(defvar dired-before-readin-hook nil "\
This hook is run before a dired buffer is read in (created or reverted).")
(defvar dired-after-readin-hook nil "\
Hook run after each time a file or directory is read by Dired.
After each listing of a file or directory, this hook is run
with the buffer narrowed to the listing.")
(defvar dired-marker-char 42 "\
In Dired, the current mark character.
This is what the `do' commands look for and what the `mark' commands store.")
(defvar dired-del-marker 68 "\
Character used to flag files for deletion.")
(defvar dired-shrink-to-fit t "\
Non-nil means Dired shrinks the display buffer to fit the marked files.")
(byte-code "АБ!„ ВВ‡" [boundp dired-flagging-regexp nil] 2)
(defvar dired-directory nil "\
The directory name or shell wildcard that was used as argument to `ls'.
Local to each dired buffer.  May be a list, in which case the car is the
directory name and the cdr is the actual files to list.")
(defvar dired-actual-switches nil "\
The value of `dired-listing-switches' used to make this buffer's text.")
(defvar dired-re-inode-size "[0-9 	]*" "\
Regexp for optional initial inode and file size as made by `ls -i -s'.")
(byte-code "АБ!„ ВАГ!„ ДАЕ!„ ЗQАИ!„) ЙQАК!„6 ЛМНО#\nАП!„? РА‡" [boundp dired-re-mark "^[^ \n]" dired-re-maybe-mark "^. " dired-re-dir dired-re-inode-size "d" dired-re-sym "l" dired-re-exe mapconcat #[(x) "	\nQ‡" [dired-re-maybe-mark dired-re-inode-size x] 3] ("-[-r][-w][xs][-r][-w].[-r][-w]." "-[-r][-w].[-r][-w][xs][-r][-w]." "-[-r][-w].[-r][-w].[-r][-w][xst]") "\\|" dired-re-dot "^.* \\.\\.?$"] 4)
(defvar dired-subdir-alist nil "\
Association list of subdirectories and their buffer positions.
Each subdirectory has an element: (DIRNAME . STARTMARKER).
The order of elements is the reverse of the order in the buffer.
In simple cases, this list contains one element.")
(defvar dired-subdir-regexp "^. \\([^ \n]+\\)\\(:\\)[\n]" "\
Regexp matching a maybe hidden subdirectory line in `ls -lR' output.
Subexpression 1 is the subdirectory proper, no trailing colon.
The match starts at the beginning of the line and ends after the end
of the line (\\n or \\r).
Subexpression 2 must end right before the \\n or \\r.")
(byte-code "АБM€ВГM‡" [dired-mark-if (macro . #[(predicate msg) "АБВГДЕЗИEEЙКЛЕНEОFЕПРCС#E&ТF‡" [let (buffer-read-only count) list save-excursion (setq count 0) if msg message "Marking %ss..." (goto-char (point-min)) while (not (eobp)) predicate (progn (delete-char 1) (insert dired-marker-char) (setq count (1+ count))) (forward-line 1) append (message "%s %s%s %s%s." count) ((dired-plural-s count) (if (eq dired-marker-char 32) "un" "") (if (eq dired-marker-char dired-del-marker) "flagged" "marked")) (and (> count 0) count)] 14]) dired-map-over-marks (macro . #[(body arg &optional show-progress) "АБВГГЕDЖЗИЙКГМEНОПОEEFDEГСТEУОFEФDFБХЦЧШЩЪГЫEНОПОEEDЬ#FГЭОФDFFFEЮE‡" [prog1 let (buffer-read-only case-fold-search found results) if arg integerp progn dired-repeat-over-lines function lambda nil show-progress (sit-for 0) setq results cons body < 0 (nreverse results) list ((regexp (dired-marker-regexp)) next-position) save-excursion (goto-char (point-min)) (setq next-position (and (re-search-forward regexp nil t) (point-marker)) found (not (null next-position))) append (while next-position (goto-char next-position)) (sit-for 0) ((goto-char next-position) (forward-line 1) (set-marker next-position nil) (setq next-position (and (re-search-forward regexp nil t) (point-marker)))) found (dired-move-to-filename)] 19])] 2)
(defalias 'dired-get-marked-files #[(&optional localp arg) "ЉАБ‰‰‰ѓ5 З!ѓ- ИЙ\"€КWѓ) А\n!‚Џ \n‚Џ Л!C‚Џ Н БЉeb€РБС#…K Т ‰??ѓЂ b€Л!\nBb€УФ!€ХБ\"€РБС#…z Т ‰„V )ѓ‰ \n‚Ћ Л!C*,Ц €!)‡" [nreverse nil results found case-fold-search buffer-read-only arg integerp dired-repeat-over-lines #[nil "А	!\nB‰‡" [dired-get-filename localp results] 2] 0 dired-get-filename localp dired-marker-regexp next-position regexp re-search-forward t point-marker forward-line 1 set-marker dired-move-to-filename] 6 "\
Return the marked files' names as list of strings.
The list is in the same order as the buffer, that is, the car is the
  first marked file.
Values returned are normally absolute pathnames.
Optional arg LOCALP as in `dired-get-filename'.
Optional second argument ARG forces to use other files.  If ARG is an
  integer, use the next ARG files.  If ARG is otherwise non-nil, use
  current file.  Usually ARG comes from the current prefix arg."])
(fset (quote dired-read-dir-and-switches) #[(str) "А	…	 ВГ\"ЕЖЗ\"Й\nЙ$D!‡" [reverse current-prefix-arg read-string "Dired listing switches: " dired-listing-switches read-file-name format "Dired %s(directory): " str nil default-directory] 7])
(defalias 'dired #[(dirname &optional switches) "АБ\n\"!‡" [switch-to-buffer dired-noselect dirname switches] 4 "\
\"Edit\" directory DIRNAME--delete, rename, print, etc. some files in it.
Optional second argument SWITCHES specifies the `ls' options used.
(Interactively, use a prefix argument to be able to specify SWITCHES.)
Dired displays a list of files in DIRNAME (which may also have
shell wildcards appended to select certain files).  If DIRNAME is a cons,
its first element is taken as the directory name and the resr as an explicit
list of files to make directory entries for.
\\<dired-mode-map>You can move around in it with the usual commands.
You can flag files for deletion with \\[dired-flag-file-deletion] and then
delete them by typing \\[dired-do-flagged-delete].
Type \\[describe-mode] after entering dired for more info.

If DIRNAME is already in a dired buffer, that buffer is used without refresh." (dired-read-dir-and-switches "")])
(defalias 'dired-other-window #[(dirname &optional switches) "АБ\n\"!‡" [switch-to-buffer-other-window dired-noselect dirname switches] 4 "\
\"Edit\" directory DIRNAME.  Like `dired' but selects in another window." (dired-read-dir-and-switches "in other window ")])
(defalias 'dired-other-frame #[(dirname &optional switches) "АБ\n\"!‡" [switch-to-buffer-other-frame dired-noselect dirname switches] 4 "\
\"Edit\" directory DIRNAME.  Like `dired' but makes a new frame." (dired-read-dir-and-switches "in other frame ")])
(defalias 'dired-noselect #[(dir-or-list &optional switches) "„ 	В:ѓ @‚ ДЕ!!Ж!ѓ% З!:ѓ2 AB‚4 И	\")‡" [dir-or-list default-directory nil dirname expand-file-name directory-file-name file-directory-p file-name-as-directory dired-internal-noselect switches] 3 "\
Like `dired' but returns the dired buffer as value, does not select it."])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПM€РСM€ТУM€ФХM€ЦЧM‡" [dired-internal-noselect #[(dir-or-list &optional switches) ":ѓ\n @‚ В!‰?p„# ЖИЙ	!!)q€„7 \nѓn Л\n!€‚n М	!ѓA 	‚D Н	!\n„O \nР	\n\"€СУЋФ\"€Х*ЦЧ!€eb€Ш	!€q€,‡" [dir-or-list dirname dired-find-buffer-nocreate buffer new-buffer-p old-buf fundamental-mode default-major-mode create-file-buffer directory-file-name switches dired-sort-other file-directory-p file-name-directory default-directory dired-listing-switches dired-mode t failed ((byte-code "ѓ Б\n!€Б‡" [failed kill-buffer buffer] 2)) dired-readin nil run-hooks dired-after-readin-hook dired-initial-position] 4] dired-find-buffer-nocreate #[(dirname) "АБ \nѓ, Љ\n@q€Е=ѓ% Ж\"ѓ% \n@А‚( \nA)‚ *‡" [nil buffer-list blist found major-mode dired-mode equal dired-directory dirname] 3] dired-readin #[(dir-or-list buffer) "А\n:ѓ \n@‚ \nГ	!\n:ѓ 	\nABДЕ!€ЉЖЗ	\"€q€АЙ\nМ €Н €О\n!€ПedР#€eb€С!€*ЖУ	\"€ФА!€ХЦ!АL€Ч *‡" [nil dirname dir-or-list expand-file-name run-hooks dired-before-readin-hook message "Reading directory %s..." buffer t failed buffer-read-only widen erase-buffer dired-readin-insert indent-rigidly 2 dired-insert-headerline default-directory "Reading directory %s...done" set-buffer-modified-p make-local-variable dired-subdir-alist dired-build-subdir-alist] 4] dired-readin-insert #[(dir-or-list) "А\n:ѓ \n@‚ \nГ	\"ѓ  Е\nАЗ$‚D ИЙК	!!!„1 ЛМ	\"‚D Е\nЗ#€Љeb€НОП	!Р#))‡" [nil dirname dir-or-list equal default-directory dired-insert-directory dired-actual-switches t file-readable-p directory-file-name file-name-directory error "Directory %s inaccessible or nonexistent" insert "wildcard " file-name-nondirectory "\n"] 5] dired-insert-directory #[(dir-or-list switches &optional wildcard full-p) ":ѓ БВA\"€‚ Г$€‰‡" [dir-or-list mapcar #[(x) "А	\n$‡" [insert-directory x switches wildcard full-p] 5] insert-directory switches wildcard full-p dired-directory] 5] dired-insert-headerline #[(dir) "ЉАБВ!Д#)‡" [insert "  " directory-file-name dir ":\n"] 4] dired-revert #[(&optional arg noconfirm) "А €`БВГ\"ВД Е!AВ‰	\neb€Оed\"П:ѓ6 @‚8 !€Сp\"€ВУ	!€)Ф!€ХТ!€ѓ^ Ц!„b b€Ч €ЉШЩ\n\".‡" [widen dired-get-filename nil t dired-remember-hidden reverse dired-subdir-alist buffer-read-only case-fold-search old-subdir-alist hidden-subdirs mark-alist ofile opoint dired-remember-marks dired-uncache dired-directory dired-readin dired-after-readin-hook dired-insert-old-subdirs dired-mark-remembered run-hooks dired-goto-file dired-move-to-filename mapcar #[(dir) "А	!…	 ВГ!‡" [dired-goto-subdir dir dired-hide-subdir 1] 2]] 7] dired-remember-marks #[(beg end) "ѓ БГЖЗ$€)Б‰‰	\nЉb€ЛН#ѓ> ОБН\"‰\nѓ h	\n	BB‚ )+‡" [selective-display nil buffer-read-only subst-char-in-region beg end 13 10 alist chr fil re-search-forward dired-re-mark t dired-get-filename] 5] dired-mark-remembered #[(alist) "А‰‰…, @A@AЕ\n!ѓ ЉЖЗ!€ИЙ!€	c€)‚ +‡" [nil chr fil elt alist dired-goto-file forward-line 0 delete-char 1] 3] dired-remember-hidden #[nil "Б‰‰ѓ+ @@@AAb€ЖЗ!€gИ=ѓ \nB‚ \n,‡" [dired-subdir-alist nil result pos dir l skip-chars-forward "^\n" 13] 4] dired-insert-old-subdirs #[(old-subdir-alist) "АБ\n\"†% Г‰…$ @A@ГЗИЏ€‚ *‡" [string-match "R" dired-actual-switches nil dir elt old-subdir-alist (byte-code "А	!€В	!‡" [dired-uncache dir dired-insert-subdir] 2) ((error))] 3] dired-uncache #[(dir) "А	!‰… \nГ	\")‡" [find-file-name-handler dir handler dired-uncache] 4]] 2)
(defvar dired-mode-map nil "\
Local keymap for dired-mode buffers.")
(byte-code "„hБВГ\"€Д Е!€ЖЗИ#€ЖЙК#€ЖЛМ#€ЖНО#€ЖПР#€ЖСТ#€ЖУФ#€ЖХЦ#€ЖЧШ#€ЖЩЪ#€ЖЫЬ#€ЖЭЮ#€ЖЯа#€Жбв#€Жгд#€Жеж#€Жзи#€Жйк#€Жлм#€Жнк#€Жоп#€Жрс#€Жту#€Жфх#€Жцч#€Жшщ#€Жъы#€Жьэ#€Жюя#€БЃ@ ЃA  \"€ЖЃB Ѓ@ #€ЖЃC ЃD #€ЖЃE ЃF #€ЖЃG ЃH #€ЖЃI ЃJ #€ЖЃK ЃL #€ЖЃM ЃN #€ЖЃO ЃP #€ЖЃQ ЃL #€ЖЃR ЃS #€ЖЃT ЃU #€ЖЃV ЃW #€ЖЃX Г#€ЖЃY В#€ЖЃZ Ѓ[ #€ЖЃ\\ Ѓ] #€ЖЃ^ Ѓ_ #€ЖЃ` Ѓa #€ЖЃb Ѓc #€ЖЃd Ѓe #€ЖЃf Ѓg #€ЖЃh Ѓi #€ЖЃj Ѓk #€ЖЃl Ѓm #€ЖЃn Ѓo #€ЖЃp Ѓq #€ЖЃr Ѓs #€ЖЃt Ѓu #€ЖЃv Ѓw #€ЖЃx Ѓy #€ЖЃz Ѓ{ #€ЖЃ| Ѓ} #€ЖЃ~ Ѓ #€ЖЃЂ Ѓg #€ЖЃЃ Ѓg #€ЖЃ‚ Ѓm #€ЖЃѓ Ѓ„ #€ЖЃ… Ѓ† #€ЖЃ‡ Ѓ€ #€ЖЃ‰ ЃЉ #€ЖЃ‹ ЃЊ #€ЖЃЌ ЃЊ #€ЃЋ ЃЏ ђ\"„|Ѓ‘ ђBђЃ’ Ѓ“ Ѓ” Ѓ• #‡" [dired-mode-map defalias dired-advertised-find-file dired-find-file make-keymap suppress-keymap define-key "#" dired-flag-auto-save-files "*" dired-mark-executables "." dired-clean-directory "/" dired-mark-directories "@" dired-mark-symlinks "~" dired-flag-backup-files "C" dired-do-copy "B" dired-do-byte-compile "D" dired-do-delete "G" dired-do-chgrp "H" dired-do-hardlink "L" dired-do-load "M" dired-do-chmod "O" dired-do-chown "P" dired-do-print "R" dired-do-rename "S" dired-do-symlink "X" dired-do-shell-command "Z" dired-do-compress "!" "=" dired-diff "Ѕ" dired-backup-diff "я" dired-unmark-all-files "„" dired-tree-down "•" dired-tree-up "Ћ" dired-next-subdir "ђ" dired-prev-subdir "ы" dired-prev-marked-file "э" dired-next-marked-file dired-regexp-prefix make-sparse-keymap "%" "%u" dired-upcase "%l" dired-downcase "%d" dired-flag-files-regexp "%m" dired-mark-files-regexp "%r" dired-do-rename-regexp "%C" dired-do-copy-regexp "%H" dired-do-hardlink-regexp "%R" "%S" dired-do-symlink-regexp "c" dired-change-marks "d" dired-flag-file-deletion "e" "f" "g" revert-buffer "h" describe-mode "i" dired-maybe-insert-subdir "k" dired-do-kill-lines "l" dired-do-redisplay "m" dired-mark "n" dired-next-line "o" dired-find-file-other-window "" dired-display-file "p" dired-previous-line "q" dired-quit "s" dired-sort-toggle-or-edit "u" dired-unmark "v" dired-view-file "x" dired-do-flagged-delete "+" dired-create-directory "<" dired-prev-dirline ">" dired-next-dirline "^" dired-up-directory " " "" "" "$" dired-hide-subdir "¤" dired-hide-all "?" dired-summary "" dired-unmark-backward "" dired-undo "u" member (dired-sort-mode dired-sort-mode) minor-mode-alist (dired-sort-mode dired-sort-mode) put dired-mode mode-class special] 4)
(defalias 'dired-mode #[(&optional dirname switches) "А €Б\n!€Г €ДЖИ	ККНПР!СL€ПТ!УL€ПФ!†1 L€ПЧ!L€ПШ!†D L€ПЫ!€ЬК\"€ЭЮ!‡" [kill-all-local-variables use-local-map dired-mode-map dired-advertise dired-mode major-mode "Dired" mode-name nil case-fold-search t buffer-read-only selective-display ("Dired: %17b") mode-line-buffer-identification make-local-variable revert-buffer-function dired-revert page-delimiter "\n\n" dired-directory dirname default-directory list-buffers-directory dired-actual-switches switches dired-listing-switches dired-sort-mode dired-sort-other run-hooks dired-mode-hook] 3 "\
Mode for \"editing\" directory listings.
In dired, you are \"editing\" a list of the files in a directory and
  (optionally) its subdirectories, in the format of `ls -lR'.
  Each directory is a page: use \\[backward-page] and \\[forward-page] to move pagewise.
\"Editing\" means that you can run shell commands on files, visit,
  compress, load or byte-compile them, change their file attributes
  and insert subdirectories into the same buffer.  You can \"mark\"
  files for later commands or \"flag\" them for deletion, either file
  by file or all files matching certain criteria.
You can move using the usual cursor motion commands.\\<dired-mode-map>
Letters no longer insert themselves.  Digits are prefix arguments.
Instead, type \\[dired-flag-file-deletion] to flag a file for Deletion.
Type \\[dired-mark] to Mark a file or subdirectory for later commands.
  Most commands operate on the marked files and use the current file
  if no files are marked.  Use a numeric prefix argument to operate on
  the next ARG (or previous -ARG if ARG<0) files, or just `1'
  to operate on the current file only.  Prefix arguments override marks.
  Mark-using commands display a list of failures afterwards.  Type \\[dired-summary]
  to see why something went wrong.
Type \\[dired-unmark] to Unmark a file or all files of a subdirectory.
Type \\[dired-unmark-backward] to back up one line and unflag.
Type \\[dired-do-flagged-delete] to eXecute the deletions requested.
Type \\[dired-advertised-find-file] to Find the current line's file
  (or dired it in another buffer, if it is a directory).
Type \\[dired-find-file-other-window] to find file or dired directory in Other window.
Type \\[dired-maybe-insert-subdir] to Insert a subdirectory in this buffer.
Type \\[dired-do-rename] to Rename a file or move the marked files to another directory.
Type \\[dired-do-copy] to Copy files.
Type \\[dired-sort-toggle-or-edit] to toggle sorting by name/date or change the `ls' switches.
Type \\[revert-buffer] to read all currently expanded directories again.
  This retains all marks and hides subdirs again that were hidden before.
SPC and DEL can be used to move down and up by lines.

If dired ever gets confused, you can either type \\[revert-buffer] to read the
directories again, type \\[dired-do-redisplay] to relist a single or the marked files or a
subdirectory, or type \\[dired-build-subdir-alist] to parse the buffer
again for the directory tree.

Customization variables (rename this buffer and type \\[describe-variable] on each line
for more info):

  dired-listing-switches
  dired-trivial-filenames
  dired-shrink-to-fit
  dired-marker-char
  dired-del-marker
  dired-keep-marker-rename
  dired-keep-marker-copy
  dired-keep-marker-hardlink
  dired-keep-marker-symlink

Hooks (use \\[describe-variable] to see their documentation):

  dired-before-readin-hook
  dired-after-readin-hook
  dired-mode-hook
  dired-load-hook

Keybindings:
\\{dired-mode-map}"])
(defalias 'dired-quit #[nil "А ‡" [bury-buffer] 1 "\
Bury the current dired buffer." nil])
(defalias 'dired-summary #[nil "А €БВ!‡" [dired-why message "d-elete, u-ndelete, x-punge, f-ind, o-ther window, r-ename, C-opy, h-elp"] 2 "\
Summarize basic Dired commands and show recent Dired errors." nil])
(defalias 'dired-undo #[nil "АВ )‡" [nil buffer-read-only undo] 1 "\
Undo in a dired buffer.
This doesn't recover lost files, it just undoes changes in the buffer itself.
You can use it to recover marks, killed lines or subdirs.
In the latter case, you have to do \\[dired-build-subdir-alist] to
parse the buffer again." nil])
(defalias 'dired-next-line #[(arg) "А	!€В ‡" [next-line arg dired-move-to-filename] 2 "\
Move down lines then position at filename.
Optional prefix ARG says how many lines to move; default is one line." "p"])
(defalias 'dired-previous-line #[(arg) "А	!€В ‡" [previous-line arg dired-move-to-filename] 2 "\
Move up lines then position at filename.
Optional prefix ARG says how many lines to move; default is one line." "p"])
(defalias 'dired-next-dirline #[(arg &optional opoint) "„ `	ВVѓ ГЕЖ	$‚  ЗВ!€ИЕЖ	[$ѓ& Й ‡b€КЛ!‡" [opoint arg 0 re-search-forward dired-re-dir nil t forward-line re-search-backward dired-move-to-filename error "No more subdirectories"] 5 "\
Goto ARG'th next directory file line." "p"])
(defalias 'dired-prev-dirline #[(arg) "А	[!‡" [dired-next-dirline arg] 2 "\
Goto ARG'th previous directory file line." "p"])
(defalias 'dired-up-directory #[nil "А ВГ	!!ЕГ	!!†$ Aѓ З!†$ И!€Е	!*‡" [dired-current-directory dir file-name-directory directory-file-name up dired-goto-file dired-subdir-alist dired-goto-subdir dired] 3 "\
Run dired on parent directory of current directory.
Find the parent directory either in this buffer or another buffer.
Creates a buffer if necessary." nil])
(defalias 'dired-find-file #[nil "АБВ Г\"!‡" [find-file file-name-sans-versions dired-get-filename t] 4 "\
In dired, visit the file or directory named on this line." nil])
(defalias 'dired-view-file #[nil "АБ !ѓ \nAѓ ГБ !† ДБ !‡ЕБ !‡" [file-directory-p dired-get-filename dired-subdir-alist dired-goto-subdir dired view-file] 2 "\
In dired, examine a file in view mode, returning to dired when done.
When file is a directory, show it in this buffer if it is inserted;
otherwise, display it in another buffer." nil])
(defalias 'dired-find-file-other-window #[nil "АБВ Г\"!‡" [find-file-other-window file-name-sans-versions dired-get-filename t] 4 "\
In dired, visit this file or directory in another window." nil])
(defalias 'dired-display-file #[nil "АБ В\"ДЕ!!)‡" [file-name-sans-versions dired-get-filename t file display-buffer find-file-noselect] 3 "\
In dired, display this file or directory in another window." nil])
(defalias 'dired-get-filename #[(&optional localp no-error-if-not-filep) "А‰‰‰ЉЕ?!‰ѓ З!)\n…% 	…% И\n	\"‰ѓA ЙК\"ѓA МНОПР#†= НQ!Т=ѓL ‚V …V У!P,‡" [nil p2 p1 file case-fold-search dired-move-to-filename no-error-if-not-filep dired-move-to-end-of-filename buffer-substring string-match "b" dired-actual-switches read "\"" dired-string-replace-match "\\([^\\]\\)\"" "\\1\\\\\"" localp no-dir dired-current-directory] 6 "\
In dired, return name of file mentioned on this line.
Value returned normally includes the directory name.
Optional arg LOCALP with value `no-dir' means don't include directory
  name in result.  A value of t means construct name relative to
  `default-directory', which still may contain slashes if in a subdirectory.
Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on
  this line, otherwise an error occurs."])
(byte-code "АБM€ВГM€ДЕM€ЖЗM‡" [dired-make-absolute #[(file &optional dir) "† 	\nP‡" [dir default-directory file] 2] dired-make-relative #[(file &optional dir no-error) "„ 	ВГД!P\"ѓ ЖЗ!ИO‡	ѓ ‡КЛ#‡" [dir default-directory string-match "^" regexp-quote file match-end 0 nil no-error error "%s: not in directory tree growing at %s"] 4] dired-move-to-filename #[(&optional raise-error eol) "„	 Б €`ВГ!€ДЕЖ#ѓ% ЗИ!€ЗЙ\"€ЗИ\"€`‡\n…- ЛМ!‡" [eol end-of-line forward-line 0 re-search-forward "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)[ ]+[0-9]+" t skip-chars-forward " " "^ " raise-error error "No file on this line"] 4] dired-move-to-end-of-filename #[(&optional no-error) "А‰‰‰‰‰‰‰ЙК\"`ЉМ €`)…/ ЉОП	Р#)‰„і ЉСТАР#ѓl УФ!f‰Х=\n…g ЙЦЧУШ!ЩШ!\"ЧУЪ!ЩЪ!\"ЧУЫ!ЩЫ!\"Q\"‚u „u ЭЮ!€)ѓњ ОЯ	Р#ѓі аб!€\nѓі \"ѓі hг=ѓі ад!€‚і 	b€\nѓі е>„Ї ѓі ад!€„Н `=ѓН ЭѓК жз!‚Л Ю!€`=?…Ц `.‡" [nil eol used-F case-fold-search hidden symlink executable file-type opoint string-match "F" dired-actual-switches end-of-line selective-display search-forward "" t re-search-backward "\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)" match-beginning 1 108 "[xst]" buffer-substring 2 match-end 3 4 no-error error "No file on this line" " ->" forward-char -3 dired-ls-F-marks-symlinks 64 -1 (100 115) substitute-command-keys "File line is hidden, type \\[dired-hide-subdir] to unhide"] 9]] 2)
(defvar dired-buffers nil "\
Alist of directories and their associated dired buffers.")
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МНО\"€ПРM€СТM€УФM‡" [dired-buffers-for-dir #[(dir) "А	!\nГ‰‰ѓK @З	@\"ѓB AЙ!ѓ< К	Љq€)\"ѓA B‚A М\n\")A‰„ +‡" [file-name-as-directory dir dired-buffers nil elt result alist dired-in-this-tree buf buffer-name assoc dired-subdir-alist delq] 4] dired-advertise #[nil "pА	!>ѓ\n В‡	pBB‰‡" [dired-buffers-for-dir default-directory t dired-buffers] 3] dired-unadvertise #[(dir) "АБ\n\"\"‰‡" [delq assoc dir dired-buffers] 4] dired-in-this-tree #[(file dir) "АВГД!P\")‡" [nil case-fold-search string-match "^" regexp-quote dir file] 4] dired-normalize-subdir #[(dir) "АБ\n!ѓ \n‚ Г\n\"!‡" [file-name-as-directory file-name-absolute-p dir expand-file-name default-directory] 4] dired-get-subdir #[nil "ЉА ВГ!€`ДЕ	\"!ZГU… 	*‡" [dired-current-directory cur-dir forward-line 0 dired-get-subdir-min assoc dired-subdir-alist] 5] defalias dired-get-subdir-min cdr dired-get-subdir-max #[(elt) "ЉА	!b€В )‡" [dired-get-subdir-min elt dired-subdir-max] 2] dired-clear-alist #[nil "… БВ@!Г\"€A‰„ Г‡" [dired-subdir-alist set-marker dired-get-subdir-min nil] 4] dired-subdir-index #[(dir) "АБ\nѓ$ Ж@@\"ѓ АИ‚ AT‚ …) +‡" [nil 0 dired-subdir-alist alist index found string= dir t] 3]] 3)
(defalias 'dired-next-subdir #[(arg &optional no-error-if-not-found no-skip) "А Б‰Е!Z‰ЗY… И\n	8!‰ѓ/ b€\n„+ ЛМ!€`‚D ?…D ОПЗVѓB Р‚C С\"+‡" [dired-current-directory nil index pos this-dir dired-subdir-index arg 0 dired-get-subdir-min dired-subdir-alist no-skip skip-chars-forward "^\n" no-error-if-not-found error "%s directory" "Last" "First"] 5 "\
Go to next subdirectory, regardless of level." "p"])
(defalias 'dired-build-subdir-alist #[nil "А €ЉБeb€ГЕГЗ#ѓ2 \nTИЙКЛ!МЛ!\"ЉКБ!b€НБ!€О )\"€‚ \nЛVѓ= ПР\n\"€*‡" [dired-clear-alist 0 count nil dired-subdir-alist re-search-forward dired-subdir-regexp t dired-alist-add-1 buffer-substring match-beginning 1 match-end forward-line point-marker message "Buffer includes %d directories"] 5 "\
Build `dired-subdir-alist' by parsing the buffer.
Returns the new value of the alist." nil])
(byte-code "АБM€ВГM€ДЕM‡" [dired-alist-add-1 #[(dir new-marker) "А	!\nBB‰‡" [dired-normalize-subdir dir new-marker dired-subdir-alist] 2] dired-goto-next-nontrivial-file #[nil "А €	;…' m?…' В	ГДЕЖ\"† З!\"…' ИЙ!€К €‚ ‡" [dired-goto-next-file dired-trivial-filenames string-match file-name-nondirectory dired-get-filename nil t "" forward-line 1 dired-move-to-filename] 6] dired-goto-next-file #[nil "А SВ ?… `	W… ГД!€‚ )‡" [dired-subdir-max max dired-move-to-filename forward-line 1] 2]] 2)
(defalias 'dired-goto-file #[(file) "А	!В‰‰Ж	!† ЗИ	\"ЉЙ\n\"ѓ# eb‚, Aѓ[ М!ѓ[ Н	!О „Z СТPУ#ѓZ ФХЦЧ\"\"ѓ8 Ш ‰ѓ< *)…b b+‡" [directory-file-name file nil dir case-fold-search found file-name-directory error "Need absolute pathname for %s" string= default-directory dired-subdir-alist dired-goto-subdir file-name-nondirectory dired-subdir-max boundary base search-forward " " move equal dired-get-filename no-dir t dired-move-to-filename] 6 "\
Go to file line of FILE in this dired buffer." (byte-code "АБВГ \"!CД €‡" [expand-file-name read-file-name "Goto file: " dired-current-directory push-mark] 4)])
(fset (quote dired-initial-position) #[(dirname) "А €	…	 В ‡" [end-of-line dired-trivial-filenames dired-goto-next-nontrivial-file] 1])
(defalias 'dired-current-directory #[(&optional localp) "`†	 БВp\"Г‰ѓ0 @‰@И!X?…* A‰„ 	ѓ= К\"‚> ,‡" [dired-subdir-alist error "No subdir-alist in %s" nil dir elt alist here dired-get-subdir-min localp dired-make-relative default-directory] 5 "\
Return the name of the subdirectory to which this line belongs.
This returns a string with trailing slash, like `default-directory'.
Optional argument means return a file name relative to `default-directory'."])
(fset (quote dired-subdir-max) #[nil "ЉAѓ БВГ‰#„ d‚ `)‡" [dired-subdir-alist dired-next-subdir 1 t] 4])
(defalias 'dired-do-flagged-delete #[nil "В ДЉeb€ЖДЗ#)ѓ… ИД‰‰‰	\nВ ДЉeb€ЖДЗ#…4 Н ‰??\nѓk b€О `B	B	b€ПР!€СД\"€ЖДЗ#…e Н ‰„@ )\nѓv 	‚{ О `BC.Т €Д\"‚€ УФ!+‡" [dired-del-marker dired-marker-char dired-marker-regexp regexp nil case-fold-search re-search-forward t dired-internal-do-deletions results found buffer-read-only next-position point-marker dired-get-filename forward-line 1 set-marker dired-move-to-filename message "(No deletions requested)"] 6 "\
In dired, delete the files flagged for deletion." nil])
(defalias 'dired-do-delete #[(&optional arg) "АБ‰‰‰ѓ4 З!ѓ, ИЙ\"€КWѓ( Л\n!‚Ћ \n‚Ћ М `BC‚Ћ Н БЉeb€РБС#…J Т ‰??ѓ b€М `B\nBb€УФ!€ХБ\"€РБС#…y Т ‰„U )ѓ€ \n‚Ќ М `BC*,Ц €\"‡" [dired-internal-do-deletions nil results found case-fold-search buffer-read-only arg integerp dired-repeat-over-lines #[nil "А `B	B‰‡" [dired-get-filename results] 2] 0 nreverse dired-get-filename dired-marker-regexp next-position regexp re-search-forward t point-marker forward-line 1 set-marker dired-move-to-filename] 6 "\
Delete all marked (or next ARG) files." "P"])
(byte-code "АБ!„ ВГДM€ЕЖM€ЗИM€ЙКM€ЛМM€НОM€АП!„) РСТM€УФM€ХЦM€ЧШM‡" [boundp dired-deletion-confirmer yes-or-no-p dired-internal-do-deletions #[(l arg) "АБ\n\"\nGГЗАИ\"!ЙКЛНОП\"\"%ѓh ЉС\nѓE \n@Ab€СФХЦЏ€)\nA‰„0 „U ЧШЩ!#€‚d ЪНЫGЩ!$\"€*‚l ЧЬ!€+Э ‡" [mapcar car l 0 succ count files nreverse dired-make-relative dired-mark-pop-up " *Deletions*" delete dired-deletion-confirmer format "Delete %s " dired-mark-prompt arg nil failures buffer-read-only err (byte-code "@@В	!@Г=ѓ Д	!€‚ Е	!€TЗИ	#€КЛМ!€`ЛН!€`\"€О	!€)В‡" [l fn file-attributes t delete-directory delete-file succ message "%s of %s deletions" count delete-region forward-line 0 1 dired-clean-up-after-deletion] 4) ((error (byte-code "АБ\n\"€@@BА‡" [dired-log "%s\n" err l failures] 3))) message "%d deletion%s done" dired-plural-s dired-log-summary "%d of %d deletion%s failed" "(No deletions performed)" dired-move-to-filename] 11] dired-clean-up-after-deletion #[(fn) "ЉA… Б\n!… Г )‡" [dired-subdir-alist dired-goto-subdir fn dired-kill-subdir] 2] dired-marker-regexp #[nil "АБВ!!P‡" ["^" regexp-quote char-to-string dired-marker-char] 4] dired-plural-s #[(count) "БUѓ В‡Г‡" [count 1 "" "s"] 2] dired-mark-prompt #[(arg files) "G‰ВUѓ @‚! Г!ѓ ЕЖ\"‚! ЕЗ	#)‡" [files count 1 integerp arg format "[next %d files]" "%c [%d files]" dired-marker-char] 5] dired-pop-to-buffer #[(buf) "„\n БВ!!‡Д Е‰ЙК ‰!Vѓ2 М Н!Uѓ2 ‚Q ЙО ‰!П‰\\!VѓQ М Н!UѓQ Љq€db€СТ!€Уe`\"n„k T)Й!П‰\\!Xѓ‚ Ф!‚– ХЙ!]TZ]\"Ц\"€Й!SWѓ· Ч!€ШЙ!SZ!€ЩЪ\"+‡" [dired-shrink-to-fit pop-to-buffer get-buffer-create buf selected-window nil w2 target-lines window window-height get-largest-window split-height-threshold frame-width window-width get-lru-window * window-min-height skip-chars-backward "\n	 " count-lines display-buffer split-window set-window-buffer select-window enlarge-window set-window-start 1] 6] dired-no-confirm nil dired-mark-pop-up #[(bufname op-symbol files function &rest args) "„ Б\n>„ GЕUѓ Ж\"‡ЉЙ!q€К €Л!€)М‹‡" [bufname " *Marked Files*" op-symbol dired-no-confirm files 1 apply function args get-buffer-create erase-buffer dired-format-columns-of-files ((byte-code "А	!€В\"‡" [dired-pop-to-buffer bufname apply function args] 3))] 3] dired-format-columns-of-files #[(files) "АБВГ\"\"Е\\ЗИ !ЕZ	КЛ	\"]GЛ\"О\"ПUѓ6 П‚7 К\\ППУФ!ХЦ\"ZЧ\"\"ШЩGS\"\"€Wѓ Wѓ‡ Ц\"j€@c€Щ\"T‰‚f Ъc€ПTA‚\\ .‡" [apply max mapcar length files 2 maxlen window-width selected-window width 1 / columns nfiles % 0 rows i j nconc copy-sequence make-list * "" setcdr nthcdr "\n"] 7] dired-repeat-over-lines #[(arg function) "АБ!€\nБVѓ1 m„1 \nSАБ!€m„% Г ѓ% АД!€‚ Љ €)АД!€‚ \nБWѓa o„a \nTАЖ!€o„R Г ѓR АЖ!€‚B АБ!€Љ €)З €‚1 З ‡" [forward-line 0 arg dired-between-files 1 function -1 dired-move-to-filename] 2] dired-between-files #[nil "АБ!†	 А\n!‡" [looking-at "^$\\|^. *$\\|^. total\\|^. wildcard" dired-subdir-regexp] 2]] 2)
(defalias 'dired-next-marked-file #[(arg &optional wrap opoint) "„ `	ВVѓ ГЕЖ	$‚  ЗВ!€ИЕЖ	[$ѓ& Й ‡\n„2 b€ЛМ!‡НО!€	ВVѓ@ e‚A db€П	Е#‡" [opoint arg 0 re-search-forward dired-re-mark nil t forward-line re-search-backward dired-move-to-filename wrap error "No next marked file" message "(Wraparound for next marked file)" dired-next-marked-file] 5 "\
Move to the next marked file, wrapping around the end of the buffer." "p\np"])
(defalias 'dired-prev-marked-file #[(arg &optional wrap) "А	[\n\"‡" [dired-next-marked-file arg wrap] 3 "\
Move to the previous marked file, wrapping around the end of the buffer." "p\np"])
(byte-code "АБM€ВГM‡" [dired-file-marker #[(file) "ЉА	!… ВГ!€ДgЕ\"?… g)‡" [dired-goto-file file forward-line 0 equal 32] 3] dired-mark-files-in-region #[(start end) "А\nVѓ ДЕ!€\nb€`W…D `Wѓ' Ж ѓ' ЗИ!€‚ Й\n!„= ЛАМ\"ѓ= НИ!€c€ЗИ!€‚ )‡" [nil buffer-read-only start end error "start > end" dired-between-files forward-line 1 looking-at dired-re-dot dired-get-filename t delete-char dired-marker-char] 3]] 2)
(defalias 'dired-mark #[(arg) "Aѓ Б ѓ ЉВ )‡ГЕЖ!И\")‡" [dired-subdir-alist dired-get-subdir dired-mark-subdir-files nil buffer-read-only dired-repeat-over-lines prefix-numeric-value arg #[nil "АБ!€\nc‡" [delete-char 1 dired-marker-char] 2]] 3 "\
Mark the current (or next ARG) files.
If on a subdir headerline, mark all its files except `.' and `..'.

Use \\[dired-unmark-all-files] to remove all marks
and \\[dired-unmark] on a subdir to remove the marks in
this subdir." "P"])
(defalias 'dired-unmark #[(arg) "АВ!)‡" [32 dired-marker-char dired-mark arg] 2 "\
Unmark the current (or next ARG) files.
If looking at a subdir, unmark all its files except `.' and `..'." "P"])
(defalias 'dired-flag-file-deletion #[(arg) "В!)‡" [dired-del-marker dired-marker-char dired-mark arg] 2 "\
In dired, flag the current line's file for deletion.
With prefix arg, repeat over several lines.

If on a subdir headerline, mark all its files except `.' and `..'." "P"])
(defalias 'dired-unmark-backward #[(arg) "А	[!‡" [dired-unmark arg] 2 "\
In dired, move up lines and remove deletion flag there.
Optional prefix ARG says how many lines to unflag; default is one line." "p"])
(defvar dired-regexp-history nil "\
History list of regular expressions used in Dired commands.")
(fset (quote dired-read-regexp) #[(prompt) "А	В‰‰Г%‡" [read-from-minibuffer prompt nil dired-regexp-history] 6])
(defalias 'dired-mark-files-regexp #[(regexp &optional marker-char) "† 	В‰ЉЕЖЗИ\"€eb€m„K Й\n!„D l„D ЛВМ\"‰…6 ОР!\")ѓD СТ!€	c€TУТ!€‚ ЖФИХ!	Ц=ѓ\\ Ч‚] Ш	=ѓh Ъ‚i Ы&€)ЕV…t +‡" [marker-char dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "matching file" looking-at dired-re-dot dired-get-filename t fn string-match regexp file-name-nondirectory delete-char 1 forward-line "%s %s%s %s%s." dired-plural-s 32 "un" "" dired-del-marker "flagged" "marked"] 9 "\
Mark all files matching REGEXP for use in later commands.
A prefix argument means to unmark them instead.
`.' and `..' are never marked.

REGEXP is an Emacs regexp, not a shell wildcard.  Thus, use `\\.o$' for
object files--just `.o' will mark more than you might think." (list (dired-read-regexp (concat (if current-prefix-arg "Unmark" "Mark") " files (regexp): ")) (if current-prefix-arg 32))])
(defalias 'dired-flag-files-regexp #[(regexp) "А	\n\"‡" [dired-mark-files-regexp regexp dired-del-marker] 3 "\
In dired, flag all files containing the specified REGEXP for deletion.
The match is against the non-directory part of the filename.  Use `^'
  and `$' to anchor matches.  Exclude subdirs by hiding them.
`.' and `..' are never flagged." (list (dired-read-regexp "Flag for deletion (regexp): "))])
(defalias 'dired-mark-symlinks #[(unflag-p) "ѓ Б‚	 \nГ‰ЉЖЗИЙ\"€eb€m„5 К!ѓ. МН!€\nc€TОН!€‚ ЗПЙР!\nБ=ѓF С‚G Т\n=ѓR Ф‚S Х&€)ЖV…^ +‡" [unflag-p 32 dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "symbolic link" looking-at dired-re-sym delete-char 1 forward-line "%s %s%s %s%s." dired-plural-s "un" "" dired-del-marker "flagged" "marked"] 8 "\
Mark all symbolic links.
With prefix argument, unflag all those files." "P"])
(defalias 'dired-mark-directories #[(unflag-p) "ѓ Б‚	 \nГ‰ЉЖЗИЙ\"€eb€m„< К!ѓ5 К!„5 НО!€\nc€TПО!€‚ ЗРЙС!\nБ=ѓM Т‚N У\n=ѓY Х‚Z Ц&€)ЖV…e +‡" [unflag-p 32 dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "directory file" looking-at dired-re-dir dired-re-dot delete-char 1 forward-line "%s %s%s %s%s." dired-plural-s "un" "" dired-del-marker "flagged" "marked"] 8 "\
Mark all directory file lines except `.' and `..'.
With prefix argument, unflag all those files." "P"])
(defalias 'dired-mark-executables #[(unflag-p) "ѓ Б‚	 \nГ‰ЉЖЗИЙ\"€eb€m„5 К!ѓ. МН!€\nc€TОН!€‚ ЗПЙР!\nБ=ѓF С‚G Т\n=ѓR Ф‚S Х&€)ЖV…^ +‡" [unflag-p 32 dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "executable file" looking-at dired-re-exe delete-char 1 forward-line "%s %s%s %s%s." dired-plural-s "un" "" dired-del-marker "flagged" "marked"] 8 "\
Mark all executable files.
With prefix argument, unflag all those files." "P"])
(defalias 'dired-flag-auto-save-files #[(&optional unflag-p) "ѓ Б‚	 \nД‰ЉЗИЙК\"€eb€m„U ЉЛ €h)М=ѓN Н!„N ПР‰\"‰…@ ТУ!!)ѓN ФХ!€c€TЦХ!€‚ ИЧКШ!Б=ѓf Щ‚g Ъ\n=ѓq Ы‚r Ь&€)ЗV…} +‡" [unflag-p 32 dired-del-marker dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "auto save file" end-of-line 35 looking-at dired-re-dir dired-get-filename t fn auto-save-file-name-p file-name-nondirectory delete-char 1 forward-line "%s %s%s %s%s." dired-plural-s "un" "" "flagged" "marked"] 9 "\
Flag for deletion files whose names suggest they are auto save files.
A prefix argument says to unflag those files instead." "P"])
(defalias 'dired-flag-backup-files #[(&optional unflag-p) "ѓ Б‚	 \nД‰ЉЗИЙК\"€eb€m„S ЉЛ €h)М=ѓL Н!„L ПР‰\"‰…> Т!)ѓL УФ!€c€TХФ!€‚ ИЦКЧ!Б=ѓd Ш‚e Щ\n=ѓo Ъ‚p Ы&€)ЗV…{ +‡" [unflag-p 32 dired-del-marker dired-marker-char nil count buffer-read-only 0 message "Marking %ss..." "backup file" end-of-line 126 looking-at dired-re-dir dired-get-filename t fn backup-file-name-p delete-char 1 forward-line "%s %s%s %s%s." dired-plural-s "un" "" "flagged" "marked"] 9 "\
Flag all backup files (names ending with `~') for deletion.
With prefix argument, unflag these files." "P"])
(defalias 'dired-change-marks #[(&optional old new) "АБВ!\"ДЉeb€ЗДИ#…* ЙК!€Л``T\"€МО\"€‚ +‡" [format "^%s" regexp-quote old nil buffer-read-only regexp re-search-forward t forward-line 0 delete-region insert-char new 1] 4 "\
Change all OLD marks to NEW marks.
OLD and NEW are both characters used to mark files." (byte-code "АВГ!€Д ВЖ\"€Д +D‡" [t cursor-in-echo-area message "Change (old mark): " read-char old "Change %c marks to (new mark): " new] 3)])
(defalias 'dired-unmark-all-files #[(mark &optional arg) "А	GАUѓ \n‚ ГД	!PЉЗ‰‰И	\neb€НЗО#ѓN ѓ; РКСТО!#ѓG УФ!€Хc€TЦЧ!€‚$ -ШЩЪЫ	#\"*‡" [0 mark dired-re-mark "^" regexp-quote re count nil "Type SPC or `y' to unmark one file, DEL or `n' to skip to next,\n`!' to unmark all remaining files with no more questions." help-form query case-fold-search buffer-read-only re-search-forward t arg dired-query "Unmark file `%s'? " dired-get-filename delete-char -1 " " forward-line 1 message "%s" format "Marks removed: %d %s"] 6 "\
Remove a specific mark or any mark from every file.
With prefix arg, query for each marked file.
Type \\[help-command] at that time for help." "sRemove marks (RET means all): \nP"])
(byte-code "АБ!„ ВА‡" [boundp dired-log-buffer "*Dired log*"] 2)
(defalias 'dired-why #[nil "А	!… В ГА	!!ЖЋЗ!€db€ИЙ!+‡" [get-buffer dired-log-buffer selected-window display-buffer window owindow ((select-window owindow)) select-window recenter -1] 4 "\
Pop up a buffer with error log output from Dired.
A group of errors from a single command ends with a formfeed.
Thus, use \\[backward-page] to find the beginning of a group of errors." nil])
(byte-code "АБM€ВГM‡" [dired-log #[(log &rest args) "pБЋВ!q€db€Д;ѓ) ѓ# ИЙ#‚% c‚H К!ѓ7 Л!‚H М=…H НОП РС!Т%+‡" [obuf ((set-buffer obuf)) get-buffer-create dired-log-buffer nil buffer-read-only log args apply format bufferp insert-buffer t insert "\n	" current-time-string "	Buffer `" buffer-name "'\n\n"] 6] dired-log-summary #[(string failures) "А	ѓ	 В‚\n Г	#€ЕЖP!€ЕЗ!‡" [message failures "%s--type ? for details (%s)" "%s--type ? for details" string dired-log "\n" t] 4]] 2)
(defvar dired-ls-sorting-switches "SXU" "\
String of `ls' switches (single letters) except `t' that influence sorting.")
(defvar dired-sort-by-date-regexp (concat "^-[^" dired-ls-sorting-switches "]*t[^" dired-ls-sorting-switches "]*$") "\
Regexp recognized by dired to set `by date' mode.")
(defvar dired-sort-by-name-regexp (concat "^-[^t" dired-ls-sorting-switches "]+$") "\
Regexp recognized by dired to set `by name' mode.")
(defvar dired-sort-mode nil "\
Whether Dired sorts by name, date etc. (buffer-local).")
(fset (quote dired-sort-set-modeline) #[nil "АВ\"ѓ Е‚ В\"ѓ З‚ ИP)	КЛ !‡" [nil case-fold-search string-match dired-sort-by-name-regexp dired-actual-switches " by name" dired-sort-by-date-regexp " by date" " " dired-sort-mode set-buffer-modified-p buffer-modified-p] 3])
(defalias 'dired-sort-toggle-or-edit #[(&optional arg) "ѓ БВГ\"!‡Е ‡" [arg dired-sort-other read-string "ls switches (must contain -l): " dired-actual-switches dired-sort-toggle] 4 "\
Toggle between sort by date/name and refresh the dired buffer.
With a prefix argument you can edit the current listing switches instead." "P"])
(byte-code "АБM€ВГM€ДЕM‡" [dired-sort-toggle #[nil "АВГДЖQЗ#ЙКЖQ\"ѓ З‚ ЛQ)М €Н ‡" [nil case-fold-search "-l" dired-replace-in-string "[---lt" dired-ls-sorting-switches "]" "" dired-actual-switches string-match "[t" "t" dired-sort-set-modeline revert-buffer] 6] dired-replace-in-string #[(regexp newtext string) "АБВ‰З	#ѓ, КБ!ЛБ!	OQ‚	 	ВOP,‡" ["" 0 nil me mb start result string-match regexp string match-beginning match-end newtext] 4] dired-sort-other #[(switches &optional no-revert) "В €† Д ‡" [switches dired-actual-switches dired-sort-set-modeline no-revert revert-buffer] 1]] 2)
(autoload (quote dired-diff) "dired-aux" "\
Compare file at point with file FILE using `diff'.
FILE defaults to the file at the mark.
The prompted-for file is the first file given to `diff'." t)
(autoload (quote dired-backup-diff) "dired-aux" "\
Diff this file with its backup file or vice versa.
Uses the latest backup, if there are several numerical backups.
If this file is a backup, diff it with its original.
The backup file is the first file given to `diff'." t)
(autoload (quote dired-clean-directory) "dired-aux" "\
Flag numerical backups for deletion.
Spares `dired-kept-versions' latest versions, and `kept-old-versions' oldest.
Positive prefix arg KEEP overrides `dired-kept-versions';
Negative prefix arg KEEP overrides `kept-old-versions' with KEEP made positive.

To clear the flags on these files, you can use \\[dired-flag-backup-files]
with a prefix argument." t)
(autoload (quote dired-do-chmod) "dired-aux" "\
Change the mode of the marked (or next ARG) files.
This calls chmod, thus symbolic modes like `g+w' are allowed." t)
(autoload (quote dired-do-chgrp) "dired-aux" "\
Change the group of the marked (or next ARG) files." t)
(autoload (quote dired-do-chown) "dired-aux" "\
Change the owner of the marked (or next ARG) files." t)
(autoload (quote dired-do-print) "dired-aux" "\
Print the marked (or next ARG) files.
Uses the shell command coming from variables `lpr-command' and
`lpr-switches' as default." t)
(autoload (quote dired-do-shell-command) "dired-aux" "\
Run a shell command COMMAND on the marked files.
If no files are marked or a specific numeric prefix arg is given,
the next ARG files are used.  Just \\[universal-argument] means the current file.
The prompt mentions the file(s) or the marker, as appropriate.

If there is output, it goes to a separate buffer.

Normally the command is run on each file individually.
However, if there is a `*' in the command then it is run
just once with the entire file list substituted there.

No automatic redisplay of dired buffers is attempted, as there's no
telling what files the command may have changed.  Type
\\[dired-do-redisplay] to redisplay the marked files.

The shell command has the top level directory as working directory, so
output files usually are created there instead of in a subdir." t)
(autoload (quote dired-do-kill-lines) "dired-aux" "\
Kill all marked lines (not the files).
With a prefix arg, kill all lines not marked or flagged." t)
(autoload (quote dired-do-compress) "dired-aux" "\
Compress or uncompress marked (or next ARG) files." t)
(autoload (quote dired-do-byte-compile) "dired-aux" "\
Byte compile marked (or next ARG) Emacs Lisp files." t)
(autoload (quote dired-do-load) "dired-aux" "\
Load the marked (or next ARG) Emacs Lisp files." t)
(autoload (quote dired-do-redisplay) "dired-aux" "\
Redisplay all marked (or next ARG) files.
If on a subdir line, redisplay that subdirectory.  In that case,
a prefix arg lets you edit the `ls' switches used for the new listing." t)
(autoload (quote dired-string-replace-match) "dired-aux" "\
Replace first match of REGEXP in STRING with NEWTEXT.
If it does not match, nil is returned instead of the new string.
Optional arg LITERAL means to take NEWTEXT literally.
Optional arg GLOBAL means to replace all matches." t)
(autoload (quote dired-create-directory) "dired-aux" "\
Create a directory called DIRECTORY." t)
(autoload (quote dired-do-copy) "dired-aux" "\
Copy all marked (or next ARG) files, or copy the current file.
Thus, a zero prefix argument copies nothing.  But it toggles the
variable `dired-copy-preserve-time' (which see)." t)
(autoload (quote dired-do-symlink) "dired-aux" "\
Make symbolic links to current file or all marked (or next ARG) files.
When operating on just the current file, you specify the new name.
When operating on multiple or marked files, you specify a directory
and new symbolic links are made in that directory
with the same names that the files currently have." t)
(autoload (quote dired-do-hardlink) "dired-aux" "\
Add names (hard links) current file or all marked (or next ARG) files.
When operating on just the current file, you specify the new name.
When operating on multiple or marked files, you specify a directory
and new hard links are made in that directory
with the same names that the files currently have." t)
(autoload (quote dired-do-rename) "dired-aux" "\
Rename current file or all marked (or next ARG) files.
When renaming just the current file, you specify the new name.
When renaming multiple or marked files, you specify a directory." t)
(autoload (quote dired-do-rename-regexp) "dired-aux" "\
Rename marked files containing REGEXP to NEWNAME.
As each match is found, the user must type a character saying
  what to do with it.  For directions, type \\[help-command] at that time.
NEWNAME may contain \\=\\<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." t)
(autoload (quote dired-do-copy-regexp) "dired-aux" "\
Copy all marked files containing REGEXP to NEWNAME.
See function `dired-rename-regexp' for more info." t)
(autoload (quote dired-do-hardlink-regexp) "dired-aux" "\
Hardlink all marked files containing REGEXP to NEWNAME.
See function `dired-rename-regexp' for more info." t)
(autoload (quote dired-do-symlink-regexp) "dired-aux" "\
Symlink all marked files containing REGEXP to NEWNAME.
See function `dired-rename-regexp' for more info." t)
(autoload (quote dired-upcase) "dired-aux" "\
Rename all marked (or next ARG) files to upper case." t)
(autoload (quote dired-downcase) "dired-aux" "\
Rename all marked (or next ARG) files to lower case." t)
(autoload (quote dired-maybe-insert-subdir) "dired-aux" "\
Insert this subdirectory into the same dired buffer.
If it is already present, just move to it (type \\[dired-do-redisplay] to refresh),
  else inserts it at its natural place (as `ls -lR' would have done).
With a prefix arg, you may edit the ls switches used for this listing.
  You can add `R' to the switches to expand the whole tree starting at
  this subdirectory.
This function takes some pains to conform to `ls -lR' output." t)
(autoload (quote dired-next-subdir) "dired-aux" "\
Go to next subdirectory, regardless of level." t)
(autoload (quote dired-prev-subdir) "dired-aux" "\
Go to previous subdirectory, regardless of level.
When called interactively and not on a subdir line, go to this subdir's line." t)
(autoload (quote dired-goto-subdir) "dired-aux" "\
Go to end of header line of DIR in this dired buffer.
Return value of point on success, otherwise return nil.
The next char is either \\n, or \\r if DIR is hidden." t)
(autoload (quote dired-mark-subdir-files) "dired-aux" "\
Mark all files except `.' and `..'." t)
(autoload (quote dired-kill-subdir) "dired-aux" "\
Remove all lines of current subdirectory.
Lower levels are unaffected." t)
(autoload (quote dired-tree-up) "dired-aux" "\
Go up ARG levels in the dired tree." t)
(autoload (quote dired-tree-down) "dired-aux" "\
Go down in the dired tree." t)
(autoload (quote dired-hide-subdir) "dired-aux" "\
Hide or unhide the current subdirectory and move to next directory.
Optional prefix arg is a repeat factor.
Use \\[dired-hide-all] to (un)hide all directories." t)
(autoload (quote dired-hide-all) "dired-aux" "\
Hide all subdirectories, leaving only their header lines.
If there is already something hidden, make everything visible again.
Use \\[dired-hide-subdir] to (un)hide a particular subdirectory." t)
(byte-code "Б=ѓ\n ВГ!€ДЕ!€ЖЗ!‡" [system-type vax-vms load "dired-vms" run-hooks dired-load-hook provide dired] 2)