| 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.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.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\312\313\306\301&\210\314\315\316\317\320DD\321\322\323\306\301&\210\314\324\316\317\325DD\326\306\301\322\327&\210\314\330\316\317\331DD\332\306\301\322\333&\210\314\334\316\317\335DD\336\306\301\322\337&\210\314\340\316\317\341DD\342\306\301\322\333&\210\314\343\316\317\344DD\345\306\301\322\333&\210\314\346\316\317\347DD\350\322\351\306\310&\210\314\352\316\317\353DD\354\322\355\306\301&\210\314\356\316\317\357DD\360\322\361\306\310&\210\314\362\316\317\363DD\364\322\365\306\310&\210\314\366\316\317\367DD\370\322\371\306\310&\210\314\372\316\317\373DD\374\322\375\306\310&\210\314\376\316\317\377DD\201@ \322\351\306\301&\210\314\201A \316\317\201B DD\201C \322\351\306\301&\210\201D \201E \201F \"\210\201D \201G \201H \"\210\314\201I \316\317\201J DD\201K \306\301\322\201L &\210\314\201M \316\317\201N DD\201O \306\301\322\201L &\210\314\201P \316\317\201Q DD\201R \306\301\322\201L &\210\314\201S \316\317\201T DD\201U \306\301\322\201L &\210\314\201V \316\317\201W DD\201X \322\201Y \201Z \201[ \306\301& \207" [custom-declare-group dired nil "Directory editing." :link (custom-manual "(emacs)Dired") :group files dired-mark "Handling marks in Dired." :prefix "dired-" custom-declare-variable dired-listing-switches funcall function #[0 "\300\301!\207" [purecopy "-al"] 2 "\n\n(fn)"] "Switches passed to `ls' for Dired. MUST contain the `l' option.\nMay contain all other options that don't contradict `-l';\nmay contain even `F', `b', `i' and `s'. See also the variable\n`dired-ls-F-marks-symlinks' concerning the `F' switch.\nOn systems such as MS-DOS and MS-Windows, which use `ls' emulation in Lisp,\nsome of the `ls' switches are not supported; see the doc string of\n`insert-directory' in `ls-lisp.el' for more details." :type string dired-subdir-switches #[0 "\300\207" [nil] 1 "\n\n(fn)"] "If non-nil, switches passed to `ls' for inserting subdirectories.\nIf nil, `dired-listing-switches' is used." (choice (const :tag "Use dired-listing-switches" nil) (string :tag "Switches")) dired-chown-program #[0 "\300\301\302!\203 \302\202 \303\304!\203 \304\202 \303\305!\203 \305\202 \302!\207" [purecopy executable-find "chown" file-executable-p "/usr/sbin/chown" "/etc/chown"] 3 "\n\n(fn)"] "Name of chown command (usually `chown')." file dired-use-ls-dired #[0 "\300\207" [unspecified] 1 "\n\n(fn)"] "Non-nil means Dired should pass the \"--dired\" option to \"ls\".\nThe special value of `unspecified' means to check explicitly, and\nsave the result in this variable. This is performed the first\ntime `dired-insert-directory' is called.\n\nNote that if you set this option to nil, either through choice or\nbecause your \"ls\" program does not support \"--dired\", Dired\nwill fail to parse some \"unusual\" file names, e.g. those with leading\nspaces. You might want to install ls from GNU Coreutils, which does\nsupport this option. Alternatively, you might want to use Emacs's\nown emulation of \"ls\", by using:\n (setq ls-lisp-use-insert-directory-program nil)\n (require 'ls-lisp)\nThis is used by default on MS Windows, which does not have an \"ls\" program.\nNote that `ls-lisp' does not support as many options as GNU ls, though.\nFor more details, see Info node `(emacs)ls in Lisp'." (choice (const :tag "Check for --dired support" unspecified) (const :tag "Do not use --dired" nil) (other :tag "Use --dired" t)) dired-chmod-program #[0 "\300\207" ["chmod"] 1 "chmod\n\n(fn)"] "Name of chmod command (usually `chmod')." dired-touch-program #[0 "\300\207" ["touch"] 1 "touch\n\n(fn)"] "Name of touch command (usually `touch')." dired-ls-F-marks-symlinks #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Informs Dired about how `ls -lF' marks symbolic links.\nSet this to t if `ls' (or whatever program is specified by\n`insert-directory-program') with `-lF' marks the symbolic link\nitself with a trailing @ (usually the case under Ultrix).\n\nExample: if `ln -s foo bar; ls -F bar' gives `bar -> foo', set it to\nnil (the default), if it gives `bar@ -> foo', set it to t.\n\nDired checks if there is really a @ appended. Thus, if you have a\nmarking `ls' program on one host and a non-marking on another host, and\ndon't care about symbolic links which really end in a @, you can\nalways set this variable to t." boolean dired-trivial-filenames #[0 "\300\301!\207" [purecopy "^\\.\\.?$\\|^#"] 2 "\n\n(fn)"] "Regexp of files to skip when finding first file of a directory.\nA value of nil means move to the subdir line.\nA value of t means move to first file." (choice (const :tag "Move to subdir" nil) (const :tag "Move to first" t) regexp) dired-keep-marker-rename #[0 "\300\207" [t] 1 "\n\n(fn)"] "Controls marking of renamed files.\nIf t, files keep their previous marks when they are renamed.\nIf a character, renamed files (whether previously marked or not)\nare afterward marked with that character.\nThis option affects only files renamed by `dired-do-rename' and\n`dired-do-rename-regexp'. See `wdired-keep-marker-rename'\nif you want to do the same for files renamed in WDired mode." (choice (const :tag "Keep" t) (character :tag "Mark" :value 82)) dired-keep-marker-copy #[0 "\300\207" [67] 1 "\n\n(fn)"] "Controls marking of copied files.\nIf t, copied files are marked if and as the corresponding original files were.\nIf a character, copied files are unconditionally marked with that character." (choice (const :tag "Keep" t) (character :tag "Mark")) dired-keep-marker-hardlink #[0 "\300\207" [72] 1 "\n\n(fn)"] "Controls marking of newly made hard links.\nIf t, they are marked if and as the files linked to were marked.\nIf a character, new links are unconditionally marked with that character." (choice (const :tag "Keep" t) (character :tag "Mark")) dired-keep-marker-symlink #[0 "\300\207" [89] 1 "\n\n(fn)"] "Controls marking of newly made symbolic links.\nIf t, they are marked if and as the files linked to were marked.\nIf a character, new links are unconditionally marked with that character." (choice (const :tag "Keep" t) (character :tag "Mark")) dired-dwim-target #[0 "\300\207" [nil] 1 "\n\n(fn)"] "If non-nil, Dired tries to guess a default target directory.\nThis means: if there is a Dired buffer displayed in the next\nwindow, use its current directory, instead of this Dired buffer's\ncurrent directory.\n\nThe target is used in the prompt for file copy, rename etc." dired-copy-preserve-time #[0 "\300\207" [t] 1 "\n\n(fn)"] "If non-nil, Dired preserves the last-modified time in a file copy.\n(This works on only some systems.)" defvaralias dired-free-space-program directory-free-space-program dired-free-space-args directory-free-space-args dired-load-hook #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Run after loading Dired.\nYou can customize key bindings or load extensions with this." hook dired-mode-hook #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Run at the very end of `dired-mode'." dired-before-readin-hook #[0 "\300\207" [nil] 1 "\n\n(fn)"] "This hook is run before a dired buffer is read in (created or reverted)." dired-after-readin-hook #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Hook run after each time a file or directory is read by Dired.\nAfter each listing of a file or directory, this hook is run\nwith the buffer narrowed to the listing." dired-dnd-protocol-alist #[0 "\300\207" [(("^file:///" . dired-dnd-handle-local-file) ("^file://" . dired-dnd-handle-file) ("^file:" . dired-dnd-handle-local-file))] 1 "\n\n(fn)"] "The functions to call when a drop in `dired-mode' is made.\nSee `dnd-protocol-alist' for more information. When nil, behave\nas in other buffers. Changing this option is effective only for\nnew dired buffers." (choice (repeat (cons (regexp) (function))) (const :tag "Behave as in other buffers" nil)) :version "22.1"] 10)
#@112 In Dired, the current mark character.
This is what the do-commands look for, and what the mark-commands store.
(defvar dired-marker-char 42 (#$ . 8345))
#@44 Character used to flag files for deletion.
(defvar dired-del-marker 68 (#$ . 8504))
#@73 Non-nil means Dired shrinks the display buffer to fit the marked files.
(defvar dired-shrink-to-fit t (#$ . 8594))
(make-obsolete-variable 'dired-shrink-to-fit "use the Customization interface to add a new rule\nto `display-buffer-alist' where condition regexp is \"^ \\*Marked Files\\*$\",\naction argument symbol is `window-height' and its value is nil." "24.3")
#@272 The directory name or wildcard spec that this dired directory lists.
Local to each dired buffer. May be a list, in which case the car is the
directory name and the cdr is the list of files to mention.
The directory name must be absolute, but need not be fully expanded.
(defvar dired-directory nil (#$ . 8966))
#@81 Return non-nil if string SWITCHES does not look risky for dired.
(fn SWITCHES)
(defalias 'dired-safe-switches-p #[257 "\211?\206 \211;\205 \211G\300W\205 \301\302\"\207" [100 string-match "\\` *-[- [:alnum:]]+\\'"] 4 (#$ . 9284)])
#@72 The value of `dired-listing-switches' used to make this buffer's text.
(defvar dired-actual-switches nil (#$ . 9526))
(put 'dired-actual-switches 'safe-local-variable 'dired-safe-switches-p)
#@72 Regexp for optional initial inode and file size as made by `ls -i -s'.
(defvar dired-re-inode-size "[0-9 ]*" (#$ . 9723))
(defvar dired-re-mark "^[^ \n]")
(defvar dired-re-maybe-mark "^. ")
(defvar dired-re-dir (concat dired-re-maybe-mark dired-re-inode-size "d[^:]"))
(defvar dired-re-sym (concat dired-re-maybe-mark dired-re-inode-size "l[^:]"))
(defvar dired-re-exe (mapconcat #[257 " Q\207" [dired-re-maybe-mark dired-re-inode-size] 4 "\n\n(fn X)"] '("-[-r][-w][xs][-r][-w].[-r][-w]." "-[-r][-w].[-r][-w][xs][-r][-w]." "-[-r][-w].[-r][-w].[-r][-w][xst]") "\\|"))
(defvar dired-re-perms "[-bcdlps][-r][-w].[-r][-w].[-r][-w].")
(defvar dired-re-dot "^.* \\.\\.?/?$")
#@237 Association list of subdirectories and their buffer positions.
Each subdirectory has an element: (DIRNAME . STARTMARKER).
The order of elements is the reverse of the order in the buffer.
In simple cases, this list contains one element.
(defvar dired-subdir-alist nil (#$ . 10402))
#@117 Keeps track of which switches to use for inserted subdirectories.
This is an alist of the form (SUBDIR . SWITCHES).
(defvar dired-switches-alist nil (#$ . 10690))
(byte-code "\300\301!\210\302\303\304\"\207" [make-variable-buffer-local dired-switches-alist defvaralias dired-move-to-filename-regexp directory-listing-before-filename-regexp] 3)
#@278 Regexp matching a maybe hidden subdirectory line in `ls -lR' output.
Subexpression 1 is the subdirectory proper, no trailing colon.
The match starts at the beginning of the line and ends after the end
of the line (\n or \r).
Subexpression 2 must end right before the \n or \r.
(defvar dired-subdir-regexp "^. \\([^\n
]+\\)\\(:\\)[\n
]" (#$ . 11041))
(byte-code "\300\301\302\303\304\305\304\306&\210\307\310\311\312\304\301\313\314&\207" [custom-declare-group dired-faces nil "Faces used by Dired." :group dired faces custom-declare-face dired-header ((t (:inherit font-lock-type-face))) "Face used for directory headers." :version "22.1"] 8)
#@39 Face name used for directory headers.
(defvar dired-header-face 'dired-header (#$ . 11692))
(custom-declare-face 'dired-mark '((t (:inherit font-lock-constant-face))) "Face used for dired marks." :group 'dired-faces :version "22.1")
#@33 Face name used for dired marks.
(defvar dired-mark-face 'dired-mark (#$ . 11931))
(custom-declare-face 'dired-marked '((t (:inherit warning))) "Face used for marked files." :group 'dired-faces :version "22.1")
#@34 Face name used for marked files.
(defvar dired-marked-face 'dired-marked (#$ . 12147))
(custom-declare-face 'dired-flagged '((t (:inherit error))) "Face used for files flagged for deletion." :group 'dired-faces :version "22.1")
#@48 Face name used for files flagged for deletion.
(defvar dired-flagged-face 'dired-flagged (#$ . 12381))
(custom-declare-face 'dired-warning '((t (:inherit font-lock-warning-face))) "Face used to highlight a part of a buffer that needs user attention." :group 'dired-faces :version "22.1")
#@66 Face name used for a part of a buffer that needs user attention.
(defvar dired-warning-face 'dired-warning (#$ . 12675))
(custom-declare-face 'dired-perm-write '((((type w32 pc)) :inherit default) (t (:inherit font-lock-comment-delimiter-face))) "Face used to highlight permissions of group- and world-writable files." :group 'dired-faces :version "22.2")
#@68 Face name used for permissions of group- and world-writable files.
(defvar dired-perm-write-face 'dired-perm-write (#$ . 13037))
(custom-declare-face 'dired-directory '((t (:inherit font-lock-function-name-face))) "Face used for subdirectories." :group 'dired-faces :version "22.1")
#@36 Face name used for subdirectories.
(defvar dired-directory-face 'dired-directory (#$ . 13326))
(custom-declare-face 'dired-symlink '((t (:inherit font-lock-keyword-face))) "Face used for symbolic links." :group 'dired-faces :version "22.1")
#@36 Face name used for symbolic links.
(defvar dired-symlink-face 'dired-symlink (#$ . 13573))
(custom-declare-face 'dired-ignored '((t (:inherit shadow))) "Face used for files suffixed with `completion-ignored-extensions'." :group 'dired-faces :version "22.1")
#@73 Face name used for files suffixed with `completion-ignored-extensions'.
(defvar dired-ignored-face 'dired-ignored (#$ . 13837))
#@52 Additional expressions to highlight in Dired mode.
(defvar dired-font-lock-keywords (byte-code "\306D\307\310 !\311Q\312D\307\310\n!\311Q\313D \f\314Q\315D \f\316Q\317D
\320D\321D\322\323 \f\324R\325D\326D\257 \207" [dired-re-mark dired-marker-char dired-del-marker dired-re-maybe-mark dired-re-inode-size dired-re-dir (0 dired-mark-face) "^[" char-to-string "]" (".+" (dired-move-to-filename) nil (0 dired-marked-face)) (".+" (dired-move-to-filename) nil (0 dired-flagged-face)) "[-d]....\\(w\\)...." (1 dired-perm-write-face) "[-d].......\\(w\\)." (1 dired-perm-write-face) (".+" (dired-move-to-filename) nil (0 dired-directory-face)) (".+" (dired-move-to-filename) nil (0 dired-symlink-face)) (eval list (concat "\\(" (regexp-opt completion-ignored-extensions) "\\|#\\)$") '(".+" (dired-move-to-filename) nil (0 dired-ignored-face))) (eval list (concat "\\(" (regexp-opt completion-ignored-extensions) "\\|#\\)[*=|]$") '(".+" (progn (end-of-line) (unless (get-text-property (1- (point)) 'mouse-face) (dired-move-to-filename))) nil (0 dired-ignored-face))) ".*:$" (".+" (dired-move-to-filename) nil (0 'default)) (1 dired-header-face) dired-re-sym dired-re-perms dired-subdir-regexp] 13) (#$ . 13971))
#@337 Mark all files for which PREDICATE evals to non-nil.
PREDICATE is evaluated on each line, with point at beginning of line.
MSG is a noun phrase for the type of files being marked.
It should end with a noun that can be pluralized by adding `s'.
Return value is the number of files marked, or nil if none were marked.
(fn PREDICATE MSG)
(defalias 'dired-mark-if '(macro . #[514 "\300\301\302\303\304\305\306\307 \310BBBBE\311\312\313\314\n\315BB\316BBB\314\305\317\320\f\321BBBBE\257\322BBB\207" [let ((inhibit-read-only t) count) save-excursion (setq count 0) when message "%s %ss%s..." (cond ((eq dired-marker-char 32) "Unmarking") ((eq dired-del-marker dired-marker-char) "Flagging") (t "Marking")) ((if (eq dired-del-marker dired-marker-char) " for deletion" #1="")) (goto-char (point-min)) while (not (eobp)) if ((progn (delete-char 1) (insert dired-marker-char) (setq count (1+ count)))) ((forward-line 1)) "%s %s%s %s%s." count ((dired-plural-s count) (if (eq dired-marker-char 32) "un" #1#) (if (eq dired-marker-char dired-del-marker) "flagged" "marked")) ((and (> count 0) count))] 16 (#$ . 15189)]))
#@1155 Eval BODY with point on each marked line. Return a list of BODY's results.
If no marked file could be found, execute BODY on the current
line. ARG, if non-nil, specifies the files to use instead of the
marked files.
If ARG is an integer, use the next ARG (or previous -ARG, if
ARG<0) files. In that case, point is dragged along. This is so
that commands on the next ARG (instead of the marked) files can
be chained easily.
For any other non-nil value of ARG, use the current file.
If optional third arg SHOW-PROGRESS evaluates to non-nil,
redisplay the dired buffer after each file is processed.
No guarantee is made about the position on the marked line. BODY
must ensure this itself if it depends on this.
Search starts at the beginning of the buffer, thus the car of the
list corresponds to the line nearest to the buffer's bottom.
This is also true for (positive and negative) integer values of
ARG.
BODY should not be too long as it is expanded four times.
If DISTINGUISH-ONE-MARKED is non-nil, then if we find just one
marked file, return (t FILENAME) instead of (FILENAME).
(fn BODY ARG &optional SHOW-PROGRESS DISTINGUISH-ONE-MARKED)
(defalias 'dired-map-over-marks '(macro . #[1026 "\300\301\302\303\303\304 D\305\306 \307\310\311\303\312BB\313\314\315\316BBEFDE\303\317
\320BB\321BBE\322\fDF\301\323\324\325\326\327\330\331\303\332BB\313\314\315\333BBE\334BBBBBF\303\335 \336BB\337BB\303\340\314\322DF\257FE\341BB\207" [prog1 let ((inhibit-read-only t) case-fold-search found results) if integerp progn dired-repeat-over-lines function lambda nil ((sit-for 0)) setq results cons (results) < (0) ((nreverse results) results) list ((regexp (dired-marker-regexp)) next-position) save-excursion (goto-char (point-min)) (setq next-position (and (re-search-forward regexp nil t) (point-marker)) found (not (null next-position))) while next-position (goto-char next-position) ((sit-for 0)) (results) ((goto-char next-position) (forward-line 1) (set-marker next-position nil) (setq next-position (and (re-search-forward regexp nil t) (point-marker)))) and ((= (length results) 1)) ((setq results (cons t results))) found ((dired-move-to-filename))] 24 (#$ . 16313)]))
#@850 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 file names.
Optional arg LOCALP as in `dired-get-filename'.
Optional second argument ARG, if non-nil, specifies files near
point instead of marked files. It usually comes from the prefix
argument.
If ARG is an integer, use the next ARG files.
Any other non-nil value means to use the current file instead.
Optional third argument FILTER, if non-nil, is a function to select
some of the files--those for which (funcall FILTER FILENAME) is non-nil.
If DISTINGUISH-ONE-MARKED is non-nil, then if we find just one marked file,
return (t FILENAME) instead of (FILENAME).
Don't use that together with FILTER.
(fn &optional LOCALP ARG FILTER DISTINGUISH-ONE-MARKED)
(defalias 'dired-get-marked-files #[1024 "\212\302\303\304\303\211\211C\303\262\303\262\203L \250\203C \305 \306\307\310\311\312\"\313\"\314\315%\"\210\307W\203> \211@\237\202\266 \211@\202\266 \316\n\317\"C\202\266 \320 \303\212eb\210\321\303\304#\205] \322 \262\211??\262\211\203\220 \211b\210\316
\317\"@B\240\210\211b\210\323y\210\211\303\211\223\210\321\303\304#\205\213 \322 \262\202d )\203\245 @G\323U\203\245 \304@B\240\210\203\256 @\202\264 \316\f\317\"C\266\202*\266\204\324 \210\")\303\325\232\203\310 \303\262\204\340 \203\333 @\304=\203\333 \202\373 \237\202\373 \211\203\371 \211@!\203\362 \211B\262A\266\202\202\341 \210\211\207" [case-fold-search inhibit-read-only delq nil t dired-repeat-over-lines make-byte-code 0 "\301\302\300\303\"\301@B\240\207" vconcat vector [dired-get-filename no-error-if-not-filep] 4 "\n\n(fn)" dired-get-filename no-error-if-not-filep dired-marker-regexp re-search-forward point-marker 1 dired-move-to-filename (t)] 19 (#$ . 18520)])
(defalias 'dired-read-dir-and-switches #[257 "\303\205 \304\305 \"\306 \203 \307\310\311\"\312\n\312$\202# \313\310\311\"\312\n\312$D!\207" [current-prefix-arg dired-listing-switches default-directory reverse read-string "Dired listing switches: " next-read-file-uses-dialog-p read-directory-name format "Dired %s(directory): " nil read-file-name] 8 "\n\n(fn STR)"])
#@135 Try to get a file name at point in the current dired buffer.
This hook is intended to be put in `file-name-at-point-functions'.
(fn)
(defalias 'dired-file-name-at-point #[0 "\300\301\302\"\211\205 \303!\203 \304\305!!\202 \305!\207" [dired-get-filename nil t file-directory-p file-name-as-directory abbreviate-file-name] 4 (#$ . 20774)])
#@781 "Edit" directory DIRNAME--delete, rename, print, etc. some files in it.
Optional second argument SWITCHES specifies the `ls' options used.
(Interactively, use a prefix argument to be able to specify SWITCHES.)
Dired displays a list of files in DIRNAME (which may also have
shell wildcards appended to select certain files). If DIRNAME is a cons,
its first element is taken as the directory name and the rest as an explicit
list of files to make directory entries for.
\<dired-mode-map>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.
(fn DIRNAME &optional SWITCHES)
(defalias 'dired #[513 "\300\301\"!\207" [switch-to-buffer dired-noselect] 6 (#$ . 21126) (dired-read-dir-and-switches "")])
#@105 "Edit" directory DIRNAME. Like `dired' but selects in another window.
(fn DIRNAME &optional SWITCHES)
(defalias 'dired-other-window #[513 "\300\301\"!\207" [switch-to-buffer-other-window dired-noselect] 6 (#$ . 22040) (dired-read-dir-and-switches "in other window ")])
#@97 "Edit" directory DIRNAME. Like `dired' but makes a new frame.
(fn DIRNAME &optional SWITCHES)
(defalias 'dired-other-frame #[513 "\300\301\"!\207" [switch-to-buffer-other-frame dired-noselect] 6 (#$ . 22319) (dired-read-dir-and-switches "in other frame ")])
#@110 Like `dired' but returns the dired buffer as value, does not select it.
(fn DIR-OR-LIST &optional SWITCHES)
(defalias 'dired-noselect #[513 "\204 \262\302\211:\203 @\262\202 \262\303!\230\262\304\305\306!!!\262 \2031 \307!\262\211\204; \310!\203@ \303!\262:\203N AB\262\202Q \262\311\"\207" [default-directory find-file-visit-truename nil file-name-as-directory abbreviate-file-name expand-file-name directory-file-name file-truename file-directory-p dired-internal-noselect] 8 (#$ . 22588)])
(defalias 'dired-directory-changed-p #[257 "\300!\301 \211\302=\206 @\303=?\206 \3048\232\266\202?\207" [file-attributes visited-file-modtime 0 t 5] 5 "\n\n(fn DIRNAME)"])
#@212 Return non-nil if current dired buffer needs updating.
If NOCONFIRM is non-nil, then this function always returns nil
for a remote directory. This feature is used by Auto Revert Mode.
(fn &optional NOCONFIRM)
(defalias 'dired-buffer-stale-p #[256 ":\203\n @\202 \211;\205( \205 \302!?\205( \303!\205( \205( \304!\207" [dired-directory buffer-read-only file-remote-p file-readable-p dired-directory-changed-p] 4 (#$ . 23296)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable dired-auto-revert-buffer funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Automatically revert dired buffer on revisiting.\nIf t, revisiting an existing dired buffer automatically reverts it.\nIf its value is a function, call this function with the directory\nname as single argument and revert the buffer if it returns non-nil.\nOtherwise, a message offering to revert the changed dired buffer\nis displayed.\nNote that this is not the same as `auto-revert-mode' that\nperiodically reverts at specified time intervals." :type (choice (const :tag "Don't revert" nil) (const :tag "Always revert visited dired buffer" t) (const :tag "Revert changed dired buffer" dired-directory-changed-p) (function :tag "Predicate function")) :group dired :version "23.2"] 10)
(defalias 'dired-internal-noselect #[769 "p:\203 @\202\f \304\"C\211@?@\204! \305\306!!\240\210@q\210\211\204j \2038 \307!\210\202\253 \310=\203D \311 \210\202\253 \312 !\203Z !\203\253 \311 \210\313\314!\210\202\253 \315!\203\253 \313\316\317\320!\"\210\202\253 \321!\204u \262\203 \210\202\206 \322\"\210\310C\323\324\325\326\327\330\"\331\"\332\333%DC\216\334 \210\211\335\240\210)\210eb\210\336!\210q\210@\207" [dired-directory dired-auto-revert-buffer default-directory dired-listing-switches dired-find-buffer-nocreate create-file-buffer directory-file-name dired-sort-other t revert-buffer functionp message "Changed directory automatically updated" dired-directory-changed-p "%s" substitute-command-keys "Directory has changed on disk; type \\[revert-buffer] to update Dired" file-name-directory dired-mode funcall make-byte-code 0 "\301@\205 \302\300@!\207" vconcat vector [kill-buffer] 2 "\n\n(fn)" dired-readin nil dired-initial-position] 16 "\n\n(fn DIR-OR-LIST &optional SWITCHES MODE)"])
#@67 Alist of expanded directories and their associated dired buffers.
(defvar dired-buffers nil (#$ . 25642))
(defalias 'dired-find-buffer-nocreate #[513 "\304\305!\2036 \2036 \306!\230\2036 p\307\310!!\237>\205\" \232\311\"\262\312\313\"@\2065 \211\2055 \207\310!\262\314\n\204D \315\262\211\203\214 \316@A!\204W \211A\262\202D r\211@Aq\210 =\203\204 \203\204 \310 :\203s @\202t !\232\203\204 \211@A\262\314\262\202\210 \211A\262)\202D \207" [dired-find-subdir dired-directory dired-buffers major-mode featurep dired-x file-name-directory dired-buffers-for-dir expand-file-name delq sort dired-buffer-more-recently-used-p nil dired-mode buffer-name] 8 "\n\n(fn DIRNAME &optional MODE)"])
#@210 Read in a new dired buffer.
Differs from `dired-insert-subdir' in that it accepts
wildcards, erases the buffer, and builds the subdir-alist anew
(including making it buffer-local and clearing it first).
(fn)
(defalias 'dired-readin #[0 "\306\307 :\203 @\262\202 \262\310!\262\212\311\312!\210\n:\203# \306\313\304!\210 \206, \f\307\211 ~\210\314 \210\315 \210*eb\210\313\316!\210\306\317 \210\320!\211@\307=\203W \321\3228!\210\210\323\306!\210\311\324!*\207" [inhibit-modification-hooks dired-directory buffer-undo-list coding-system-for-read file-name-coding-system inhibit-read-only nil t expand-file-name run-hooks dired-before-readin-hook make-local-variable erase-buffer dired-readin-insert dired-subdir-alist dired-build-subdir-alist file-attributes set-visited-file-modtime 5 set-buffer-modified-p dired-after-readin-hook] 5 (#$ . 26362)])
(defalias 'dired-readin-insert #[0 "\302\211:\203 @\262A\262\202 \262\302\262\303!\262\304!\305\232\2033 \211\2043 \306 \302\211\307%\202L \310\311\312!!!\204D \313\314\"\202L \306 \211?\307%\207" [dired-directory dired-actual-switches nil expand-file-name file-name-nondirectory "" dired-insert-directory t file-readable-p directory-file-name file-name-directory error "Directory %s inaccessible or nonexistent"] 8 "\n\n(fn)"])
#@129 Align the fields of a file to the ones of surrounding lines.
BEG..END is the line where the file info is located.
(fn BEG END)
(defalias 'dired-align-file #[514 "\212\300\211\211\211b\210\301\300\"\211\262\205#i\211\262\205#b\203+ \302\303y!\203+ \301 \2069 b\2059 \302\304y!\2059 \301 \211\262\205#i\211\262\205#U?\205#\211V\205#W\203x b\203x \302\304y!\203x \301 \203x i\211W\203w \211\262`\262\210V\203\203 \305!\262\305!\262b\210\306\300w\210\211V\203 `V\203 i\307\310!\212b\210\311!\210\307`Sf\312=\203\264 \313\202\265 \314\205\272 \315P!\205\304 \316\225\316\224Z)\204\315 \211\202\334 \211\205\334 \212\317\300w\210\211iZZ)\211\203\211\316V\203\211\\\262V\203\374 \211ZZ\262\320\312\"\210\212\301 \321 !)=\204\322[!\210\266\317\300w\210\306\300w\210\202\217 \300\211\223\266\204)\207" [nil dired-move-to-filename zerop -1 1 copy-marker " " looking-at "[0-9]" move-to-column 32 " *" "[^ ]* *" "[0-9][^ ]*" 0 "^ " insert-char marker-position delete-char] 13 (#$ . 27681)])
#@79 Return non-nil if the string SWITCHES contains -b or --escape.
(fn SWITCHES)
(defalias 'dired-switches-escape-p #[257 "\300\301\"\207" [string-match "\\(\\`\\| \\)-[[:alnum:]]*b\\|--escape\\>"] 4 (#$ . 28729)])
#@436 Insert a directory listing of DIR, Dired style.
Use SWITCHES to make the listings.
If FILE-LIST is non-nil, list only those files.
Otherwise, if WILDCARD is non-nil, expand wildcards;
in that case, DIR should be a file name that uses wildcards.
In other cases, DIR should be a directory name or a directory filename.
If HDR is non-nil, insert a header line with the directory name.
(fn DIR SWITCHES &optional FILE-LIST WILDCARD HDR)
(defalias 'dired-insert-directory #[1282 "`\306!\307\307\262\310\311!\203 \203@ \n\312=\203/ \313 \307\211\211\314%\315=\211\204: \316\317!\210\2023 \n\204: \320!\203@ \321P\262\203e \211\203a \211@`\322 \307\211$\210\323`\"\266A\266\202\202E \210\202p \322\211?$\210\324\f!\204\272 \212\325 \262b\210\326\327\330#\203\226 \331\332\333\334\335\315\224!#\307\330#\210\202~ b\210\326\336\330#\203\261 \331\332\333\337\335\315\224!#\307\330#\210\202\231 \211\307\211\223\210)\202\316 \340\334\211\n\307\330%\262\340\341\342\n\307\330%\262\343`\"\210\212b\210\344\345!)\204\347 \307 \346`\347#\210)\212b\210\204\363 \203\f\344\350!\203\351\352\353!!\204\f\345\354\355\n!!\356\261\210\205\357\360 !\341\261*\207" [process-environment ls-lisp-use-insert-directory-program dired-use-ls-dired insert-directory-program dired-actual-switches indent-tabs-mode copy-sequence nil featurep ls-lisp unspecified call-process "--dired" 0 message "ls does not support --dired; see `dired-use-ls-dired' for more details." file-remote-p "--dired " insert-directory dired-align-file dired-switches-escape-p point-marker search-forward "\\" t replace-match apply propertize "\\\\" text-properties-at "
" "\\015" replace-regexp-in-string "\n" "\\n" dired-insert-set-properties looking-at " " indent-rigidly 2 "^ \\(.*\\):$" file-name-absolute-p match-string 1 directory-file-name file-name-directory ":\n" " wildcard " file-name-nondirectory] 16 (#$ . 28949)])
#@71 Add various text properties to the lines in the region.
(fn BEG END)
(defalias 'dired-insert-set-properties #[514 "\212b\210`W\205 \300\301\302D\303\301\304\300EDC\217\210\305y\210\202 )\207" [#1=#:err funcall #[0 "\300 \205 \301`\212\302 \210`)\303#\207" [dired-move-to-filename add-text-properties dired-move-to-end-of-filename (mouse-face highlight dired-filename t help-echo "mouse-2: visit this file in other window")] 4 "\n\n(fn)"] error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] 1] 8 (#$ . 30882)])
#@344 Reread the dired buffer.
Must also be called after `dired-actual-switches' have changed.
Should not fail even on completely garbaged buffers.
Preserves old cursor, marks/flags, hidden-p.
Dired sets `revert-buffer-function' to this function. The args
ARG and NOCONFIRM, passed from `revert-buffer', are ignored.
(fn &optional ARG NOCONFIRM)
(defalias 'dired-revert #[512 "~\210\305 \306 \307\310 \311!A\307\312eb\210\313ed\"\262 :\204& \314 !\210\202E \314 @!\210 A\211\203D \211@\315!\203= \314!\210A\266\202\202- \210\307 \316 \210\317!\210)\320!\210\321\304!\210\322!\210\212\211\203t \211@\323!\203m \324\325!\210A\266\202\202] \210)?\205~ \326\307!*\207" [dired-subdir-alist inhibit-read-only case-fold-search dired-directory dired-after-readin-hook buffer-modified-p dired-save-positions nil dired-remember-hidden reverse t dired-remember-marks dired-uncache file-name-absolute-p dired-readin dired-insert-old-subdirs dired-mark-remembered run-hooks dired-restore-positions dired-goto-subdir dired-hide-subdir 1 restore-buffer-modified-p] 11 (#$ . 31404)])
#@428 Return current positions in the buffer and all windows with this directory.
The positions have the form (BUFFER-POSITION WINDOW-POSITIONS).
BUFFER-POSITION is the point position in the current dired buffer.
It has the form (BUFFER DIRED-FILENAME BUFFER-POINT).
WINDOW-POSITIONS are current positions in all windows displaying
this dired buffer. The window positions have the form (WINDOW
DIRED-FILENAME WINDOW-POINT).
(fn)
(defalias 'dired-save-positions #[0 "p\300\301\302\"`E\303\304\305\301\306\302#\"D\207" [dired-get-filename nil t mapcar #[257 "\211\300!r\301\302\303\304\305\306!\307\"\310\311%DC\216\312@\313\"\210\314\315\316\"*\262\317!E\207" [internal--before-with-selected-window funcall make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 "\n\n(fn)" select-window norecord dired-get-filename nil t window-point] 10 "\n\n(fn W)"] get-buffer-window-list 0] 7 (#$ . 32490)])
#@70 Restore POSITIONS saved with `dired-save-positions'.
(fn POSITIONS)
(defalias 'dired-restore-positions #[257 "\211@\211@A@\203 \300A@!\204 \3018b\210\302 \210A@\211\205g \211@\303@!=\203` \304@!r\305\306\307\310\311\312!\313\"\301\314%DC\216\315@\316\"\210A@\203V \300A@!\204^ \3018b\210\302 \210*\210A\266\202\202 \262\207" [dired-goto-file 2 dired-move-to-filename window-buffer internal--before-with-selected-window funcall make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] "\n\n(fn)" select-window norecord] 13 (#$ . 33428)])
#@71 Return alist of files and their marks, from BEG to END.
(fn BEG END)
(defalias 'dired-remember-marks #[514 "\203 \303\304\305\306$\210)\307\211\211\212b\210\310\n\303#\2034 \311\307\303\"\211\262\203 h\262BB\262\202 )\207" [selective-display inhibit-read-only dired-re-mark t subst-char-in-region 13 10 nil re-search-forward dired-get-filename] 9 (#$ . 34020)])
#@103 Mark all files remembered in ALIST.
Each element of ALIST looks like (FILE . MARKERCHAR).
(fn ALIST)
(defalias 'dired-mark-remembered #[257 "\300\211\211\212\205+ @\262A\262@\262A\262\301!\203 \302 \210\303\304!\210\211c\210\202 )\207" [nil dired-goto-file beginning-of-line delete-char 1] 6 (#$ . 34405)])
#@59 Return a list of names of subdirs currently hidden.
(fn)
(defalias 'dired-remember-hidden #[0 "\301\211\211\203+ @@\262@A\262A\262b\210\302\301w\210g\303=\203 B\262\202 \207" [dired-subdir-alist nil "^
\n" 13] 6 (#$ . 34731)])
#@139 Try to insert all subdirs that were displayed before.
Do so according to the former subdir alist OLD-SUBDIR-ALIST.
(fn OLD-SUBDIR-ALIST)
(defalias 'dired-insert-old-subdirs #[257 "\301\302\"\2069 \303\211C\2057 @\262A\262\211@\240\210\304\305\306\307\310\311\312!\313\"\314\315%D\316\305\317\304EDC\217\210\202\n \266\202\207" [dired-actual-switches string-match "R" nil #1=#:err funcall make-byte-code 0 "\301\300@!\210\302\300@!\207" vconcat vector [dired-uncache dired-insert-subdir] 2 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 11 (#$ . 34980)])
#@58 Remove directory DIR from any directory cache.
(fn DIR)
(defalias 'dired-uncache #[257 "\300\301\"\211\205\f \211\301\"\207" [find-file-name-handler dired-uncache] 5 (#$ . 35566)])
#@40 Local keymap for `dired-mode' buffers.
(defvar dired-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\347#\210\303\350\351#\210\303\352\353#\210\303\354\355#\210\303\356\353#\210\303\357\360#\210\303\361\362#\210\303\363\364#\210\303\365\366#\210\303\367\370#\210\303\371\372#\210\303\373\374#\210\303\375\376#\210\303\377\201@ #\210\303\201A \201B #\210\303\201C \201D #\210\303\201E \201F #\210\303\201G \201H #\210\303\201I \201J #\210\303\201K \201L #\210\303\201M \201N #\210\303\201O \201P #\210\303\201Q \201R #\210\303\201S \201N #\210\303\201T \201U #\210\303\201V \201W #\210\303\201X \201B #\210\303\201Y \201Z #\210\303\201[ \201\\ #\210\303\201] \201^ #\210\303\201_ \201L #\210\303\201` \201a #\210\303\201b \201c #\210\303\201d \201e #\210\303\201f \201g #\210\303\201h \364#\210\303\201i \201j #\210\303\201k \201j #\210\303\201l \201m #\210\303\201n \201@ #\210\303\201o \376#\210\303\201p \201q #\210\303\201r \201s #\210\303\201t \201u #\210\303\201v \201w #\210\303\201x \201w #\210\303\201y \201w #\210\201z \201w \201{ \201y #\210\303\201| \201} #\210\303\201~ \201 #\210\303\201\200 \201\201 #\210\303\201\202 \201\203 #\210\303\201\204 \201\205 #\210\303\201\206 \201e #\210\303\201\207 \201\210 #\210\303\201\211 \201\212 #\210\303\201\213 \201\214 #\210\303\201\215 \201\216 #\210\303\201\217 \201\220 #\210\303\201\221 \201q #\210\303\201\222 \201g #\210\303\201\223 \201\224 #\210\303\201\225 \201\226 #\210\303\201\227 \201\230 #\210\303\201\231 \201\232 #\210\303\201\233 \201\234 #\210\303\201\235 \201\236 #\210\303\201\237 \201\240 #\210\303\201\241 \201\242 #\210\303\201\243 \201\210 #\210\303\201\244 \201\210 #\210\303\201\245 \201\216 #\210\303\201\246 \201\247 #\210\303\201\250 \201\251 #\210\303\201\252 \201\253 #\210\303\201\254 \201\255 #\210\303\201\256 \201\257 #\210\303\201\260 \201\261 #\210\303\201\262 \201\263 #\210\303\201\264 \201\263 #\210\303\201\265 \201\266 #\210\303\201\267 \201m #\210\303\201\270 \201\271 #\210\303\201\272 \201\271 #\210\303\201\273 \201\274 #\210\303\201\275 \201\276 #\210\303\201\277 \201\300 #\210\303\201\301 \201\302 #\210\303\201\303 \201\304 #\210\303\201\305 \201\306 #\210\303\201\307 \201\310 #\210\303\201\311 \201\312 #\210\303\201\313 \201\314 #\210\303\201\315 \201\316 #\210\303\201\317 \201\320 #\210\303\201\321 \201\322 #\210\303\201\323 \201\324 #\210\303\201\325 \201\326 #\210\303\201\327 \201\330 #\210\303\201\331 \201\332 #\210\303\201\333 \201\334 \201\335 \201\334 !B#\210\303\201\336 \201\337 #\210\303\201\340 \201\341 #\210\303\201\342 \201\343 #\210\303\201\344 \201\345 #\210\303\201\346 \201\347 #\210\303\201\350 \201\351 #\210\303\201\352 \201\353 #\210\303\201\354 \201\355 #\210\303\201\356 \201\357 #\210\303\201\360 \201\361 #\210\303\201\362 \201\363 \201\335 \201\363 !B#\210\303\201\364 \201\365 #\210\303\201\366 \201\367 #\210\303\201\370 \201\371 #\210\303\201\372 \201\373 #\210\303\201\374 \201\375 #\210\303\201\376 \201\377 #\210\303\201 \201#\210\303\201\201#\210\303\201\201#\210\303\201\201#\210\303\201\201 #\210\303\201\n\201 #\210\303\201\f\201
#\210\303\201\201#\210\303\201\201#\210\303\201\201#\210\303\201\201\201\335 \201!B#\210\303\201\201#\210\303\201\201#\210\303\201\201#\210\303\201 \201 #\210\303\201 \201 #\210\303\201 \201!#\210\303\201\"\201##\210\303\201$\201%#\210\303\201&\201'#\210\303\201(\201)#\210\303\201*\201+#\210\303\201,\201-\201\335 \201-!B#\210\303\201.\201/#\210\303\2010\2011#\210\303\2012\2013#\210\303\2014\2015#\210\303\2016\2017#\210\303\2018\2019#\210\303\201:\201;#\210\303\201<\201=#\210\303\201>\201?#\210\303\201@\201A#\210\303\201B\201C#\210\303\201D\201E#\210\303\201F\201G#\210\303\201H\201I#\210\303\201J\201K#\210\303\201L\201M\201\335 \201M!B#\210\303\201N\201O#\210\303\201P\201Q#\210\303\201R\201S#\210\303\201T\201U#\210\303\201V\201W#\210\303\201X\201Y#\210\303\201Z\201[#\210\303\201\\\201]#\210\303\201^\201_#\210\303\201`\201a#\210\303\201b\201c#\210\303\201d\201e#\210\303\201f\201g#\210\303\201h\201i#\210\303\201j\201k#\210\303\201l\201m#\210\303\201n\201o#\210\303\201p\201q#\210\303\201r\201s#\210\303\201t\201u#\210\303\201v\201w#\210\303\201x\201y#\210\303\201z\201{#\210\303\201|\201}#\210\303\201~\201#\210\303\201\200\201\201#\210\303\201\202\201\203#\210\303\201\204\201\205#\210\303\201\206\201\207#\210\211\207" [special-mode-map make-keymap set-keymap-parent define-key [mouse-2] dired-mouse-find-file-other-window [follow-link] mouse-face "#" dired-flag-auto-save-files "." dired-clean-directory "~" dired-flag-backup-files "A" dired-do-search "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 "Q" dired-do-query-replace-regexp "R" dired-do-rename "S" dired-do-symlink "T" dired-do-touch "X" dired-do-shell-command "Z" dired-do-compress "!" "&" dired-do-async-shell-command "=" dired-diff "\377" dired-unmark-all-files "\204" dired-tree-down "\225" dired-tree-up "\216" dired-next-subdir "\220" dired-prev-subdir "\373" dired-prev-marked-file "\375" dired-next-marked-file "%" nil "%u" dired-upcase "%l" dired-downcase "%d" dired-flag-files-regexp "%g" dired-mark-files-containing-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 "%&" dired-flag-garbage-files "*" "**" dired-mark-executables "*/" dired-mark-directories "*@" dired-mark-symlinks "*%" "*c" dired-change-marks "*s" dired-mark-subdir-files "*m" dired-mark "*u" dired-unmark "*?" "*!" dired-unmark-all-marks "U" "*" dired-unmark-backward "*" "*" "*t" dired-toggle-marks "a" dired-find-alternate-file "d" dired-flag-file-deletion "e" dired-find-file "f" "
" put :advertised-binding "g" revert-buffer "i" dired-maybe-insert-subdir "j" dired-goto-file "k" dired-do-kill-lines "l" dired-do-redisplay "m" "n" dired-next-line "o" dired-find-file-other-window "" dired-display-file "p" dired-previous-line "s" dired-sort-toggle-or-edit "t" "u" "v" dired-view-file "w" dired-copy-filename-as-kill "x" dired-do-flagged-delete "y" dired-show-file-type "+" dired-create-directory "<" dired-prev-dirline ">" dired-next-dirline "^" dired-up-directory " " [remap next-line] [remap previous-line] "$" dired-hide-subdir "\244" dired-hide-all [134217843 97 19] dired-do-isearch [134217843 97 134217747] dired-do-isearch-regexp [134217843 102 19] dired-isearch-filenames [134217843 102 134217747] dired-isearch-filenames-regexp [remap read-only-mode] dired-toggle-read-only [remap toggle-read-only] "?" dired-summary "" [remap undo] dired-undo [remap advertised-undo] "d" image-dired-display-thumbs "t" image-dired-tag-files "r" image-dired-delete-tag "j" image-dired-jump-thumbnail-buffer "i" image-dired-dired-display-image "x" image-dired-dired-display-external "a" image-dired-display-thumbs-append "." image-dired-display-thumb "c" image-dired-dired-comment-files "f" image-dired-mark-tagged-files "" image-dired-dired-toggle-marked-thumbs "e" image-dired-dired-edit-comment-and-tags ":d" epa-dired-do-decrypt ":v" epa-dired-do-verify ":s" epa-dired-do-sign ":e" epa-dired-do-encrypt [menu-bar subdir] "Subdir" make-sparse-keymap [menu-bar subdir hide-all] (menu-item "Hide All" dired-hide-all :help "Hide all subdirectories, leave only header lines") [menu-bar subdir hide-subdir] (menu-item "Hide/UnHide Subdir" dired-hide-subdir :help "Hide or unhide current directory listing") [menu-bar subdir tree-down] (menu-item "Tree Down" dired-tree-down :help "Go to first subdirectory header down the tree") [menu-bar subdir tree-up] (menu-item "Tree Up" dired-tree-up :help "Go to first subdirectory header up the tree") [menu-bar subdir up] (menu-item "Up Directory" dired-up-directory :help "Edit the parent directory") [menu-bar subdir prev-subdir] (menu-item "Prev Subdir" dired-prev-subdir :help "Go to previous subdirectory header line") [menu-bar subdir next-subdir] (menu-item "Next Subdir" dired-next-subdir :help "Go to next subdirectory header line") [menu-bar subdir prev-dirline] (menu-item "Prev Dirline" dired-prev-dirline :help "Move to next directory-file line") [menu-bar subdir next-dirline] (menu-item "Next Dirline" dired-next-dirline :help "Move to previous directory-file line") [menu-bar subdir insert] (menu-item "Insert This Subdir" dired-maybe-insert-subdir :help "Insert contents of subdirectory" :enable (let ((f (dired-get-filename nil t))) (and f (file-directory-p f)))) [menu-bar immediate] "Immediate" [menu-bar immediate image-dired-dired-display-external] (menu-item "Display Image Externally" image-dired-dired-display-external :help "Display image in external viewer") [menu-bar immediate image-dired-dired-display-image] (menu-item "Display Image" image-dired-dired-display-image :help "Display sized image in a separate window") [menu-bar immediate image-dired-dired-toggle-marked-thumbs] (menu-item "Toggle Image Thumbnails in This Buffer" image-dired-dired-toggle-marked-thumbs :help "Add or remove image thumbnails in front of marked file names") [menu-bar immediate revert-buffer] (menu-item "Refresh" revert-buffer :help "Update contents of shown directories") [menu-bar immediate dashes] ("--") [menu-bar immediate isearch-filenames-regexp] (menu-item "Isearch Regexp in File Names..." dired-isearch-filenames-regexp :help "Incrementally search for regexp in file names only") [menu-bar immediate isearch-filenames] (menu-item "Isearch in File Names..." dired-isearch-filenames :help "Incrementally search for string in file names only.") [menu-bar immediate compare-directories] (menu-item "Compare Directories..." dired-compare-directories :help "Mark files with different attributes in two dired buffers") [menu-bar immediate backup-diff] (menu-item "Compare with Backup" dired-backup-diff :help "Diff file at cursor with its latest backup") [menu-bar immediate diff] (menu-item "Diff..." dired-diff :help "Compare file at cursor with another file") [menu-bar immediate view] (menu-item "View This File" dired-view-file :help "Examine file at cursor in read-only mode") [menu-bar immediate display] (menu-item "Display in Other Window" dired-display-file :help "Display file at cursor in other window") [menu-bar immediate find-file-other-window] (menu-item "Find in Other Window" dired-find-file-other-window :help "Edit file at cursor in other window") [menu-bar immediate find-file] (menu-item "Find This File" dired-find-file :help "Edit file at cursor") [menu-bar immediate create-directory] (menu-item "Create Directory..." dired-create-directory :help "Create a directory") [menu-bar immediate wdired-mode] (menu-item "Edit File Names" wdired-change-to-wdired-mode :help "Put a dired buffer in a mode in which filenames are editable" :keys "C-x C-q" :filter (lambda (x) (if (eq major-mode 'dired-mode) x))) [menu-bar regexp] "Regexp" [menu-bar regexp image-dired-mark-tagged-files] (menu-item "Mark From Image Tag..." image-dired-mark-tagged-files :help "Mark files whose image tags matches regexp") [menu-bar regexp dashes-1] ("--") [menu-bar regexp downcase] (menu-item "Downcase" dired-downcase :enable (or (not (fboundp 'msdos-long-file-names)) (msdos-long-file-names)) :help "Rename marked files to lower-case name") [menu-bar regexp upcase] (menu-item "Upcase" dired-upcase :enable (or (not (fboundp 'msdos-long-file-names)) (msdos-long-file-names)) :help "Rename marked files to upper-case name") [menu-bar regexp hardlink] (menu-item "Hardlink..." dired-do-hardlink-regexp :help "Make hard links for files matching regexp") [menu-bar regexp symlink] (menu-item "Symlink..." dired-do-symlink-regexp :visible (fboundp 'make-symbolic-link) :help "Make symbolic links for files matching regexp") [menu-bar regexp rename] (menu-item "Rename..." dired-do-rename-regexp :help "Rename marked files matching regexp") [menu-bar regexp copy] (menu-item "Copy..." dired-do-copy-regexp :help "Copy marked files matching regexp") [menu-bar regexp flag] (menu-item "Flag..." dired-flag-files-regexp :help "Flag files matching regexp for deletion") [menu-bar regexp mark] (menu-item "Mark..." dired-mark-files-regexp :help "Mark files matching regexp for future operations") [menu-bar regexp mark-cont] (menu-item "Mark Containing..." dired-mark-files-containing-regexp :help "Mark files whose contents matches regexp") [menu-bar mark] "Mark" [menu-bar mark prev] (menu-item "Previous Marked" dired-prev-marked-file :help "Move to previous marked file") [menu-bar mark next] (menu-item "Next Marked" dired-next-marked-file :help "Move to next marked file") [menu-bar mark marks] (menu-item "Change Marks..." dired-change-marks :help "Replace marker with another character") [menu-bar mark unmark-all] (menu-item "Unmark All" dired-unmark-all-marks) [menu-bar mark symlinks] (menu-item "Mark Symlinks" dired-mark-symlinks :visible (fboundp 'make-symbolic-link) :help "Mark all symbolic links") [menu-bar mark directories] (menu-item "Mark Directories" dired-mark-directories :help "Mark all directories except `.' and `..'") [menu-bar mark directory] (menu-item "Mark Old Backups" dired-clean-directory :help "Flag old numbered backups for deletion") [menu-bar mark executables] (menu-item "Mark Executables" dired-mark-executables :help "Mark all executable files") [menu-bar mark garbage-files] (menu-item "Flag Garbage Files" dired-flag-garbage-files :help "Flag unneeded files for deletion") [menu-bar mark backup-files] (menu-item "Flag Backup Files" dired-flag-backup-files :help "Flag all backup files for deletion") [menu-bar mark auto-save-files] (menu-item "Flag Auto-save Files" dired-flag-auto-save-files :help "Flag auto-save files for deletion") [menu-bar mark deletion] (menu-item "Flag" dired-flag-file-deletion :help "Flag current line's file for deletion") [menu-bar mark unmark] (menu-item "Unmark" dired-unmark :help "Unmark or unflag current line's file") [menu-bar mark mark] (menu-item "Mark" dired-mark :help "Mark current line's file for future operations") [menu-bar mark toggle-marks] (menu-item "Toggle Marks" dired-toggle-marks :help "Mark unmarked files, unmark marked ones") [menu-bar operate] "Operate" [menu-bar operate image-dired-delete-tag] (menu-item "Delete Image Tag..." image-dired-delete-tag :help "Delete image tag from current or marked files") [menu-bar operate image-dired-tag-files] (menu-item "Add Image Tags..." image-dired-tag-files :help "Add image tags to current or marked files") [menu-bar operate image-dired-dired-comment-files] (menu-item "Add Image Comment..." image-dired-dired-comment-files :help "Add image comment to current or marked files") [menu-bar operate image-dired-display-thumbs] (menu-item "Display Image Thumbnails" image-dired-display-thumbs :help "Display image thumbnails for current or marked image files") [menu-bar operate dashes-4] ("--") [menu-bar operate epa-dired-do-decrypt] (menu-item "Decrypt..." epa-dired-do-decrypt :help "Decrypt file at cursor") [menu-bar operate epa-dired-do-verify] (menu-item "Verify" epa-dired-do-verify :help "Verify digital signature of file at cursor") [menu-bar operate epa-dired-do-sign] (menu-item "Sign..." epa-dired-do-sign :help "Create digital signature of file at cursor") [menu-bar operate epa-dired-do-encrypt] (menu-item "Encrypt..." epa-dired-do-encrypt :help "Encrypt file at cursor") [menu-bar operate dashes-3] ("--") [menu-bar operate query-replace] (menu-item "Query Replace in Files..." dired-do-query-replace-regexp :help "Replace regexp in marked files") [menu-bar operate search] (menu-item "Search Files..." dired-do-search :help "Search marked files for regexp") [menu-bar operate isearch-regexp] (menu-item "Isearch Regexp Files..." dired-do-isearch-regexp :help "Incrementally search marked files for regexp") [menu-bar operate isearch] (menu-item "Isearch Files..." dired-do-isearch :help "Incrementally search marked files for string") [menu-bar operate chown] (menu-item "Change Owner..." dired-do-chown :visible (not (memq system-type '(ms-dos windows-nt))) :help "Change the owner of marked files") [menu-bar operate chgrp] (menu-item "Change Group..." dired-do-chgrp :visible (not (memq system-type '(ms-dos windows-nt))) :help "Change the group of marked files") [menu-bar operate chmod] (menu-item "Change Mode..." dired-do-chmod :help "Change mode (attributes) of marked files") [menu-bar operate touch] (menu-item "Change Timestamp..." dired-do-touch :help "Change timestamp of marked files") [menu-bar operate load] (menu-item "Load" dired-do-load :help "Load marked Emacs Lisp files") [menu-bar operate compile] (menu-item "Byte-compile" dired-do-byte-compile :help "Byte-compile marked Emacs Lisp files") [menu-bar operate compress] (menu-item "Compress" dired-do-compress :help "Compress/uncompress marked files") [menu-bar operate print] (menu-item "Print..." dired-do-print :help "Ask for print command and print marked files") [menu-bar operate hardlink] (menu-item "Hardlink to..." dired-do-hardlink :help "Make hard links for current or marked files") [menu-bar operate symlink] (menu-item "Symlink to..." dired-do-symlink :visible (fboundp 'make-symbolic-link) :help "Make symbolic links for current or marked files") [menu-bar operate async-command] (menu-item "Asynchronous Shell Command..." dired-do-async-shell-command :help "Run a shell command asynchronously on current or marked files") [menu-bar operate command] (menu-item "Shell Command..." dired-do-shell-command :help "Run a shell command on current or marked files") [menu-bar operate delete] (menu-item "Delete" dired-do-delete :help "Delete current file or all marked files") [menu-bar operate rename] (menu-item "Rename to..." dired-do-rename :help "Rename current file or move marked files") [menu-bar operate copy] (menu-item "Copy to..." dired-do-copy :help "Copy current file or all marked files")] 7) (#$ . 35756))
(put 'dired-mode 'mode-class 'special)
#@2967 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>
The buffer is read-only. Digits are prefix arguments.
Type \[dired-flag-file-deletion] to flag a file `D' 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 an inserted subdirectory.
Type \[dired-unmark-backward] to back up one line and unmark or unflag.
Type \[dired-do-flagged-delete] to delete (eXecute) the files flagged `D'.
Type \[dired-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.
Use `SPC' and `DEL' 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 the file at point 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-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}
(fn &optional DIRNAME SWITCHES)
(defalias 'dired-mode #[512 "\306 \210\307!\210\310 \210\311\312\313\211\314\315!\316\317!\210\320\316\321!\210\322\316\323!\210\324\316\325!\210\2065 *\326<\203D @\202F !+\316\327!\210\211\206S ,\316\330!\210\331\316\332!\210\333\334-\335 \210\336\313\"\210\337\340!\203\201 \316\341!\210\342.!\"!\343\344\345\334\313$\210\343\346\347\334\313$\210\350\351!\207" [dired-mode-map major-mode mode-name buffer-read-only selective-display mode-line-buffer-identification kill-all-local-variables use-local-map dired-advertise dired-mode "Dired" t propertized-buffer-identification "%17b" make-local-variable revert-buffer-function dired-revert buffer-stale-function dired-buffer-stale-p page-delimiter "\n\n" dired-directory expand-file-name dired-actual-switches font-lock-defaults (dired-font-lock-keywords t nil nil beginning-of-line) desktop-save-buffer dired-desktop-buffer-misc-data nil hack-dir-local-variables-non-file-buffer dired-sort-other featurep dnd dnd-protocol-alist append add-hook file-name-at-point-functions dired-file-name-at-point isearch-mode-hook dired-isearch-filenames-setup run-mode-hooks dired-mode-hook default-directory list-buffers-directory dired-listing-switches dired-switches-alist dired-dnd-protocol-alist] 8 (#$ . 54346)])
#@68 Summarize basic Dired commands and show recent dired errors.
(fn)
(defalias 'dired-summary #[0 "\300 \210\301\302!\207" [dired-why message "d-elete, u-ndelete, x-punge, f-ind, o-ther window, R-ename, C-opy, h-elp"] 2 (#$ . 58610) nil])
#@167 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.
(fn)
(defalias 'dired-undo #[0 "\301\302 \210)\303 \210\304\305!\207" [inhibit-read-only t undo dired-build-subdir-alist message "Change in dired buffer undone.\nActual changes in files cannot be undone by Emacs."] 2 (#$ . 58854) nil])
#@221 Edit Dired buffer with Wdired, or make it read-only.
If the current buffer can be edited with Wdired, (i.e. the major
mode is `dired-mode'), call `wdired-change-to-wdired-mode'.
Otherwise, call `toggle-read-only'.
(fn)
(defalias 'dired-toggle-read-only #[0 "\300\301!\203 \302 \207\303\304!\207" [derived-mode-p dired-mode wdired-change-to-wdired-mode read-only-mode toggle] 2 (#$ . 59259) nil])
#@124 Move down lines then position at filename.
Optional prefix ARG says how many lines to move; default is one line.
(fn ARG)
(defalias 'dired-next-line #[257 "\211y\210\300 \207" [dired-move-to-filename] 2 (#$ . 59664) "p"])
#@122 Move up lines then position at filename.
Optional prefix ARG says how many lines to move; default is one line.
(fn ARG)
(defalias 'dired-previous-line #[257 "\211[y\210\300 \207" [dired-move-to-filename] 2 (#$ . 59894) "p"])
#@66 Goto ARG'th next directory file line.
(fn ARG &optional OPOINT)
(defalias 'dired-next-dirline #[513 "\211\204 `\262\301V\203 \302\303\304$\202 \305 \210\306\303\304[$\203& \307 \207\211b\210\310\311!\207" [dired-re-dir 0 re-search-forward nil t beginning-of-line re-search-backward dired-move-to-filename error "No more subdirectories"] 7 (#$ . 60126) "p"])
#@53 Goto ARG'th previous directory file line.
(fn ARG)
(defalias 'dired-prev-dirline #[257 "\300[!\207" [dired-next-dirline] 3 (#$ . 60500) "p"])
#@180 Run Dired on parent directory of current directory.
Find the parent directory either in this buffer or another buffer.
Creates a buffer if necessary.
(fn &optional OTHER-WINDOW)
(defalias 'dired-up-directory #[256 "\301 \302\303!!\304\303!!\206, A\203 \305!\206, \203% \306!\210\202) \307!\210\304!\207" [dired-subdir-alist dired-current-directory file-name-directory directory-file-name dired-goto-file dired-goto-subdir dired-other-window dired] 6 (#$ . 60651) "P"])
#@79 Get the current line's file name, with an error if file does not exist.
(fn)
(defalias 'dired-get-file-for-visit #[0 "\300\301\302\"\301\204
\303\304!\210\305\302\"\262\306!\203 \211\202, \307!\203) \303\310!\202, \303\311!\207" [dired-get-filename nil t error "No file on this line" file-name-sans-versions file-exists-p file-symlink-p "File is a symlink to a nonexistent target" "File no longer exists; type `g' to update dired buffer"] 5 (#$ . 61136) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias dired-advertised-find-file dired-find-file nil make-obsolete "23.2"] 4)
#@65 In Dired, visit the file or directory named on this line.
(fn)
(defalias 'dired-find-file #[0 "\301\302\303 !)\207" [find-file-run-dired t find-file dired-get-file-for-visit] 2 (#$ . 61748) nil])
#@75 In Dired, visit this file or directory instead of the dired buffer.
(fn)
(defalias 'dired-find-alternate-file #[0 "\300\301!\210\302\303 !\207" [set-buffer-modified-p nil find-alternate-file dired-get-file-for-visit] 2 (#$ . 61952) nil])
#@70 In Dired, visit the file or directory name you click on.
(fn EVENT)
(defalias 'dired-mouse-find-file-other-window #[257 "\302\211\211\212\303!\211@)\262\303!\3048\206( A@:\203% A@@\202( A@)\262\305!\2045 \306\307!\210\310!q\210b\210\311 \262)\312!\203] A\203S \313!\206g \314!\210\315!\202g \314!\210\316\317\320\"!\207" [position dired-subdir-alist nil event-end 5 windowp error "No file chosen" window-buffer dired-get-file-for-visit file-directory-p dired-goto-subdir select-window dired-other-window find-file-other-window file-name-sans-versions t] 9 (#$ . 62197) "e"])
#@185 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.
(fn)
(defalias 'dired-view-file #[0 "\301 \302!\203 A\203 \303!\206 \304!\202 \305!\207" [dired-subdir-alist dired-get-file-for-visit file-directory-p dired-goto-subdir dired view-file] 3 (#$ . 62801) nil])
#@65 In Dired, visit this file or directory in another window.
(fn)
(defalias 'dired-find-file-other-window #[0 "\300\301 !\207" [find-file-other-window dired-get-file-for-visit] 2 (#$ . 63202) nil])
#@67 In Dired, display this file or directory in another window.
(fn)
(defalias 'dired-display-file #[0 "\300\301\302 !!\207" [display-buffer find-file-noselect dired-get-file-for-visit] 3 (#$ . 63404) nil])
#@616 In Dired, return name of file mentioned on this line.
Value returned normally includes the directory name.
Optional arg LOCALP with value `no-dir' means don't include directory
name in result. A value of `verbatim' means to return the name exactly as
it occurs in the buffer, and a value of t means construct name relative to
`default-directory', which still may contain slashes if in a subdirectory.
Optional arg NO-ERROR-IF-NOT-FILEP means treat `.' and `..' as
regular filenames and return nil if no filename on this line.
Otherwise, an error occurs in these cases.
(fn &optional LOCALP NO-ERROR-IF-NOT-FILEP)
(defalias 'dired-get-filename #[512 "\304\211\211\211\211\304\262\212\305?!\211\262\203 \306!\262)\205( \205( {\211\262\203\311 \307\310G\304$\210\311\312\"\203K \313\314\304\315\316%\262\2027 \317 !\203 \310\320\321 \322=\203a \323\262\316\262\311\324#\203} \313\304\315\n\316%\262\211\310\225\\\262\202a \266\n\325=\203\262 \326 \327\330\310\331\332\333!\334\"\335\336%DC\216\310\311\323#\203\257 \310\224\337I\210\310\225\262\202\231 \210)\210\340\341\341Q!\262 \203\311 \342!\204\311 \343!\262\203\336 \344!\203\336 \310H\345=\204\336 \315\262\204\346 \304\202j\322=\203\361 \202j\204\346\235\203\347\350!\202j\351=\203\211\203\352!\202j\211\2030\353\304\"\211\203*\211\354N\204*\355P\202+\262\202j\351=\203;\202j\356 \357\232\203d\356!P\262\353\304\"\211\203^\211\354N\204^\355P\202_\262\202j\356!P)\207" [case-fold-search dired-actual-switches system-type enable-multibyte-characters nil dired-move-to-filename dired-move-to-end-of-filename set-text-properties 0 string-match "\\(?:[^\\]\\|\\`\\)\\(\"\\)" replace-match "\\\"" t 1 dired-switches-escape-p "" -1 verbatim "\\\\" "\\(\\\\\\) " windows-nt match-data funcall make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" 47 read "\"" multibyte-string-p string-to-multibyte file-name-absolute-p 126 ("." "..") error "Cannot operate on `.' or `..'" no-dir file-name-nondirectory find-file-name-handler safe-magic "/:" dired-current-directory "/"] 16 (#$ . 63615)])
#@277 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.
(fn REGEXP STRING NEWTEXT &optional LITERAL GLOBAL)
(defalias 'dired-string-replace-match #[1283 "\211\203/ \300\301\302#\203. G\300\225Z\303\304\n$\211\262\262GZ\262\210\202 \207\302\300#\205> \303\304$\207" [0 nil string-match replace-match t] 13 (#$ . 65798)])
(defalias 'dired-make-absolute #[513 "\211\206 P\207" [default-directory] 4 "\n\n(fn FILE &optional DIR)"])
#@220 Convert FILE (an absolute file name) to a name relative to DIR.
If DIR is omitted or nil, it defaults to `default-directory'.
If FILE is not in the directory tree of DIR, return FILE
unchanged.
(fn FILE &optional DIR)
(defalias 'dired-make-relative #[513 "\211\204 \262\211G\301V\203 \211\301H\302U\203 \303!\262\304\305\306!P\"\203, \301\225\307O\207\207" [default-directory 0 126 expand-file-name string-match "^" regexp-quote nil] 6 (#$ . 66428)])
#@62 Regular expression to match the permission flags in `ls -l'.
(defvar dired-permission-flags-regexp "\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)[-r][-w]\\([^ ]\\)" (#$ . 66897))
#@168 Move to the beginning of the filename on the current line.
Return the position of the beginning of the filename, or nil if none found.
(fn &optional RAISE-ERROR EOL)
(defalias 'dired-move-to-filename #[512 "\211\204 \302 \262\303 \210\304`\305\306$\211\203 \211W\203 \211b\202L \307\310#\203. \311\225b\202L \307 \310#\203E \203> \312\313!\210\303 \210\306\202L \205L \312\314!\207" [directory-listing-before-filename-regexp dired-permission-flags-regexp line-end-position beginning-of-line next-single-property-change dired-filename nil re-search-forward t 0 error "Unrecognized line! Check directory-listing-before-filename-regexp" "No file on this line"] 7 (#$ . 67084)])
(defalias 'dired-move-to-end-of-filename #[256 "\305`\306\"\203
\307`\306\"b\207\310\211\211\211\211\211\211\211\310\262\311\312 \"\262`\262\313 \262\n\2052 \212\314\315\316#)\262\204\244 \212\317 \310\316#\203b \320\224f\262\321=\262\205] \311\322\323\324!\323\325!\323\326!Q\"\262\202k \204k \327\330!\210)\203\217 \314\331\316#\203\244 \332u\210\203\244 \f\203\244 h\333=\203\244 \334u\210\202\244 \211b\210\203\244 \335>\204\241 \203\244 \334u\210\204\277 `=\203\277 \327\336\203\274 \337\340!\202\275 \330\"\210`=?\205\310 `)\207" [case-fold-search dired-actual-switches selective-display dired-permission-flags-regexp dired-ls-F-marks-symlinks get-text-property dired-filename next-single-property-change nil string-match "F" line-end-position search-forward "
" t re-search-backward 1 108 "[xst]" match-string 2 3 4 error "No file on this line" " -> " -4 64 -1 (100 115 112) "%s" substitute-command-keys "File line is hidden, type \\[dired-hide-subdir] to unhide"] 15 "\n\n(fn &optional NO-ERROR)"])
#@527 Copy names of marked (or next ARG) files into the kill ring.
The names are separated by a space.
With a zero prefix arg, use the absolute file name of each marked file.
With \[universal-argument], use the file name relative to the dired buffer's
`default-directory'. (This still may contain slashes if in a subdirectory.)
If on a subdir headerline, use absolute subdirname instead;
prefix arg and marked files are ignored in this case.
You can then feed the file name(s) to other commands with \[yank].
(fn &optional ARG)
(defalias 'dired-copy-filename-as-kill #[256 "\301 \2061 \302\303\203, \304\305!!\203 \306 \202/ :\203# \306\307!\202/ \306\310\305!\"\202/ \306\310!\311#\312=\203? \313\314\"\210\202C \315!\210\316\317\"\207" [last-command dired-get-subdir mapconcat identity zerop prefix-numeric-value dired-get-marked-files t no-dir " " kill-region kill-append nil kill-new message "%s"] 7 (#$ . 68818) "P"])
(defalias 'dired-buffers-for-dir #[513 "\303!\262\304\211\211\203l \211@\211A\262\305!\204 \306\"\202e \307@\"\203e rq\210\310 \"\203d \203_ \n;\203T \311\n!\211G\312U\206O \313\314!\"\262\202\\ \315\"\nA\235\203d B\262)A\266\202\202 \210\207" [dired-buffers dired-subdir-alist dired-directory file-name-as-directory nil buffer-name delq dired-in-this-tree assoc file-name-nondirectory 0 string-match dired-glob-regexp expand-file-name] 10 "\n\n(fn DIR &optional FILE)"])
#@69 Convert glob-pattern PATTERN to a regular expression.
(fn PATTERN)
(defalias 'dired-glob-regexp #[257 "\300\301\302\303#\203v \300\225\300\224H\304\300\224O!P\262\211\305U\203. \306P\262\262\202q \211\307U\203c \300\224TH\310U\203E \311\\\202H \312\\\302\313#TOP\262T\262\266\202q \211\314U\203q \315P\262\262\266\202 \316\304\301O!\317R\207" [0 nil string-match "[[?*]" regexp-quote 63 "." 91 94 3 2 "]" 42 ".*" "\\`" "\\'"] 11 (#$ . 70255)])
(defalias 'dired-advertise #[0 "\302!p\303!>\203 \304\202 \211pB B\211\207" [default-directory dired-buffers expand-file-name dired-buffers-for-dir t] 4 "\n\n(fn)"])
(defalias 'dired-unadvertise #[257 "\301\302\303!\"\"\211\207" [dired-buffers delq assoc expand-file-name] 5 "\n\n(fn DIR)"])
(defalias 'dired-in-this-tree #[514 "\301\302\303\304!P\")\207" [case-fold-search nil string-match "^" regexp-quote] 6 "\n\n(fn FILE DIR)"])
(defalias 'dired-normalize-subdir #[257 "\301\302!\203 \202 \303\"!\207" [default-directory file-name-as-directory file-name-absolute-p expand-file-name] 5 "\n\n(fn DIR)"])
(defalias 'dired-get-subdir #[0 "\212\301 \302 \210\303`\304\305\"!Z!\205 \211\262)\207" [dired-subdir-alist dired-current-directory beginning-of-line zerop dired-get-subdir-min assoc] 7 "\n\n(fn)"])
(defalias 'dired-get-subdir-min 'cdr)
(defalias 'dired-get-subdir-max #[257 "\212\300!b\210\301 )\207" [dired-get-subdir-min dired-subdir-max] 3 "\n\n(fn ELT)"])
(defalias 'dired-clear-alist #[0 "\205 \301@!\302\211\223\210A\211\204 \302\207" [dired-subdir-alist dired-get-subdir-min nil] 4 "\n\n(fn)"])
(defalias 'dired-subdir-index #[257 "\301\302\211\203# @@\230\203 \301\262\303\262\202 \211A\262T\262\202 \205( \207" [dired-subdir-alist nil 0 t] 6 "\n\n(fn DIR)"])
#@97 Go to next subdirectory, regardless of level.
(fn ARG &optional NO-ERROR-IF-NOT-FOUND NO-SKIP)
(defalias 'dired-next-subdir #[769 "\301 \302\211\303!Z\262\211\304Y\205 \3058!\262\203, b\210\204( \306\302w\210`\202@ ?\205@ \307\310\304V\203> \311\202? \312\"\207" [dired-subdir-alist dired-current-directory nil dired-subdir-index 0 dired-get-subdir-min "^\n
" error "%s directory" "Last" "First"] 10 (#$ . 72064) "p"])
#@199 Build `dired-subdir-alist' by parsing the buffer.
Returns the new value of the alist.
If optional arg SWITCHES is non-nil, use its value
instead of `dired-actual-switches'.
(fn &optional SWITCHES)
(defalias 'dired-build-subdir-alist #[256 "\306 \210\212\307\310\211\206 \n\311\312\313\"\205# \312\314 \"\205# \315\316\317 \"Peb\210\311\320
\311\310#\203\365 \212\307\224b\210\321 \210\322u\210\323 \324\325\307\326\327\330!\331\"\332\333%DC\216\334.!)\262)\204( \212\317\224b\210\335`\317\225\"\262\323 \324\325\307\326\327\330!\336\"\332\333%DC\216\203\223 \230\204\223 \312\"\203\223 \307\225\311OP\202\226 \337!)\262\262`\317\225|\210c\210)T\262\340!\203\343 \341\311 / 0 1\310 2\31210/#,\203\343 \311C\311C\342\325\343\344\327\330\"\345\"\346\347%\"\210\211@\262\266\350\212\307\224b\210\321 \210\351 )\"\210\202( \317V\203\352\353!\203\354\355\"\210*\266\f)\207" [inhibit-read-only buffer-undo-list dired-actual-switches default-directory dired-subdir-alist dired-subdir-regexp dired-clear-alist 0 t nil string-match "R" "\\`/.*:\\(/.*\\)" "\\`" match-string 1 re-search-forward beginning-of-line 2 match-data funcall make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" looking-at buffer-substring-no-properties [set-match-data evaporate] expand-file-name dired-switches-escape-p "\\\\" mapc 257 "\211\302\232\203 \300@\203 \301\211@\303P\240\210\300\304\240\207\300\303\240\207\300@\2030 \211\305\232\2030 \301\211@\306P\240\210\300\304\240\207\301\211@\300@\307!Q\240\210\300\304\240\207" [92 "\\" nil 110 "\n" char-to-string] 6 "\n\n(fn CHAR)" dired-alist-add-1 point-marker called-interactively-p interactive message "Buffer includes %d directories" dired-re-perms start string regexp inhibit-changing-match-data] 16 (#$ . 72505) nil])
(defalias 'dired-alist-add-1 #[514 "\301!BB\211\207" [dired-subdir-alist dired-normalize-subdir] 4 "\n\n(fn DIR NEW-MARKER)"])
(defalias 'dired-goto-next-nontrivial-file #[0 "\301 \210;\205& m?\205& \302\303\304\305\306\"\206 \307!\"\205& \310y\210\311 \210\202 \207" [dired-trivial-filenames dired-goto-next-file string-match file-name-nondirectory dired-get-filename nil t "" 1 dired-move-to-filename] 6 "\n\n(fn)"])
(defalias 'dired-goto-next-file #[0 "\300 S\301 ?\205 `W\205 \302y\210\202 \207" [dired-subdir-max dired-move-to-filename 1] 3 "\n\n(fn)"])
#@66 Go to line describing file FILE in this dired buffer.
(fn FILE)
(defalias 'dired-goto-file #[257 "\303!\204 \304\305\"\210\306!\262\307\310!\212eb\210\311\211d#)\206D \212\211\312 !\230\2030 eb\2028 \nA\205C \313!\205C \311\314!\315 #)\211\205J \211b)\207" [case-fold-search default-directory dired-subdir-alist file-name-absolute-p error "File name `%s' is not absolute" directory-file-name nil file-name-directory dired-goto-file-1 expand-file-name dired-goto-subdir file-name-nondirectory dired-subdir-max] 6 (#$ . 74916) (byte-code "\300\301\302\303 \"!C\304 \210\207" [expand-file-name read-file-name "Goto file: " dired-current-directory push-mark] 4)])
#@386 Advance to the Dired listing labeled by FILE; return its position.
Return nil if the listing is not found. If FILE contains
characters that would not appear in a Dired buffer, search using
the quoted forms of those characters.
FULL-NAME specifies the actual file name the listing must have,
as returned by `dired-get-filename'. LIMIT is the search limit.
(fn FILE FULL-NAME LIMIT)
(defalias 'dired-goto-file-1 #[771 "\301\302\303\304\301\305%\262\302\306\211\301\305%\262\307!\203< \310\311\"\203< \302\312\313\301\305%\262\302\314\315\301\305%\262\302\316\317\301\305%\262\301\312P\204b \320\321#\203b \322\301\305\"\232\203\\ \323 \262\202@ \324y\210\202@ \266\202\207" [dired-actual-switches nil replace-regexp-in-string "
" "\\^m" t "\\\\" dired-switches-escape-p string-match "[ \n]" " " "\\ " " " "\\t" "\n" "\\n" search-forward move dired-get-filename dired-move-to-filename 1] 10 (#$ . 75595)])
#@113 Where point should go in a new listing of DIRNAME.
Point assumed at beginning of new subdir line.
(fn DIRNAME)
(defalias 'dired-initial-position #[257 "\302\210\303\304!\203 \203 \305!\210 \205 \306 \207" [dired-find-subdir dired-trivial-filenames nil featurep dired-x dired-goto-subdir dired-goto-next-nontrivial-file] 3 (#$ . 76530)])
#@233 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'.
(fn &optional LOCALP)
(defalias 'dired-current-directory #[256 "`\206 \302\303p\"\304\211\203' @\262@\262\305!X?\205\" A\262\202 \2032 \306 \"\2023 \211\207" [dired-subdir-alist default-directory error "No subdir-alist in %s" nil dired-get-subdir-min dired-make-relative] 8 (#$ . 76881)])
(defalias 'dired-subdir-max #[0 "\212A\203 \301\302\303\211#\204 d\202 `)\207" [dired-subdir-alist dired-next-subdir 1 t] 4 "\n\n(fn)"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable dired-recursive-deletes funcall function #[0 "\300\207" [top] 1 "\n\n(fn)"] "Whether Dired deletes directories recursively.\nIf nil, Dired will not delete non-empty directories.\n`always' means to delete non-empty directories recursively,\nwithout asking. This is dangerous!\n`top' means to ask for each top-level directory specified by the\nDired deletion command, and delete its subdirectories without\nasking.\nAny other value means to ask for each directory." :type (choice :tag "Delete non-empty directories" (const :tag "Yes" always) (const :tag "No--only delete empty directories" nil) (const :tag "Confirm for each directory" t) (const :tag "Confirm for each top directory only" top)) :group dired] 8)
(defvar dired-re-no-dot "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*")
#@347 Delete FILE or directory (possibly recursively if optional RECURSIVE is true.)
RECURSIVE determines what to do with a non-empty directory. If RECURSIVE is:
nil, do not delete.
`always', delete recursively without asking.
`top', ask for each directory at top level.
Anything else, ask for each sub-directory.
(fn FILE &optional RECURSIVE TRASH)
(defalias 'dired-delete-file #[769 "\302!@\303=\204 \304\"\207\203E \305\303#\203E \306=\2049 \307\310\311\203/ \203/ \312\2020 \313\314!#!\203E \315=\203H \306\262\202H \316\262\317#\207" [dired-re-no-dot delete-by-moving-to-trash file-attributes t delete-file directory-files always yes-or-no-p format "Recursively %s %s? " "trash" "delete" dired-make-relative top nil delete-directory] 9 (#$ . 78404)])
#@250 In Dired, delete the files flagged for deletion.
If NOMESSAGE is non-nil, we don't display any message
if there are no flagged files.
`dired-recursive-deletes' controls whether deletion of
non-empty directories is allowed.
(fn &optional NOMESSAGE)
(defalias 'dired-do-flagged-delete #[256 "\304 \305\212eb\210\306\305\307#)\203\203 \310\307\305\211\211C\305\262\305\262\304 \305\212eb\210\306\305\307#\2054 \311 \262\211??\262\211\203f \211b\210\312 `B@B\240\210\211b\210\313y\210\211\305\211\223\210\306\305\307#\205a \311 \262\202; )\203p @\202u \312 `BC\266\202*\266\204\314 \210\305\307#\202\212 \206\212 \315\316!*\207" [dired-del-marker dired-marker-char case-fold-search inhibit-read-only dired-marker-regexp nil re-search-forward t dired-internal-do-deletions point-marker dired-get-filename 1 dired-move-to-filename message "(No deletions requested)"] 13 (#$ . 79181) nil])
#@149 Delete all marked (or next ARG) files.
`dired-recursive-deletes' controls whether deletion of
non-empty directories is allowed.
(fn &optional ARG)
(defalias 'dired-do-delete #[256 "\302\303\304\211\211C\304\262\304\262\203D \250\203< \305\306\307\310\311\312!\313\"\314\315%\"\210\307W\2037 \211@\237\202\230 \211@\202\230 \316 `BC\202\230 \317 \304\212eb\210\320\304\303#\205U \321 \262\211??\262\211\203\207 \211b\210\316 `B@B\240\210\211b\210\322y\210\211\304\211\223\210\320\304\303#\205\202 \321 \262\202\\ )\203\221 @\202\226 \316 `BC\266\202*\266\204\323 \210\303#\207" [case-fold-search inhibit-read-only dired-internal-do-deletions t nil dired-repeat-over-lines make-byte-code 0 "\300\301 `B\300@B\240\207" vconcat vector [dired-get-filename] 3 "\n\n(fn)" dired-get-filename dired-marker-regexp re-search-forward point-marker 1 dired-move-to-filename] 14 (#$ . 80092) "P"])
(defvar dired-deletion-confirmer 'yes-or-no-p)
(defalias 'dired-internal-do-deletions #[770 "C\303\304@\"@G\305C\205 \306\203 \307\202 \310@#\303\311\"\237\262\312\313\314 \315\316\2038 \317\2029 \320\321\"#%\203\260 \212\322C@\203\216 @@Ab\210\323\324\325\326\305\327\330\331
\f $\332\"\333\334%D\335\325\326\336\337\330\331\n\"\340\"\341\342%\324EDC\217\210)\211@A\240\210\202G \211@\204\232 \343!\210\202\253 \344\315\345@G\346\n!$@\"\210\210)\202\264 \347\350!\210\266\351 \207" [delete-by-moving-to-trash dired-deletion-confirmer inhibit-read-only mapcar car 0 make-progress-reporter "Trashing..." "Deleting..." dired-make-relative dired-mark-pop-up " *Deletions*" delete format "%s %s " "Trash" "Delete" dired-mark-prompt nil t #1=#:err funcall make-byte-code "\300@@@\306\f\301#\210\302\211@T\240\210\303\302@ \f
\247\203#
\f@Y\205( \307\f
\"*\210\310\311!\312!\313$\207" vconcat vector [dired-recursive-deletes value dired-delete-file progress-reporter-do-update dired-fun-in-all-buffers file-name-directory file-name-nondirectory dired-delete-entry reporter] 6 "\n\n(fn)" error 257 "\302\303\"\210\301\300@@@\301@B\240\207" [dired-log "%s\n"] 4 "\n\n(fn ERR)" progress-reporter-done dired-log-summary "%d of %d deletion%s failed" dired-plural-s message "(No deletions performed)" dired-move-to-filename] 21 "\n\n(fn L ARG &optional TRASH)"])
(defalias 'dired-fun-in-all-buffers #[899 "\300\301\302!\"\211\203( \211@r\211q\210\303\"\203 \304!B\262)A\266\202\202 \210\211\207" [nil dired-buffers-for-dir expand-file-name apply buffer-name] 10 "\n\n(fn DIRECTORY FILE FUN &rest ARGS)"])
(defalias 'dired-delete-entry #[257 "\212\301!\203 \302\303 \210`\212\304y\210`)|\210))\305!\207" [inhibit-read-only dired-goto-file t beginning-of-line 1 dired-clean-up-after-deletion] 3 "\n\n(fn FILE)"])
#@249 Clean up after a deleted file or directory FN.
Removes any expanded subdirectory of deleted directory.
If `dired-x' is loaded and `dired-clean-up-buffers-too' is non-nil,
also offers to kill buffers visiting deleted files and directories.
(fn FN)
(defalias 'dired-clean-up-after-deletion #[257 "\212A\203 \302!\203 \303 \210)\304\305!\205` \205` \306!\211\2030 \307\310\311\312!\"!\2030 \313!\210\210\314\315!!\211\205^ \307\310\316\317G!\312!#!\205^ \211\211\205\\ \211@\313!\210A\266\202\202K \262\262\207" [dired-subdir-alist dired-clean-up-buffers-too dired-goto-subdir dired-kill-subdir featurep dired-x get-file-buffer y-or-n-p format "Kill buffer of %s, too? " file-name-nondirectory kill-buffer dired-buffers-for-dir expand-file-name "Kill dired buffer%s of %s, too? " dired-plural-s] 8 (#$ . 82873)])
(defalias 'dired-marker-regexp #[0 "\301\302\303!!P\207" [dired-marker-char "^" regexp-quote char-to-string] 4 "\n\n(fn)"])
(defalias 'dired-plural-s #[257 "\211\300U\203 \301\207\302\207" [1 "" "s"] 3 "\n\n(fn COUNT)"])
#@249 Return a string suitable for use in a Dired prompt.
ARG is normally the prefix argument for the calling command.
FILES should be a list of file names.
The return value has a form like "foo.txt", "[next 3 files]",
or "* [3 files]".
(fn ARG FILES)
(defalias 'dired-mark-prompt #[514 "\211@\301=\203 \211A\262\211G\211\302U\203 @\202) \250\203$ \303\304\"\202) \303\305#\207" [dired-marker-char t 1 format "[next %d files]" "%c [%d files]"] 7 (#$ . 83930)])
#@58 Pop up buffer BUF in a way suitable for Dired.
(fn BUF)
(defalias 'dired-pop-to-buffer #[257 "\303\304\305\306!!\210*\307\304e\"\210\n\205 \310\311!\304\312#\207" [pop-up-frames split-window-preferred-function dired-shrink-to-fit #[257 "\301\302\303 !)\203 \304 \206 \305!\207" [split-height-threshold 0 window-splittable-p selected-window split-window-below split-window-sensibly] 3 "\n\n(fn WINDOW)"] nil pop-to-buffer get-buffer-create set-window-start fit-window-to-buffer get-buffer-window 1] 5 (#$ . 84401)])
(byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\207" [make-obsolete dired-pop-to-buffer dired-mark-pop-up "24.3" custom-declare-variable dired-no-confirm funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "A list of symbols for commands Dired should not confirm, or t.\nCommand symbols are `byte-compile', `chgrp', `chmod', `chown', `compress',\n`copy', `delete', `hardlink', `load', `move', `print', `shell', `symlink',\n`touch' and `uncompress'.\nIf t, confirmation is never needed." :group dired :type (choice (const :tag "Confirmation never needed" t) (set (const byte-compile) (const chgrp) (const chmod) (const chown) (const compress) (const copy) (const delete) (const hardlink) (const load) (const move) (const print) (const shell) (const symlink) (const touch) (const uncompress)))] 8)
#@897 Return FUNCTION's result on ARGS after showing which files are marked.
Displays the file names in a window showing a buffer named
BUFFER-OR-NAME; the default name being " *Marked Files*". The
window is not shown if there is just one file, `dired-no-confirm'
is t, or OP-SYMBOL is a member of the list in `dired-no-confirm'.
By default, Dired shrinks the display buffer to fit the marked files.
To disable this, use the Customization interface to add a new rule
to `display-buffer-alist' where condition regexp is "^ \*Marked Files\*$",
action argument symbol is `window-height' and its value is nil.
FILES is the list of marked files. It can also be (t FILENAME)
in the case of one marked file, to distinguish that from using
just the current file.
FUNCTION should not manipulate files, just read input (an
argument or confirmation).
(fn BUFFER-OR-NAME OP-SYMBOL FILES FUNCTION &rest ARGS)
(defalias 'dired-mark-pop-up #[1156 "\303=\204 >\204 G\304U\203 \305\"\207\306\206 \307!r\211q\210\310\311!\211\312\211rq\210\313@\303=\203? A\202A !\210\314ed\315#\262\316\317\320B\"\262)\321\322\323\324\325\326 \"\327\"\330\331%!\203| \322\323\324\325\326\n\n\"\332\"\330\331%\"\202} \211)\266\203*\207" [dired-no-confirm split-height-threshold standard-output t 1 apply get-buffer-create " *Marked Files*" 0 temp-buffer-window-setup nil dired-format-columns-of-files remove-text-properties (mouse-face nil help-echo nil) temp-buffer-window-show display-buffer-below-selected ((window-height . fit-window-to-buffer)) functionp make-byte-code 514 "\302!r\303\304\305\306\307\310!\311\"\312\313%DC\216\314@\315\"\210\303\304\305\316\307\310!\317\"\320\313%DC\216\321\300\301\"+\207" vconcat vector [internal--before-with-selected-window funcall make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 "\n\n(fn)" select-window norecord "\301\300!\205\n \302\300\303\"\207" [window-live-p quit-restore-window kill] 3 apply] 10 "\n\n(fn WINDOW VALUE)" [internal--before-with-selected-window funcall make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 "\n\n(fn)" select-window norecord "\301\300!\205\n \302\300\303\"\207" [window-live-p quit-restore-window kill] 3 apply]] 17 (#$ . 85759)])
(defalias 'dired-format-columns-of-files #[257 "`\300!\210\301`\302\303$\207" [completion--insert-strings put-text-property mouse-face nil] 7 "\n\n(fn FILES)"])
(defalias 'dired-repeat-over-lines #[514 "\300 \301 \210\302V\203; m\204; S\262\301 \210m\204% \303 \203% \304y\210\202 \212\304y\210\211`T\305\223\210)\212 \210)\211b\210\202 \302W\203f o\204f T\262\306y\210o\204[ \303 \203[ \306y\210\202L \301 \210\212 \210)\202; \211\305\211\223\210\307 \207" [make-marker beginning-of-line 0 dired-between-files 1 nil -1 dired-move-to-filename] 6 "\n\n(fn ARG FUNCTION)"])
(defalias 'dired-between-files #[0 "\212\300 )?\207" [dired-move-to-filename] 1 "\n\n(fn)"])
#@102 Move to the next marked file, wrapping around the end of the buffer.
(fn ARG &optional WRAP OPOINT)
(defalias 'dired-next-marked-file #[769 "\211\204 `\262\301V\203 \302\303\304$\202\" \305 \210\306\303\304[$\203( \307 \207\2043 \211b\210\310\311!\207\312\313!\210\301V\203A e\202B db\210\314\303#\207" [dired-re-mark 0 re-search-forward nil t beginning-of-line re-search-backward dired-move-to-filename error "No next marked file" message "(Wraparound for next marked file)" dired-next-marked-file] 8 (#$ . 88734) "p\np"])
#@99 Move to the previous marked file, wrapping around the end of the buffer.
(fn ARG &optional WRAP)
(defalias 'dired-prev-marked-file #[513 "\300[\"\207" [dired-next-marked-file] 5 (#$ . 89279) "p\np"])
(defalias 'dired-file-marker #[257 "\212\300!\205 \301 \210g\302\232?\205 g)\207" [dired-goto-file beginning-of-line 32] 3 "\n\n(fn FILE)"])
(defalias 'dired-mark-files-in-region #[514 "\303V\203\f \304\305!\210b\210`W\205@ `W\203& \306 \203& \307y\210\202 \310 !\204: \311\312\303\"\203: \313\307!\210\nc\210\307y\210\202 )\207" [inhibit-read-only dired-re-dot dired-marker-char t error "start > end" dired-between-files 1 looking-at dired-get-filename nil delete-char] 5 "\n\n(fn START END)"])
#@383 Mark the file at point in the Dired buffer.
If the region is active, mark all files in the region.
Otherwise, with a prefix arg, mark files on the next ARG lines.
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.
(fn ARG &optional INTERACTIVE)
(defalias 'dired-mark #[513 "\211\203 \301 \203 \212\302 \303 \304b\210\305 b\210\305 \"\266\202)\207\306 \203( \212\307 )\207\310\311\312!\313\")\207" [inhibit-read-only use-region-p region-beginning region-end dired-mark-files-in-region line-beginning-position dired-get-subdir dired-mark-subdir-files t dired-repeat-over-lines prefix-numeric-value #[0 "\301\302!\210c\207" [dired-marker-char delete-char 1] 2 "\n\n(fn)"]] 7 (#$ . 89996) (list current-prefix-arg t)])
#@356 Unmark the file at point in the Dired buffer.
If the region is active, unmark all files in the region.
Otherwise, with a prefix arg, unmark files on the next ARG lines.
If looking at a subdir, unmark all its files except `.' and `..'.
If the region is active in Transient Mark mode, unmark all files
in the active region.
(fn ARG &optional INTERACTIVE)
(defalias 'dired-unmark #[513 "\301\302\")\207" [dired-marker-char 32 dired-mark] 5 (#$ . 90862) (list current-prefix-arg t)])
#@358 In Dired, flag the current line's file for deletion.
If the region is active, flag all files in the region.
Otherwise, with a prefix arg, flag files on the next ARG lines.
If on a subdir headerline, flag all its files except `.' and `..'.
If the region is active in Transient Mark mode, flag all files
in the active region.
(fn ARG &optional INTERACTIVE)
(defalias 'dired-flag-file-deletion #[513 "\302\")\207" [dired-del-marker dired-marker-char dired-mark] 5 (#$ . 91354) (list current-prefix-arg t)])
#@243 In Dired, move up lines and remove marks or deletion flags there.
Optional prefix ARG says how many lines to unmark/unflag; default
is one line.
If the region is active in Transient Mark mode, unmark all files
in the active region.
(fn ARG)
(defalias 'dired-unmark-backward #[257 "\300[!\207" [dired-unmark] 3 (#$ . 91871) "p"])
#@205 Toggle marks: marked files become unmarked, and vice versa.
Files marked with other flags (such as `D') are not affected.
`.' and `..' are never toggled.
As always, hidden subdirs are not affected.
(fn)
(defalias 'dired-toggle-marks #[0 "\212eb\210\303m?\2052 \304 \204, \305 !\204, \306\307``Tg\310=\203' \310\nD\202* \n\310D$\210\311y\210\202 *\207" [inhibit-read-only dired-re-dot dired-marker-char t dired-between-files looking-at apply subst-char-in-region 32 1] 6 (#$ . 92209) nil])
#@61 History list of regular expressions used in Dired commands.
(defvar dired-regexp-history nil (#$ . 92707))
(defalias 'dired-read-regexp #[769 "\300\206 \301#\207" [read-regexp dired-regexp-history] 7 "\n\n(fn PROMPT &optional DEFAULT HISTORY)"])
#@306 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.
(fn REGEXP &optional MARKER-CHAR)
(defalias 'dired-mark-files-regexp #[513 "\211\206 \304\305\305\262\212\306\262\307\310\311=\203 \312\202( \n=\203' \313\202( \314\315\n=\2033 \316\2024 \317$\210eb\210m\204i \320 !\204c l\204c \321\304\211\"\211\205S \322\"\262\203c \323\324!\210c\210\211T\262\324y\210\2029 \307\325\315\326!\311=\203z \327\202{ \317\n=\203\205 \330\202\206 \331&\210)\211\306V\205\221 \211)\266\202)\207" [dired-marker-char inhibit-read-only dired-del-marker dired-re-dot t nil 0 message "%s %ss%s..." 32 "Unmarking" "Flagging" "Marking" "matching file" " for deletion" "" looking-at dired-get-filename string-match delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "flagged" "marked"] 12 (#$ . 92964) (byte-code "\301\203 \302\202\n \303\304P!\205 \305D\207" [current-prefix-arg dired-read-regexp "Unmark" "Mark" " files (regexp): " 32] 3)])
#@189 Mark all files with contents containing REGEXP for use in later commands.
A prefix argument means to unmark them instead.
`.' and `..' are never marked.
(fn REGEXP &optional MARKER-CHAR)
(defalias 'dired-mark-files-containing-regexp #[513 "\211\206 \304\305\305\262\212\306\262\307\310\311=\203 \312\202( \n=\203' \313\202( \314\315\n=\2033 \316\2024 \317$\210eb\210m\204\272 \320 !\204\264 l\204\264 \321\305\304\"\211\205\244 \322!\205\244 \323!?\205\244 \324!\307\325\"\210\211\203z r\211q\210\212eb\210\326\305\304#*\202\242 \327\330!r\211q\210\331\332\306\333\334\335!\336\"\337\340%DC\216\341!\210eb\210\326\305\304#*\262\262\262\203\264 \342\343!\210c\210\211T\262\343y\210\2029 \307\344\315\345!\311=\203\313 \346\202\314 \317\n=\203\326 \347\202\327 \350&\210)\211\306V\205\342 \211)\266\202)\207" [dired-marker-char inhibit-read-only dired-del-marker dired-re-dot t nil 0 message "%s %ss%s..." 32 "Unmarking" "Flagging" "Marking" "matching file" " for deletion" "" looking-at dired-get-filename file-readable-p file-directory-p get-file-buffer "Checking %s" re-search-forward generate-new-buffer " *temp*" funcall make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" insert-file-contents delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "flagged" "marked"] 14 (#$ . 94130) (byte-code "\301\203 \302\202\n \303\304P!\205 \305D\207" [current-prefix-arg dired-read-regexp "Unmark" "Mark" " files containing (regexp): " 32] 3)])
#@249 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.
(fn REGEXP)
(defalias 'dired-flag-files-regexp #[257 "\301\"\207" [dired-del-marker dired-mark-files-regexp] 4 (#$ . 95657) (byte-code "\300\301!C\207" [dired-read-regexp "Flag for deletion (regexp): "] 2)])
#@97 Mark all symbolic links.
With prefix argument, unmark or unflag all those files.
(fn UNFLAG-P)
(defalias 'dired-mark-symlinks #[257 "\211\203 \304\202 \305\306\306\262\212\307\262\310\311\304=\203! \312\202, \n=\203+ \313\202, \314\315\n=\2037 \316\2028 \317$\210eb\210m\204X \320 !\203R \321\322!\210c\210\211T\262\322y\210\202= \310\323\315\324!\304=\203i \325\202j \317\n=\203t \326\202u \327&\210)\211\307V\205\200 \211)\266\202)\207" [dired-marker-char inhibit-read-only dired-del-marker dired-re-sym 32 t nil 0 message "%s %ss%s..." "Unmarking" "Flagging" "Marking" "symbolic link" " for deletion" "" looking-at delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "flagged" "marked"] 11 (#$ . 96109) "P"])
#@123 Mark all directory file lines except `.' and `..'.
With prefix argument, unmark or unflag all those files.
(fn UNFLAG-P)
(defalias 'dired-mark-directories #[257 "\211\203 \305\202 \306\307\307\262\212\310\262\311\312\305=\203! \313\202, \n=\203+ \314\202, \315\316\n=\2037 \317\2028 \320$\210eb\210m\204^ \321 !\203X \321\f!\204X \322\323!\210c\210\211T\262\323y\210\202= \311\324\316\325!\305=\203o \326\202p \320\n=\203z \327\202{ \330&\210)\211\310V\205\206 \211)\266\202)\207" [dired-marker-char inhibit-read-only dired-del-marker dired-re-dir dired-re-dot 32 t nil 0 message "%s %ss%s..." "Unmarking" "Flagging" "Marking" "directory file" " for deletion" "" looking-at delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "flagged" "marked"] 11 (#$ . 96845) "P"])
#@99 Mark all executable files.
With prefix argument, unmark or unflag all those files.
(fn UNFLAG-P)
(defalias 'dired-mark-executables #[257 "\211\203 \304\202 \305\306\306\262\212\307\262\310\311\304=\203! \312\202, \n=\203+ \313\202, \314\315\n=\2037 \316\2028 \317$\210eb\210m\204X \320 !\203R \321\322!\210c\210\211T\262\322y\210\202= \310\323\315\324!\304=\203i \325\202j \317\n=\203t \326\202u \327&\210)\211\307V\205\200 \211)\266\202)\207" [dired-marker-char inhibit-read-only dired-del-marker dired-re-exe 32 t nil 0 message "%s %ss%s..." "Unmarking" "Flagging" "Marking" "executable file" " for deletion" "" looking-at delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "flagged" "marked"] 11 (#$ . 97636) "P"])
#@160 Flag for deletion files whose names suggest they are auto save files.
A prefix argument says to unmark or unflag those files instead.
(fn &optional UNFLAG-P)
(defalias 'dired-flag-auto-save-files #[256 "\211\203 \304\202 \305\306\306\262\212\307\262\310\311 \304=\203! \312\202, =\203+ \313\202, \314\315 =\2037 \316\2028 \317$\210eb\210m\204\204 \212\306\210h\320=\206W h\321=\205W \322u\210h\320=)\203~ \323 !\204~ \324\305\211\"\211\205n \325\326!!\262\203~ \327\330!\210 c\210\211T\262\330y\210\202= \310\331\315\332! \304=\203\225 \333\202\226 \317 =\203\240 \334\202\241 \335&\210)\211\307V\205\254 \211)\266\202)\207" [dired-del-marker dired-marker-char inhibit-read-only dired-re-dir 32 t nil 0 message "%s %ss%s..." "Unmarking" "Flagging" "Marking" "auto save file" " for deletion" "" 35 42 -1 looking-at dired-get-filename auto-save-file-name-p file-name-nondirectory delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "flagged" "marked"] 11 (#$ . 98379) "P"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable dired-garbage-files-regexp funcall function #[0 "\300\207" ["\\(?:\\.\\(?:aux\\|bak\\|dvi\\|log\\|orig\\|rej\\|toc\\)\\)\\'"] 1 "\n\n(fn)"] "Regular expression to match \"garbage\" files for `dired-flag-garbage-files'." :type regexp :group dired] 8)
#@76 Flag for deletion all files that match `dired-garbage-files-regexp'.
(fn)
(defalias 'dired-flag-garbage-files #[0 "\301!\207" [dired-garbage-files-regexp dired-flag-files-regexp] 2 (#$ . 99712) nil])
#@138 Flag all backup files (names ending with `~') for deletion.
With prefix argument, unmark or unflag these files.
(fn &optional UNFLAG-P)
(defalias 'dired-flag-backup-files #[256 "\211\203 \304\202 \305\306\306\262\212\307\262\310\311 \304=\203! \312\202, =\203+ \313\202, \314\315 =\2037 \316\2028 \317$\210eb\210m\204| \212\306\210h\320=\203N \321u\210h)\322=\203v \323 !\204v \324\305\211\"\211\205f \325!\262\203v \326\327!\210 c\210\211T\262\327y\210\202= \310\330\315\331! \304=\203\215 \332\202\216 \317 =\203\230 \333\202\231 \334&\210)\211\307V\205\244 \211)\266\202)\207" [dired-del-marker dired-marker-char inhibit-read-only dired-re-dir 32 t nil 0 message "%s %ss%s..." "Unmarking" "Flagging" "Marking" "backup file" " for deletion" "" 42 -1 126 looking-at dired-get-filename backup-file-name-p delete-char 1 "%s %s%s %s%s." dired-plural-s "un" "flagged" "marked"] 11 (#$ . 99921) "P"])
#@112 Change all OLD marks to NEW marks.
OLD and NEW are both characters used to mark files.
(fn &optional OLD NEW)
(defalias 'dired-change-marks #[512 "\301=\204\f \211\301=\203 \302 \207\303\304\"\305\212eb\210\306\307\305#\205T \310U\203D \311 \312\313\314\315\316\317!\320\"\321\322%DC\216\323\324\305\")\262\202E \305\203 \325\314\224\314\225$\210\202 *\207" [inhibit-read-only 13 ding format "\n%c" t search-forward nil 32 match-data funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" dired-get-filename no-dir subst-char-in-region] 11 (#$ . 100845) (byte-code "\301\302\303!\210\304 \302\305\"\210\304 )D\207" [cursor-in-echo-area t message "Change (old mark): " read-char "Change %c marks to (new mark): "] 4)])
#@60 Remove all marks from all files in the dired buffer.
(fn)
(defalias 'dired-unmark-all-marks #[0 "\300\301!\207" [dired-unmark-all-files 13] 2 (#$ . 101633) nil])
#@257 Remove a specific mark (or any mark) from every file.
After this command, type the mark character to remove,
or type RET to remove all marks.
With prefix arg, query for each marked file.
Type \[help-command] at that time for help.
(fn MARK &optional ARG)
(defalias 'dired-unmark-all-files #[513 "\212\304\305\306\307\310\"\311eb\210\312=\203 \313 \306\305#\202\" \314\306\305#\203J \203; \315\305\211\"\211\2056 \316\317\320#\262\203 \321`S`h\322$\210T\262\202 \323\324U\203U \325\202V \326\"+\266\202)\207" [inhibit-read-only case-fold-search help-form dired-re-mark 0 t nil format "\n%c" "Type SPC or `y' to unmark one file, DEL or `n' to skip to next,\n`!' to unmark all remaining files with no more questions." 13 re-search-forward search-forward dired-get-filename dired-query query "Unmark file `%s'? " subst-char-in-region 32 message 1 "1 mark removed" "%d marks removed"] 9 (#$ . 101803) "cRemove marks (RET means all): \nP"])
(defvar dired-log-buffer "*Dired log*")
#@190 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.
(fn)
(defalias 'dired-why #[0 "\301!\2052 \302 \303\301!!\304\305\306\307\310\311!\312\"\313\314%DC\216\315!\210db\210\316y\210\317\320!\210\321\306!)\266\202\207" [dired-log-buffer get-buffer selected-window display-buffer funcall make-byte-code 0 "\301\300!\207" vconcat vector [select-window] 2 "\n\n(fn)" select-window -1 backward-page 1 recenter] 9 (#$ . 102802) nil])
(defalias 'dired-log #[385 "pr\302!q\210db\210\303;\203\" \203 \304\305#\202 c\202N \306!\203. \307!\202N \303=\205N \310\311!\210n\204? \312c\210\313 \314\315!\316\261\210db\210\317c*\207" [dired-log-buffer inhibit-read-only get-buffer-create t apply format bufferp insert-buffer-substring backward-page 1 "\n" current-time-string " Buffer `" buffer-name "'\n" "\f\n"] 7 "\n\n(fn LOG &rest ARGS)"])
#@243 State a summary of a command's failures, in echo area and log buffer.
STRING is an overall summary of the failures.
FAILURES is a list of file names that we failed to operate on,
or nil if file names are not applicable.
(fn STRING FAILURES)
(defalias 'dired-log-summary #[514 "\211G\301U\203$ \302\303rq\210db\210\304\301!\210l\203 \301y\210`d{)\"\210\2022 \302\203- \305\202. \306#\210\307\310\310Q!\210\307\311!\207" [dired-log-buffer 1 message "%s" backward-page "%s--type ? for details (%s)" "%s--type ? for details" dired-log "\n" t] 6 (#$ . 103786)])
#@391 String of `ls' switches (single letters) except "t" that influence sorting.
This indicates to Dired which option switches to watch out for because they
will change the sorting order behavior of `ls'.
To change the default sorting order (e.g. add a `-v' option), see the
variable `dired-listing-switches'. To temporarily override the listing
format, use `\[universal-argument] \[dired]'.
(defvar dired-ls-sorting-switches "SXU" (#$ . 104357))
#@51 Regexp recognized by Dired to set `by date' mode.
(defvar dired-sort-by-date-regexp (concat "\\(\\`\\| \\)-[^- ]*t" "[^ " dired-ls-sorting-switches "]*" "\\(\\(\\`\\| +\\)\\(--[^ ]+\\|-[^- t" dired-ls-sorting-switches "]+\\)\\)* *$") (#$ . 104808))
#@51 Regexp recognized by Dired to set `by name' mode.
(defvar dired-sort-by-name-regexp (concat "\\`\\(\\(\\`\\| +\\)\\(--[^ ]+\\|" "-[^- t" dired-ls-sorting-switches "]+\\)\\)* *$") (#$ . 105063))
#@116 Non-nil means the Dired sort command is disabled.
The idea is to set this buffer-locally in special dired buffers.
(defvar dired-sort-inhibit nil (#$ . 105264))
(defalias 'dired-sort-set-mode-line #[0 "\306=\205% \307\310\n \"\203 \311\202! \310\f \"\203 \312\202! \313 P)\314 \207" [major-mode case-fold-search dired-sort-by-name-regexp dired-actual-switches dired-sort-by-date-regexp mode-name dired-mode nil string-match "Dired by name" "Dired by date" "Dired " force-mode-line-update] 3 "\n\n(fn)"])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias dired-sort-set-modeline dired-sort-set-mode-line nil make-obsolete "24.3"] 4)
#@142 Toggle sorting by date, and refresh the Dired buffer.
With a prefix argument, edit the current listing switches instead.
(fn &optional ARG)
(defalias 'dired-sort-toggle-or-edit #[256 "\203 \302\303!\210\211\203 \304\305\306 \"!\207\307 \207" [dired-sort-inhibit dired-actual-switches error "Cannot sort this dired buffer" dired-sort-other read-string "ls switches (must contain -l): " dired-sort-toggle] 5 (#$ . 105924) "P"])
(defalias 'dired-sort-toggle #[0 "\306 \"\307\310\306 \"\2035 \311\312 \"\313\232\203* \311\314 \"\313\232\203* \315\313\316\211 $\202 \315\313\316\211 \317%\202 \204S \320 \310 \316 \306
\f #,\203P \321\202Q \322P)\266\323 \210\324 \207" [dired-sort-by-date-regexp dired-actual-switches case-fold-search start string regexp string-match "\\(\\`\\| \\)-\\([a-su-zA-Z]*\\)\\(t\\)\\([^ ]*\\)" nil match-string 2 "" 4 replace-match t 3 "\\`-[[:alnum:]]+\\'" "t" " -t" dired-sort-set-mode-line revert-buffer inhibit-changing-match-data] 8 "\n\n(fn)"])
(defalias 'dired-replace-in-string #[771 "\300\301\302\211\303#\203& \301\224\262\301\225\262OQ\262\211\262\202 \302OP\207" ["" 0 nil string-match] 11 "\n\n(fn REGEXP NEWTEXT STRING)"])
#@311 Specify new `ls' SWITCHES for current dired buffer.
Values matching `dired-sort-by-date-regexp' or `dired-sort-by-name-regexp'
set the minor mode accordingly, others appear literally in the mode line.
With optional second arg NO-REVERT, don't refresh the listing afterwards.
(fn SWITCHES &optional NO-REVERT)
(defalias 'dired-sort-other #[513 "\301!\210\302 \210\211\206 \303 \207" [dired-actual-switches dired-sort-R-check dired-sort-set-mode-line revert-buffer] 4 (#$ . 107128)])
#@55 Value of `dired-subdir-alist' before -R switch added.
(defvar dired-subdir-alist-pre-R nil (#$ . 107621))
(make-variable-buffer-local 'dired-subdir-alist-pre-R)
#@255 Additional processing of -R in ls option string SWITCHES.
Saves `dired-subdir-alist' when R is set and restores saved value
minus any directories explicitly deleted when R is cleared.
To be called first in body of `dired-sort-other', etc.
(fn SWITCHES)
(defalias 'dired-sort-R-check #[257 "\304\305\"\203 \304\305\"\204 \211\207\304\305\"\205R \304\305\"?\205R \n\203K \306\n\203C \307\n\211@@) \"\203< \n@B\262\nA\211\204* \310!\262\202P \310 !@C\211\207" [dired-actual-switches dired-subdir-alist dired-subdir-alist-pre-R x string-match "R" nil assoc reverse] 6 (#$ . 107789)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable dired-recursive-copies funcall function #[0 "\300\207" [top] 1 "\n\n(fn)"] "Whether Dired copies directories recursively.\nIf nil, never copy recursively.\n`always' means to copy recursively without asking.\n`top' means to ask for each directory at top level.\nAny other value means to ask for each directory." :type (choice :tag "Copy directories" (const :tag "No recursive copies" nil) (const :tag "Ask for each directory" t) (const :tag "Ask for each top directory only" top) (const :tag "Copy directories without asking" always)) :group dired] 8)
(defalias 'dired-dnd-popup-notice #[0 "\300\301!\207" [message-box "Dired recursive copies are currently disabled.\nSee the variable `dired-recursive-copies'."] 2 "\n\n(fn)"])
(defalias 'dired-dnd-do-ask-action #[257 "\300\301\302\303\304BD\"\211\205 \305\"\207" [x-popup-menu t "What action?" "" (("Copy here" . copy) ("Move here" . move) ("Link here" . link) "--" ("Cancel")) dired-dnd-handle-local-file] 6 "\n\n(fn URI)"])
#@211 Copy, move or link a file to the dired directory.
URI is the file to handle, ACTION is one of copy, move, link or ask.
Ask means pop up a menu for the user to select one of copy, move or link.
(fn URI ACTION)
(defalias 'dired-dnd-handle-local-file #[514 "\303\304!\210\305\306\"\211\205 \307 \310!P\205\264 \311=\203\" \312!\202\264 \313>\2037 \314!\2037 \2047 \315 \202\264 \316>\205\264 \317!\205I \320\321\322\"!\323\211\323\262\203\202 \324\302!\203\202 \n\203\202 \325!@\211\262\203\202 \n\326=\204x \320\321\327\"!\203\202 \330\331#\210\332!\210\333>\203\221 \334#\210\202\254 \335=\203\240 \336#\210\202\254 \337=\203\254 \340#\210\332!\210)\266\203\207" [dired-recursive-copies dired-overwrite-confirmed dired-backup-overwrite require dired-aux dnd-get-local-file-name t dired-current-directory file-name-nondirectory ask dired-dnd-do-ask-action (copy private) file-directory-p dired-dnd-popup-notice (copy private move link) file-exists-p y-or-n-p format "Overwrite existing file `%s'? " nil boundp find-backup-file-name always "Make backup for existing file `%s'? " rename-file 0 dired-relist-entry (copy private) dired-copy-file move dired-rename-file link make-symbolic-link] 11 (#$ . 109459)])
#@286 Copy, move or link a file to the dired directory if it is a local file.
URI is the file to handle. If the hostname in the URI isn't local, do nothing.
ACTION is one of copy, move, link or ask.
Ask means pop up a menu for the user to select one of copy, move or link.
(fn URI ACTION)
(defalias 'dired-dnd-handle-file #[514 "\300!\211\205 \301\"\207" [dnd-get-local-file-uri dired-dnd-handle-local-file] 6 (#$ . 110711)])
#@66 Auxiliary information to be saved in desktop file.
(fn DIRNAME)
(defalias 'dired-desktop-buffer-misc-data #[257 ":\203 \302@\"AB\202 \302\"\303\304\305\306\307\310!\311\"\312\313% \"\237AB\207" [dired-directory dired-subdir-alist desktop-file-name mapcar make-byte-code 257 "\301@\300\"\207" vconcat vector [desktop-file-name] 4 "\n\n(fn F)"] 9 (#$ . 111143)])
#@91 Restore a dired buffer specified in a desktop file.
(fn FILE-NAME BUFFER-NAME MISC-DATA)
(defalias 'dired-restore-desktop-buffer #[771 "\211@\211:\203\f \211@\202
\211\301\302!!\203# \303!\210\304\305A\"\210p\2021 \306\307\"\210\2030 \310\311!\210\312\207" [desktop-missing-file-warning file-directory-p file-name-directory dired mapc dired-maybe-insert-subdir message "Desktop: Directory %s no longer exists." sit-for 1 nil] 8 (#$ . 111522)])
(add-to-list 'desktop-buffer-mode-handlers '(dired-mode . dired-restore-desktop-buffer))
#@587 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'.
(fn FILE &optional SWITCHES)
(autoload 'dired-diff "dired-aux" '(#$ . 112069) t nil)
#@320 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'.
(fn &optional SWITCHES)
(autoload 'dired-backup-diff "dired-aux" '(#$ . 112718) t nil)
#@1146 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.
(fn DIR2 PREDICATE)
(autoload 'dired-compare-directories "dired-aux" '(#$ . 113108) t nil)
#@190 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.
(fn &optional ARG)
(autoload 'dired-do-chmod "dired-aux" '(#$ . 114331) t nil)
#@152 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.
(fn &optional ARG)
(autoload 'dired-do-chgrp "dired-aux" '(#$ . 114587) t nil)
#@152 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.
(fn &optional ARG)
(autoload 'dired-do-chown "dired-aux" '(#$ . 114805) t nil)
#@174 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.
(fn &optional ARG)
(autoload 'dired-do-touch "dired-aux" '(#$ . 115023) t nil)
#@149 Print the marked (or next ARG) files.
Uses the shell command coming from variables `lpr-command' and
`lpr-switches' as default.
(fn &optional ARG)
(autoload 'dired-do-print "dired-aux" '(#$ . 115263) t nil)
#@364 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.
(fn KEEP)
(autoload 'dired-clean-directory "dired-aux" '(#$ . 115478) t nil)
#@702 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*'.
(fn COMMAND &optional ARG FILE-LIST)
(autoload 'dired-do-async-shell-command "dired-aux" '(#$ . 115915) t nil)
#@2239 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.
(fn COMMAND &optional ARG FILE-LIST)
(autoload 'dired-do-shell-command "dired-aux" '(#$ . 116698) t nil)
#@16
(fn COMMAND)
(autoload 'dired-run-shell-command "dired-aux" '(#$ . 119010) nil nil)
#@585 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).
(fn &optional ARG FMT)
(autoload 'dired-do-kill-lines "dired-aux" '(#$ . 119103) t nil)
#@13
(fn FILE)
(autoload 'dired-compress-file "dired-aux" '(#$ . 119758) nil nil)
#@459 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.
(fn SYM PROMPT &rest ARGS)
(autoload 'dired-query "dired-aux" '(#$ . 119844) nil nil)
#@72 Compress or uncompress marked (or next ARG) files.
(fn &optional ARG)
(autoload 'dired-do-compress "dired-aux" '(#$ . 120367) t nil)
#@73 Byte compile marked (or next ARG) Emacs Lisp files.
(fn &optional ARG)
(autoload 'dired-do-byte-compile "dired-aux" '(#$ . 120507) t nil)
#@69 Load the marked (or next ARG) Emacs Lisp files.
(fn &optional ARG)
(autoload 'dired-do-load "dired-aux" '(#$ . 120652) t nil)
#@670 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.
(fn &optional ARG TEST-FOR-SUBDIR)
(autoload 'dired-do-redisplay "dired-aux" '(#$ . 120786) t nil)
#@39
(fn FILENAME &optional MARKER-CHAR)
(autoload 'dired-add-file "dired-aux" '(#$ . 121525) nil nil)
#@13
(fn FILE)
(autoload 'dired-remove-file "dired-aux" '(#$ . 121631) nil nil)
#@88 Create or update the line for FILE in all Dired buffers it would belong in.
(fn FILE)
(autoload 'dired-relist-file "dired-aux" '(#$ . 121714) nil nil)
#@24
(fn FROM TO OK-FLAG)
(autoload 'dired-copy-file "dired-aux" '(#$ . 121872) nil nil)
#@42
(fn FILE NEWNAME OK-IF-ALREADY-EXISTS)
(autoload 'dired-rename-file "dired-aux" '(#$ . 121964) nil nil)
#@100 Create a directory called DIRECTORY.
If DIRECTORY already exists, signal an error.
(fn DIRECTORY)
(autoload 'dired-create-directory "dired-aux" '(#$ . 122077) t nil)
#@781 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.
(fn &optional ARG)
(autoload 'dired-do-copy "dired-aux" '(#$ . 122251) t nil)
#@484 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].
(fn &optional ARG)
(autoload 'dired-do-symlink "dired-aux" '(#$ . 123097) t nil)
#@428 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.
(fn &optional ARG)
(autoload 'dired-do-hardlink "dired-aux" '(#$ . 123649) t nil)
#@374 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.
(fn &optional ARG)
(autoload 'dired-do-rename "dired-aux" '(#$ . 124146) t nil)
#@668 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.
(fn REGEXP NEWNAME &optional ARG WHOLE-NAME)
(autoload 'dired-do-rename-regexp "dired-aux" '(#$ . 124587) t nil)
#@157 Copy selected files whose names match REGEXP to NEWNAME.
See function `dired-do-rename-regexp' for more info.
(fn REGEXP NEWNAME &optional ARG WHOLE-NAME)
(autoload 'dired-do-copy-regexp "dired-aux" '(#$ . 125329) t nil)
#@161 Hardlink selected files whose names match REGEXP to NEWNAME.
See function `dired-do-rename-regexp' for more info.
(fn REGEXP NEWNAME &optional ARG WHOLE-NAME)
(autoload 'dired-do-hardlink-regexp "dired-aux" '(#$ . 125558) t nil)
#@160 Symlink selected files whose names match REGEXP to NEWNAME.
See function `dired-do-rename-regexp' for more info.
(fn REGEXP NEWNAME &optional ARG WHOLE-NAME)
(autoload 'dired-do-symlink-regexp "dired-aux" '(#$ . 125795) t nil)
#@74 Rename all marked (or next ARG) files to upper case.
(fn &optional ARG)
(autoload 'dired-upcase "dired-aux" '(#$ . 126029) t nil)
#@74 Rename all marked (or next ARG) files to lower case.
(fn &optional ARG)
(autoload 'dired-downcase "dired-aux" '(#$ . 126166) t nil)
#@942 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.
(fn DIRNAME &optional SWITCHES NO-ERROR-IF-NOT-DIR-P)
(autoload 'dired-maybe-insert-subdir "dired-aux" '(#$ . 126306) t nil)
#@469 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.
(fn DIRNAME &optional SWITCHES NO-ERROR-IF-NOT-DIR-P)
(autoload 'dired-insert-subdir "dired-aux" '(#$ . 127325) t nil)
#@179 Go to previous subdirectory, regardless of level.
When called interactively and not on a subdir line, go to this subdir's line.
(fn ARG &optional NO-ERROR-IF-NOT-FOUND NO-SKIP)
(autoload 'dired-prev-subdir "dired-aux" '(#$ . 127865) t nil)
#@173 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.
(fn DIR)
(autoload 'dired-goto-subdir "dired-aux" '(#$ . 128113) t nil)
#@189 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.
(fn)
(autoload 'dired-mark-subdir-files "dired-aux" '(#$ . 128355) t nil)
#@103 Remove all lines of current subdirectory.
Lower levels are unaffected.
(fn &optional REMEMBER-MARKS)
(autoload 'dired-kill-subdir "dired-aux" '(#$ . 128619) t nil)
#@47 Go up ARG levels in the dired tree.
(fn ARG)
(autoload 'dired-tree-up "dired-aux" '(#$ . 128790) t nil)
#@34 Go down in the dired tree.
(fn)
(autoload 'dired-tree-down "dired-aux" '(#$ . 128901) t nil)
#@170 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.
(fn ARG)
(autoload 'dired-hide-subdir "dired-aux" '(#$ . 129002) t nil)
#@216 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.
(fn &optional IGNORED)
(autoload 'dired-hide-all "dired-aux" '(#$ . 129241) t nil)
#@98 Set up isearch to search in Dired file names.
Intended to be added to `isearch-mode-hook'.
(fn)
(autoload 'dired-isearch-filenames-setup "dired-aux" '(#$ . 129522) nil nil)
#@81 Search for a string using Isearch only in file names in the Dired buffer.
(fn)
(autoload 'dired-isearch-filenames "dired-aux" '(#$ . 129702) t nil)
#@81 Search for a regexp using Isearch only in file names in the Dired buffer.
(fn)
(autoload 'dired-isearch-filenames-regexp "dired-aux" '(#$ . 129857) t nil)
#@67 Search for a string through all marked files using Isearch.
(fn)
(autoload 'dired-do-isearch "dired-aux" '(#$ . 130019) t nil)
#@67 Search for a regexp through all marked files using Isearch.
(fn)
(autoload 'dired-do-isearch-regexp "dired-aux" '(#$ . 130153) t nil)
#@172 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].
(fn REGEXP)
(autoload 'dired-do-search "dired-aux" '(#$ . 130295) t nil)
#@290 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].
(fn FROM TO &optional DELIMITED)
(autoload 'dired-do-query-replace-regexp "dired-aux" '(#$ . 130534) t nil)
#@225 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.
(fn FILE &optional DEREF-SYMLINKS)
(autoload 'dired-show-file-type "dired-aux" '(#$ . 130905) t nil)
#@470 Jump to dired buffer corresponding to current buffer.
If in a file, dired the current directory and move to file's line.
If in Dired already, pop up a level and goto old directory's line.
In case the proper dired file line cannot be found, refresh the dired
buffer and try again.
When OTHER-WINDOW is non-nil, jump to dired buffer in other window.
Interactively with prefix argument, read FILE-NAME and
move to its line in dired.
(fn &optional OTHER-WINDOW FILE-NAME)
(autoload 'dired-jump "dired-x" '(#$ . 131202) t nil)
#@82 Like \[dired-jump] (`dired-jump') but in other window.
(fn &optional FILE-NAME)
(autoload 'dired-jump-other-window "dired-x" '(#$ . 131731) t nil)
#@346 Relative symlink all marked (or next ARG) files into a directory.
Otherwise make a relative symbolic link to the current file.
This creates relative symbolic links like
foo -> ../bar/foo
not absolute ones like
foo -> /ugly/file/name/that/may/change/any/day/bar/foo
For absolute symlinks, use \[dired-do-symlink].
(fn &optional ARG)
(autoload 'dired-do-relsymlink "dired-x" '(#$ . 131886) t nil)
(byte-code "\300\301!\210\302\303!\207" [provide dired run-hooks dired-load-hook] 2)