;ELC ;;; compiled by root@fuzzy.is.a.good.cat on Thu Sep 22 18:03:00 1994 ;;; from file /root/emacs-19.27/lisp/dired-aux.el ;;; emacs version 19.26.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/root/emacs-19.27/lisp/dired-aux.el' was compiled for Emacs 19")) (defalias 'dired-diff #[(file &optional switches) " !\f#" [diff file dired-get-filename t switches] 4 "\ Compare file at point with file FILE using `diff'. FILE defaults to the file at the mark. The prompted-for file is the first file given to `diff'. With prefix arg, prompt for second argument SWITCHES, which is options for `diff'." (byte-code "!!b\")!! ' Q(# $ G;@F#\")D" [mark t dired-get-filename default require diff read-file-name format "Diff %s with: %s" "(default " ") " "" dired-current-directory current-prefix-arg read-string "Options for diff: " diff-switches mapconcat identity " "] 7)]) (defalias 'dired-backup-diff #[(&optional switches) " \n\"" [diff-backup dired-get-filename switches] 3 "\ 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'." (byte-code " ;  #\"C" [current-prefix-arg read-string "Options for diff: " diff-switches mapconcat identity " "] 6)]) (defalias (quote dired-do-chxxx) #[(attribute-name program op-symbol arg) "\n\"Q \n %\n \nQ   \nE $\n!= \"\"," [dired-get-marked-files t arg files dired-mark-read-string "Change " attribute-name " of %s to: " nil op-symbol new-attribute program " " operation failures dired-bunch-files 10000 dired-check-process dired-do-redisplay dired-log-summary format "%s: error"] 6]) (defalias 'dired-do-chmod #[(&optional arg) "\f$" [dired-do-chxxx "Mode" "chmod" chmod arg] 5 "\ Change the mode of the marked (or next ARG) files. This calls chmod, thus symbolic modes like `g+w' are allowed." "P"]) (defalias 'dired-do-chgrp #[(&optional arg) "\f$" [dired-do-chxxx "Group" "chgrp" chgrp arg] 5 "\ Change the group of the marked (or next ARG) files." "P"]) (defalias 'dired-do-chown #[(&optional arg) "\n\f$" [dired-do-chxxx "Owner" dired-chown-program chown arg] 5 "\ Change the owner of the marked (or next ARG) files." "P"]) (defalias (quote dired-bunch-files) #[(max function args files) " H @G\\ A \f6 \\\nV6\f\f\"\"\n \f  \\ +\f\f\"\"\n+" [nil 0 failures pending-length pending files thisfile 3 thislength rest max apply function append args] 6]) (defalias 'dired-do-print #[(&optional arg) "\n\"\n$\n %\f\f #!*" [dired-get-marked-files t arg file-list dired-mark-read-string "Print %s with: " apply concat lpr-command " " lpr-switches print command dired-run-shell-command dired-shell-stuff-it nil] 7 "\ Print the marked (or next ARG) files. Uses the shell command coming from variables `lpr-command' and `lpr-switches' as default." "P"]) (defalias (quote dired-mark-read-string) #[(prompt initial op-symbol arg files) "\n  \"\" &" [dired-mark-pop-up nil op-symbol files read-string format prompt dired-mark-prompt arg initial] 10]) (defalias 'dired-clean-directory #[(keep) "\n! \nW[\fX\"\n##! x @A\"BG\\VfZ @A* A >)!!+" [keep prefix-numeric-value dired-kept-versions 0 kept-old-versions nil dired-file-version-alist late-retention early-retention message "Cleaning numerical backups (keeping %d late, %d old)..." dired-map-dired-file-lines dired-collect-file-versions fval q sort < sorted-v-list v-count dired-trample-file-versions "Cleaning numerical backups...done"] 5 "\ 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." "P"]) (byte-code "\"\"\"" [defalias dired-map-dired-file-lines #[(fun) "ebm?0\f!)l)\")\n!)y+" [nil buffer-read-only file looking-at dired-re-dir dired-get-filename t fun 1] 3] dired-collect-file-versions #[(fn) " !PG !\"\"\n& \nB B ," [file-name-nondirectory fn ".~" base-versions bv-length file-name-all-completions file-name-directory possibilities mapcar backup-extract-version versions dired-file-version-alist] 5] dired-trample-file-versions #[(fn) "\n\" 0\n O\"0\n \\O! >?0y! c*" [string-match "\\.~[0-9]+~$" fn start-vn nil base-version-list assoc 0 dired-file-version-alist string-to-int 2 delete-char 1 dired-del-marker] 4]] 3) (defalias 'dired-shell-quote #[(filename) "\f#' \f O TOR T \fOP+" ["" 0 nil end start result string-match "[^-0-9a-zA-Z_./]" filename "\\"] 6 "\ Quote a file name for inferior shell (see variable `shell-file-name')."]) (defalias (quote dired-read-shell-command) #[(prompt arg files) "  \"\"%" [dired-mark-pop-up nil shell files read-string format prompt dired-mark-prompt arg] 10]) (defalias 'dired-do-shell-command #[(command &optional arg) "\n\"?\" \nGZ$(\n$!*" [string-match "\\*" command on-each dired-get-marked-files t arg file-list dired-bunch-files 10000 #[(&rest files) "\n $!" [dired-run-shell-command dired-shell-stuff-it command files t arg] 6] nil dired-run-shell-command dired-shell-stuff-it] 6 "\ Run a shell command COMMAND on the marked files. If no files are marked or a specific numeric prefix arg is given, the next ARG files are used. Just \\[universal-argument] means the current file. The prompt mentions the file(s) or the marker, as appropriate. If there is output, it goes to a separate buffer. Normally the command is run on each file individually. However, if there is a `*' in the command then it is run just once with the entire file list substituted there. No automatic redisplay of dired buffers is attempted, as there's no telling what files the command may have changed. Type \\[dired-do-redisplay] to redisplay the marked files. The shell command has the top level directory as working directory, so output files usually are created there instead of in a subdir." (list (dired-read-shell-command (concat "! on " "%s: ") current-prefix-arg (dired-get-marked-files t current-prefix-arg)) current-prefix-arg)]) (defvar dired-mark-prefix "" "\ Prepended to marked files in dired shell commands.") (defvar dired-mark-postfix "" "\ Appended to marked files in dired shell commands.") (defvar dired-mark-separator " " "\ Separates marked files in dired shell commands.") (byte-code "\"\"\"\"\"" [defalias dired-shell-stuff-it #[(command file-list on-each &optional raw-arg) "\n\" Â\f \n\"#=\n\f# \nGV8 Q  !))" [string-match "\\*" command #[(x) "\n #" [dired-replace-in-string "\\*" x command] 4] #[(x) "\nQ" [command " " x] 3] stuff-it on-each mapconcat mapcar dired-shell-quote file-list ";" dired-mark-separator fns 1 dired-mark-prefix dired-mark-postfix] 5] dired-run-shell-command #[(command) " !‡" [shell-command command nil] 2] dired-call-process #[(program discard &rest arguments) "\n\f? &" [apply call-process program nil discard arguments] 7] dired-check-process #[(msg program &rest arguments) " \"!q \n $U?G !R!\f!R RԂR\f!\"," [nil default-directory dir err err-buffer message "%s..." msg get-buffer-create " *dired-check-process output*" erase-buffer apply dired-call-process program arguments 0 dired-log " " prin1-to-string "\n" t kill-buffer "%s...done"] 6] dired-kill-line #[(&optional arg) " !‰ UM\"! , !, )y`y`| VD S Ty *" [prefix-numeric-value arg nil file buffer-read-only 0 dired-get-filename t error "Can only kill file lines." dired-goto-subdir dired-kill-subdir 1 -1 dired-move-to-filename] 4 nil "P"]] 3) (defalias 'dired-do-kill-lines #[(&optional arg fmt) " \f !ebE  mA #ATy`y`|\")kmk T!ZyET`y`)|Ey!#+" [arg dired-get-subdir dired-kill-subdir dired-kill-line nil 0 count buffer-read-only dired-marker-regexp regexp re-search-forward t 1 dired-between-files looking-at "^ " "" fmt message "Killed %d line%s." dired-plural-s] 5 "\ Kill all marked lines (not the files). With a prefix argument, kill that many lines starting with the current line. (A negative argument kills lines before the current line.) To kill an entire subdirectory, go to its directory header line and use this command with a prefix argument (the value does not matter)." "P"]) (byte-code "\"\"\"\"!\n\"" [defalias dired-compress #[nil "  !\"`ȏb !)) P! +" [nil buffer-read-only dired-get-filename from-file dired-compress-file new-file start (dired-remove-entry new-file) ((error)) dired-update-file-line dired-log "Failed to compress"] 4] dired-compress-file #[(file) " \" \"u !łu \")7 P #?u Ou \")T P #?u Ou \")q P #?u Ouӏ)" [find-file-name-handler file dired-compress-file handler file-symlink-p nil case-fold-search string-match "\\.Z$" dired-check-process "Uncompressing " "uncompress" 0 -2 "\\.gz$" "gunzip" -3 "\\.z$" (byte-code "\nP\n$?\nP!\nP\nP" [dired-check-process "Compressing " file "gzip" "-f" file-exists-p ".gz" ".z"] 5) ((file-error (byte-code "\nP\n$?\nP" [dired-check-process "Compressing " file "compress" "-f" ".Z"] 5)))] 5] dired-mark-confirm #[(op-symbol arg) " >/\f\"=Ƃ!! \n\n \f\n\"R%*" [op-symbol dired-no-confirm dired-get-marked-files t arg compress "Compress or uncompress" capitalize symbol-name string files dired-mark-pop-up nil y-or-n-p " " dired-mark-prompt "? "] 10] dired-map-over-marks-check #[(fun arg op-symbol &optional show-progress) " \n\"É\n5\n.\n\"\nW*\f\f C  eb#K  ??  bc! \fB by É#  V) \f C*, G\"G =܂ !!!$!%\"-" [dired-mark-confirm op-symbol arg nil results found case-fold-search buffer-read-only dired-repeat-over-lines #[nil "! \fB" [show-progress sit-for 0 fun results] 2] 0 fun dired-marker-regexp next-position regexp re-search-forward t point-marker show-progress sit-for 1 dired-move-to-filename total-list total delq failures count compress "Compress or uncompress" capitalize symbol-name string message "%s: %d file%s." dired-plural-s dired-log-summary format "Failed to %s %d of %d file%s"] 9] boundp dired-query-alist ((121 . y) (32 . y) (110 . n) (127 . n) (33 . yes) (113 . no) (27 . no)) dired-query #[(qs-var qs-prompt &rest qs-args) "J \"A=Ƃt\f=Ȃt \n0!!\"1Pȉ# L \"n\" !# LGA>+*" [qs-var char assoc dired-query-alist action yes t no nil qs-prompt help-form format " [Type yn!q or %s] " key-description char-to-string help-char " [Type y, n, q or !] " elt result qprompt apply message qs-args read-char "Invalid char - type %c for help." ding sit-for 1 (t y yes)] 7]] 3) (defalias 'dired-do-compress #[(&optional arg) "\n$" [dired-map-over-marks-check dired-compress arg compress t] 5 "\ Compress or uncompress marked (or next ARG) files." "P"]) (defalias (quote dired-byte-compile) #[nil " ȏ ! \" # !. !y !," [dired-get-filename filename nil elc-file buffer-read-only failure err (byte-code " !)" [byte-compile-file filename] 2) ((error (byte-code "‡" [err failure nil] 1))) byte-compile-dest-file dired-log "Byte compile error for %s:\n%s\n" dired-make-relative dired-remove-file dired-add-file] 4]) (defalias 'dired-do-byte-compile #[(&optional arg) "\n$" [dired-map-over-marks-check dired-byte-compile arg byte-compile t] 5 "\ Byte compile marked (or next ARG) Emacs Lisp files." "P"]) (defalias (quote dired-load) #[nil " Ə\n?? \n# !*" [dired-get-filename nil failure file err (byte-code " ‰$" [load file nil t] 5) ((error (byte-code "‡" [err failure nil] 1))) dired-log "Load error for %s:\n%s\n" dired-make-relative] 4]) (defalias 'dired-do-load #[(&optional arg) "\n$" [dired-map-over-marks-check dired-load arg load t] 5 "\ Load the marked (or next ARG) Emacs Lisp files." "P"]) (defalias 'dired-do-redisplay #[(&optional arg test-for-subdir) "  \"\"!ɉ\n \f U B \" W\n \"!) eb#k ?? b \"!)\nB\nbyɉ# w) \"!)*, !" [test-for-subdir dired-get-subdir dired-insert-subdir arg read-string "Switches for listing: " dired-actual-switches message "Redisplaying..." nil results found case-fold-search buffer-read-only dired-repeat-over-lines #[nil "  \" !) B" [dired-get-filename fname message "Redisplaying... %s" dired-update-file-line results] 3] 0 dired-get-filename fname "Redisplaying... %s" dired-update-file-line dired-marker-regexp next-position regexp re-search-forward t point-marker 1 dired-move-to-filename "Redisplaying...done"] 6 "\ 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." "P\np"]) (byte-code "\"\"\"\"\"\"\"\"\"\"" [defalias dired-update-file-line #[(file) "yg``y`|\"! T\f$+ " [0 nil buffer-read-only opoint char 1 file dired-add-entry subst-char-in-region 32 dired-move-to-filename] 5] dired-fun-in-all-buffers #[(directory fun &rest args) "\n!!pÉ4@AȎ q\n \"0 !\fB)\f," [dired-buffers-for-dir expand-file-name directory nil success-list buf obuf buf-list ((set-buffer obuf)) apply fun args buffer-name] 4] dired-add-file #[(filename &optional marker-char) "\n!\n\f$" [dired-fun-in-all-buffers file-name-directory filename dired-add-entry marker-char] 5] dired-add-entry #[(filename &optional marker-char) " !` ! !ˍ\"b ,?" [directory-file-name filename dired-current-directory file-name-directory nil reason directory cur-dir opoint file-name-nondirectory not-found (byte-code " 'wg= !`W#b)A!<!6 A\"Éy`!P\")`\"yy`y`)}!* *Ç" [directory cur-dir "^ \n" nil 13 dired-unhide-subdir dired-after-subdir-garbage p dired-goto-subdir looking-at " " dired-goto-next-nontrivial-file throw not-found "Subdir not found" opoint buffer-read-only 0 dired-add-entry-do-indentation marker-char default-directory insert-directory filename dired-actual-switches "d" dired-insert-set-properties -1 dired-after-readin-hook 1 run-hooks dired-move-to-filename] 4)] 5] dired-add-entry-do-indentation #[(marker-char) "  ±" [marker-char dired-marker-char 32] 2] dired-after-subdir-garbage #[(dir) " ! !yl y`)" [dired-goto-subdir dir error "This cannot happen" 1 dired-move-to-filename] 2] dired-remove-file #[(file) "\n!\n#" [dired-fun-in-all-buffers file-name-directory file dired-remove-entry] 4] dired-remove-entry #[(file) " !y`y`)|))" [dired-goto-file file nil buffer-read-only 0 1] 2] dired-relist-file #[(file) "\n!\n#" [dired-fun-in-all-buffers file-name-directory file dired-relist-entry] 4] dired-relist-entry #[(file) "\f!yg`y`)|\f!\f =?' \"+" [nil marker buffer-read-only dired-goto-file file 0 1 directory-file-name dired-add-entry 32] 4]] 3) (defvar dired-backup-overwrite nil "\ *Non-nil if Dired should ask about making backups before overwriting files. Special value `always' suppresses confirmation.") (byte-code "\"\"\"\"\"\"" [defalias dired-handle-overwrite #[(to) "- -=\"\"-!@  # !)" [dired-backup-overwrite dired-overwrite-confirmed always dired-query overwrite-backup-query format "Make backup for existing file `%s'? " to find-backup-file-name backup rename-file 0 dired-relist-entry] 5] dired-copy-file #[(from to ok-flag) " ! \f $" [dired-handle-overwrite to copy-file from ok-flag dired-copy-preserve-time] 5] dired-rename-file #[(from to ok-flag) " ! \f# !$ !q  !!* ! \"" [dired-handle-overwrite to rename-file from ok-flag get-file-buffer buffer-modified-p modflag set-visited-file-name set-buffer-modified-p dired-remove-file dired-rename-subdir] 4] dired-rename-subdir #[(from-dir to-dir) " !\n! \n$ ! W@q L \"L !P\n #!!*)A*" [file-name-as-directory from-dir to-dir dired-fun-in-all-buffers dired-rename-subdir-1 expand-file-name buffer-list blist expanded-from-dir buffer-file-name dired-in-this-tree buffer-modified-p dired-replace-in-string "^" regexp-quote to-file modflag set-visited-file-name set-buffer-modified-p nil] 6] dired-rename-subdir-1 #[(dir to) " !\n & @ A\f@\" \f  # \nV ! \n ! \"  !!!S!) +" [expand-file-name dir dired-subdir-alist nil elt alist expanded-dir dired-in-this-tree dired-rename-subdir-2 to default-directory dired-unadvertise file-name-nondirectory dired-directory directory-file-name new-name get-buffer rename-buffer dired-advertise] 4] dired-rename-subdir-2 #[(elt dir to) "\n!! ! !b !$\n\"DΔbΕ#<Љ#D\n @#  @#!," [regexp-quote directory-file-name dir to nil buffer-read-only newtext regexp dired-get-subdir-min elt looking-at dired-subdir-regexp error "%s not found where expected - dired-subdir-alist broken?" 1 re-search-forward t replace-match "Expected to find `%s' in headerline of %s" dired-normalize-subdir dired-replace-in-string] 6]] 3) (defalias 'dired-string-replace-match #[(regexp string newtext &optional literal global) "OÉ \n#@”•\n O 1\f7\n\f\"Q\f M\nOP, \n#??x\n‰O k\fq\n\f\"\n•OQ" [global "" 0 nil me mb start result string-match regexp string literal newtext dired-expand-newtext] 5 "\ 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."]) (byte-code "\"\"\"\"\"" [defalias dired-expand-newtext #[(string newtext) " G\fWp HUb THU1 OfY[X[Z V   OW)f!f!)P T +" [0 newtext "" expanded-newtext len pos c 92 38 string 49 57 48 n char-to-string] 5] dired-create-files #[(file-creator operation fn-list name-constructor &optional marker-char) "\nG \n\"+2G !%\"R H G !% \"R\f\f!$, " [nil 0 fn-list total success-count skipped failures overwrite-backup-query overwrite-query to mapcar #[(from) " !  #\n\" !B\n!\n4\f\n#)AML !M֏+" [name-constructor from to nil dired-log "Cannot %s to same file: %s\n" operation dired-make-relative skipped file-exists-p overwrite (format "Type SPC or `y' to overwrite file `%s',\nDEL or `n' to skip to next,\nESC or `q' to not overwrite any of the remaining files,\n`!' to overwrite all remaining files with no more questions." to) help-form dired-query overwrite-query "Overwrite `%s'?" dired-overwrite-confirmed marker-char dired-file-marker actual-marker-char err (byte-code " \n #\f\n!T \n$\n\f\"" [file-creator from to dired-overwrite-confirmed overwrite dired-remove-file success-count message "%s: %d of %d" operation total dired-add-file actual-marker-char] 5) ((file-error (byte-code " !\nB %" [dired-make-relative from failures dired-log "%s `%s' to `%s' failed:\n%s\n" operation to err] 6)))] 5] dired-log-summary format "%s failed for %d of %d file%s" operation dired-plural-s "%s: %d of %d file%s skipped" message "%s: %s file%s" dired-move-to-filename] 8] dired-do-create-files #[(op-symbol file-creator operation arg &optional marker-char op1 how-to) " \f\"GU P \f\f \"%!8!H=CÂH!V]] #h! vقw%," [op1 operation dired-get-marked-files nil arg fn-list fn-count expand-file-name dired-mark-read-file-name 1 " %s to: " dired-dwim-target-directory op-symbol mapcar dired-make-relative target how-to file-directory-p t into-dir error "Marked %s: target must be a directory: %s" directory-file-name dired-create-files file-creator #[(from) "\n! \"" [expand-file-name file-name-nondirectory from target] 3] (lambda (from) target) marker-char] 10] dired-mark-read-file-name #[(prompt dir op-symbol arg files) "\n  \"\" &" [dired-mark-pop-up nil op-symbol files read-file-name format prompt dired-mark-prompt arg dir] 10] dired-dwim-target-directory #[nil "= \f, !q= )( *- )" [major-mode dired-mode dired-current-directory this-dir dired-dwim-target window-buffer next-window other-buf other-dir] 3]] 3) (defalias 'dired-create-directory #[(directory) "\n!! ! ! )" [directory-file-name expand-file-name directory expanded make-directory dired-add-file dired-move-to-filename] 3 "\ Create a directory called DIRECTORY." (list (read-file-name "Create directory: " (dired-current-directory)))]) (defalias (quote dired-into-dir-with-symlinks) #[(target) " !\n !?" [file-directory-p target file-symlink-p] 2]) (defalias 'dired-do-copy #[(&optional arg) " Ă\f%" [dired-do-create-files copy dired-copy-file dired-copy-preserve-time "Copy [-p]" "Copy" arg dired-keep-marker-copy] 6 "\ Copy all marked (or next ARG) files, or copy the current file. This normally preserves the last-modified date when copying. When operating on just the current file, you specify the new name. When operating on multiple or marked files, you specify a directory and new symbolic links are made in that directory with the same names that the files currently have." "P"]) (defalias 'dired-do-symlink #[(&optional arg) "\f %" [dired-do-create-files symlink make-symbolic-link "Symlink" arg dired-keep-marker-symlink] 6 "\ 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." "P"]) (defalias 'dired-do-hardlink #[(&optional arg) "\f %" [dired-do-create-files hardlink add-name-to-file "Hardlink" arg dired-keep-marker-hardlink] 6 "\ 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." "P"]) (defalias 'dired-do-rename #[(&optional arg) "\f &" [dired-do-create-files move dired-rename-file "Move" arg dired-keep-marker-rename "Rename"] 7 "\ 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." "P"]) (byte-code "\"\"" [defalias dired-do-create-files-regexp #[(file-creator operation arg regexp newname &optional whole-path marker-char) "\n\"G P #\n ̂  %." [dired-get-marked-files nil arg fn-list fn-count operation " `%s' to `%s'?" operation-prompt format "Type SPC or `y' to %s one match, DEL or `n' to skip to next,\n`!' to %s all remaining matches with no more questions." rename-regexp-help-form whole-path #[(from) " \n #\f \n$$$\f\n $*" [dired-string-replace-match regexp from newname rename-regexp-help-form help-form to dired-query rename-regexp-query operation-prompt dired-log "%s: %s did not match regexp %s\n" operation] 6] #[(from) " !\f# !\" \n1 !!$:: ! $+" [dired-string-replace-match regexp file-name-nondirectory from newname new expand-file-name file-name-directory to rename-regexp-help-form help-form dired-query rename-regexp-query operation-prompt dired-make-relative dired-log "%s: %s did not match regexp %s\n" operation] 7] regexp-name-constructor rename-regexp-query dired-create-files file-creator marker-char] 7] dired-mark-read-regexp #[(operation) " !š?\f  ƂQ!\n 'Ƃ(\nͰ!\n\f F," [prefix-numeric-value current-prefix-arg 0 whole-path arg dired-read-regexp "Path " "" operation " from (regexp): " regexp read-string " " " to: " newname] 7]] 3) (defalias 'dired-do-rename-regexp #[(regexp newname &optional arg whole-path) " \f &" [dired-do-create-files-regexp dired-rename-file "Rename" arg regexp newname whole-path dired-keep-marker-rename] 8 "\ Rename marked files containing REGEXP to NEWNAME. As each match is found, the user must type a character saying what to do with it. For directions, type \\[help-command] at that time. NEWNAME may contain \\=\\ or \\& as in `query-replace-regexp'. REGEXP defaults to the last regexp used. With a zero prefix arg, renaming by regexp affects the complete pathname - usually only the non-directory part of file names is used and changed." (dired-mark-read-regexp "Rename")]) (defalias 'dired-do-copy-regexp #[(regexp newname &optional arg whole-path) "\n\n  &" [dired-do-create-files-regexp dired-copy-file dired-copy-preserve-time "Copy [-p]" "Copy" arg regexp newname whole-path dired-keep-marker-copy] 8 "\ Copy all marked files containing REGEXP to NEWNAME. See function `dired-rename-regexp' for more info." (dired-mark-read-regexp "Copy")]) (defalias 'dired-do-hardlink-regexp #[(regexp newname &optional arg whole-path) " \f &" [dired-do-create-files-regexp add-name-to-file "HardLink" arg regexp newname whole-path dired-keep-marker-hardlink] 8 "\ Hardlink all marked files containing REGEXP to NEWNAME. See function `dired-rename-regexp' for more info." (dired-mark-read-regexp "HardLink")]) (defalias 'dired-do-symlink-regexp #[(regexp newname &optional arg whole-path) " \f &" [dired-do-create-files-regexp make-symbolic-link "SymLink" arg regexp newname whole-path dired-keep-marker-symlink] 8 "\ Symlink all marked files containing REGEXP to NEWNAME. See function `dired-rename-regexp' for more info." (dired-mark-read-regexp "SymLink")]) (byte-code "\"\"" [defalias dired-create-files-non-directory #[(file-creator basename-constructor operation arg) " \f\"%)" [nil rename-non-directory-query dired-create-files file-creator operation dired-get-marked-files arg #[(from) " !\n !!P#P !\f!$)'\f)" [file-name-directory from basename-constructor file-name-nondirectory to format "Type SPC or `y' to %s one file, DEL or `n' to skip to next,\n`!' to %s all remaining matches with no more questions." operation help-form dired-query rename-non-directory-query " `%s' to `%s'" dired-make-relative] 6] dired-keep-marker-rename] 6] dired-rename-non-directory #[(basename-constructor operation arg) "\n \f$" [dired-create-files-non-directory dired-rename-file basename-constructor operation arg] 5]] 3) (defalias 'dired-upcase #[(&optional arg) " #" [dired-rename-non-directory upcase "Rename upcase" arg] 4 "\ Rename all marked (or next ARG) files to upper case." "P"]) (defalias 'dired-downcase #[(&optional arg) " #" [dired-rename-non-directory downcase "Rename downcase" arg] 4 "\ Rename all marked (or next ARG) files to lower case." "P"]) (defalias 'dired-maybe-insert-subdir #[(dirname &optional switches no-error-if-not-dir-p) "`\n! \n!\n #!)" [opoint file-name-as-directory dirname switches dired-goto-subdir dired-insert-subdir no-error-if-not-dir-p push-mark] 4 "\ 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." (list (dired-get-filename) (if current-prefix-arg (read-string "Switches for listing: " dired-actual-switches)))]) (defalias 'dired-insert-subdir #[(dirname &optional switches no-error-if-not-dir-p) "\n!!\n\f\" \n!\n\"\n\n\"ˉ\f \f5\f\"A\n\"R!V\n!\n\n\f\"#h \n!!." [file-name-as-directory expand-file-name dirname dired-insert-subdir-validate switches no-error-if-not-dir-p file-directory-p error "Attempt to insert a non-directory: %s" assoc dired-subdir-alist nil buffer-read-only case-fold-search mark-alist switches-have-R elt string-match "R" dired-kill-tree t dired-insert-subdir-del dired-insert-subdir-newpos dired-insert-subdir-doupdate dired-insert-subdir-doinsert dired-build-subdir-alist dired-initial-position dired-mark-remembered] 6 "\ Insert this subdirectory into the same dired buffer. If it is already present, overwrites previous entry, else inserts it at its natural place (as `ls -lR' would have done). With a prefix arg, you may edit the `ls' switches used for this listing. You can add `R' to the switches to expand the whole tree starting at this subdirectory. This function takes some pains to conform to `ls -lR' output." (list (dired-get-filename) (if current-prefix-arg (read-string "Switches for listing: " dired-actual-switches)))]) (byte-code "\"\"\"\"\"\"\"\"\"" [defalias dired-insert-subdir-validate #[(dirname &optional switches) " !\" \"\")" [dired-in-this-tree dirname expand-file-name default-directory error "%s: not in this directory tree" switches nil case-fold-search mapcar #[(x) " \n\"? \"?= \"" [string-match x switches dired-actual-switches error "Can't have dirs with and without -%s switches together"] 4] ("F" "b")] 4] dired-alist-add #[(dir new-marker) " \n\" " [dired-alist-add-1 dir new-marker dired-alist-sort] 3] dired-alist-sort #[nil " \"" [sort dired-subdir-alist #[(elt1 elt2) " !\n!V" [dired-get-subdir-min elt1 elt2] 3]] 3] dired-kill-tree #[(dirname &optional remember-marks) " !\nÉ7@@A \" ! \n!\f \f+" [expand-file-name dirname dired-subdir-alist nil m-alist dir s-alist dired-in-this-tree dired-goto-subdir dired-kill-subdir remember-marks] 3 nil "DKill tree below directory: "] dired-insert-subdir-newpos #[(new-dir) "3@A @ !\f \" !\nb-m>yc`" [dired-subdir-alist nil new-pos pos dir elt alist dired-get-subdir-min dired-tree-lessp new-dir dired-get-subdir-max -1 "\n"] 6] dired-insert-subdir-del #[(element) " !b bmu\n`\"\n`|)" [dired-get-subdir-min element begin-marker dired-subdir-max -1 dired-remember-marks] 4] dired-insert-subdir-doinsert #[(dirname switches) "` \"\n#\n \f!@@)!;` \n$`\")) \" \n #\nb !\n !D *" [nil end begin message "Reading directory %s..." dirname switches dired-replace-in-string "R" "" dired-actual-switches reverse dired-subdir-alist dired-readin-insert dired-directory opoint insert-directory t dired-insert-set-properties "Reading directory %s...done" point-marker indent-rigidly 2 dired-insert-headerline marker-position] 5] dired-insert-subdir-doupdate #[(dirname elt beg-end) "! Ó \"4@A@ b }!," [elt dired-get-subdir-min point-marker nil dired-alist-add dirname dired-after-readin-hook beg-end end begin run-hooks] 4] dired-tree-lessp #[(dir1 dir2) " !\n! \"\n\"0 0@ @0A A@ @JJmXXɂmaʂmjɂm!," [file-name-as-directory dir1 dir2 dired-split "/" components-2 components-1 c2 c1 nil t error "This can't happen"] 5]] 3) (defalias 'dired-split #[(pat str &optional limit) " \n\"\n OC ĕJ ( WJ \n#JĔT\n O Bĕ X Wee\nO B ," [string-match pat str start 0 result 1 count end limit nil] 5 "\ Splitting on regexp PAT, turn string STR into a list of substrings. Optional third arg LIMIT (>= 1) is a limit to the length of the resulting list. Thus, if SEP is a regexp that only matches itself, (mapconcat 'identity (dired-split SEP STRING) SEP) is always equal to STRING."]) (defalias 'dired-prev-subdir #[(arg &optional no-error-if-not-found no-skip) " [\n #" [dired-next-subdir arg no-error-if-not-found no-skip] 4 "\ Go to previous subdirectory, regardless of level. When called interactively and not on a subdir line, go to this subdir's line." (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) (if (dired-get-subdir) 1 0)))]) (defalias (quote dired-subdir-min) #[nil "‰#!`)" [dired-prev-subdir 0 t error "Not in a subdir!"] 4]) (defalias 'dired-goto-subdir #[(dir) " ! \"\f!bw`)" [file-name-as-directory dir assoc dired-subdir-alist elt dired-get-subdir-min "^ \n" nil] 4 "\ 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." (byte-code " %!C " [expand-file-name completing-read "Goto in situ directory: " dired-subdir-alist nil t dired-current-directory push-mark] 7)]) (defalias 'dired-mark-subdir-files #[nil "  \")" [dired-subdir-min p-min dired-mark-files-in-region dired-subdir-max] 3 "\ Mark all files except `.' and `..'." nil]) (defalias 'dired-kill-subdir #[(&optional remember-marks) " ‰ ! # \" |m0! !," [dired-subdir-min dired-subdir-max nil cur-dir buffer-read-only end beg dired-current-directory default-directory error "Attempt to kill top level directory" remember-marks dired-remember-marks delete-char -1 dired-unsubdir] 5 "\ Remove all lines of current subdirectory. Lower levels are unaffected." nil]) (defalias (quote dired-unsubdir) #[(dir) "\n \" \"" [delq assoc dir dired-subdir-alist] 4]) (defalias 'dired-tree-up #[(arg) " \nY\nS !! ! \")" [dired-current-directory dir arg 1 file-name-directory directory-file-name dired-goto-subdir error "Cannot go up to %s - not in this tree."] 3 "\ Go up ARG levels in the dired tree." "p"]) (defalias 'dired-tree-down #[nil " !6@A@!\f\"@!* @ bC!+" [dired-current-directory nil case-fold-search pos dir reverse dired-subdir-alist elt rest dired-in-this-tree directory-file-name dired-goto-subdir error "At the bottom"] 3 "\ Go down in the dired tree." nil]) (byte-code "\"\"\"" [defalias dired-unhide-subdir #[nil " $)" [nil buffer-read-only subst-char-in-region dired-subdir-min dired-subdir-max 13 10] 5] dired-hide-check #[nil "!" [selective-display error "selective-display must be t for subdir hiding to work!"] 2] dired-subdir-hidden-p #[(dir) " \n!!)" [selective-display dired-goto-subdir dir looking-at " "] 2]] 3) (defalias 'dired-hide-subdir #[(arg) " SYP \f!\f\"  !S   !bw?` $G` $-\"" [dired-hide-check arg 0 dired-current-directory cur-dir dired-subdir-hidden-p hidden-p assoc dired-subdir-alist elt dired-get-subdir-max end-pos nil buffer-read-only dired-get-subdir-min "^\n " subst-char-in-region 13 10 dired-next-subdir 1 t] 5 "\ 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." "p"]) (defalias 'dired-hide-all #[(arg) " eb#)ed$Md \n \nL\n@! by`)$\n@! \nA\n'*)" [dired-hide-check nil buffer-read-only search-forward " " t subst-char-in-region 13 10 dired-subdir-alist alist pos dired-get-subdir-min -1] 6 "\ 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." "P"]) (provide (quote dired-aux))