home *** CD-ROM | disk | FTP | other *** search
(provide (quote dired)) (defconst dired-version (substring "$Revision: 4.53 $" 11 -2) "\ The revision number of dired (as string). The complete RCS id is: $Id: dired.el,v 4.53 90/12/21 12:09:56 sk Exp $ Don't forget to mention this when reporting bugs.") (require (quote emacs-19)) (defvar dired-chmod-program "chmod" "\ Pathname of chmod command.") (defvar dired-chgrp-program "chgrp" "\ Pathname of chgrp command.") (defvar dired-chown-program (if (memq system-type (quote (hpux usg-unix-v))) "/bin/chown" "/etc/chown") "\ Pathname of chown command.") (defvar dired-ls-program "ls" "\ *Absolute or relative name of the ls program used by dired.") (defvar dired-ls-F-marks-symlinks nil "\ *Set this to t if dired-ls-program with -lF marks the symbolic link itself with a trailing @ (usually the case under Ultrix). Example: if `ln -s foo bar; ls -F bar' gives `bar -> foo', set it to nil (the default), if it gives `bar@ -> foo', set it to t. Dired checks if there is really a @ appended. Thus, if you have a marking ls program on one host and a non-marking on another host, and don't care about symbolic links which really contain a trailing @, you can always set this variable to t.") (defvar dired-directory nil "\ The directory name or shell wildcard passed as argument to ls. Local to each dired buffer.") (defvar dired-actual-switches nil "\ The actual (buffer-local) value of dired-listing-switches.") (defvar dired-re-inode-size "\\s *[0-9]*\\s *[0-9]* ?") (defconst dired-re-mark "^[^ ]") (defconst dired-re-maybe-mark "^. ") (defconst dired-re-dir (concat dired-re-maybe-mark dired-re-inode-size "d[-r]")) (defconst dired-re-sym (concat dired-re-maybe-mark dired-re-inode-size "l[-r]")) (defconst dired-re-exe (mapconcat (function (lambda (x) (concat dired-re-maybe-mark dired-re-inode-size x))) (quote ("-[-r][-w][xs][-r][-w].[-r][-w]." "-[-r][-w].[-r][-w][xs][-r][-w]." "-[-r][-w].[-r][-w].[-r][-w][xst]")) "\\|")) (defconst dired-re-dot "^.* \\.\\.?$") (defvar dired-mark-prefix "" "\ *Prepended to marked files.") (defvar dired-mark-postfix "" "\ *Appended to marked files.") (defvar dired-mark-separator " " "\ *Separates marked files.") (defvar dired-background-prompt "Background shell command on %s: " "\ *Format string for \\[dired-mark-background-shell-command] prompt.") (defvar dired-shell-prompt "Shell command on %s: " "\ *Format string for \\[dired-mark-shell-command] prompt.") (defvar shell-maximum-command-length 10000 "\ *If non-nil, maximum number of bytes a dired shell command can have before the user is asked for confirmation.") (defvar dired-print-command "print %s" "\ Format string for shell command to print files in dired. Can actually be used for any special purpose shell command to be run by \\[dired-mark-print].") (defvar dired-trivial-filenames "^\\.\\.?$\\|^#" "\ *Regexp of files to skip when moving point to the first file of a new directory listing. Nil means move to the subdir line, t means move to first file.") (defvar dired-basename-regexp "\\(.+\\)\\.\\(.+\\)$") (or (fboundp (quote dired-yes)) (fset (quote dired-yes) (quote yes-or-no-p))) (defvar dired-load-hook nil "\ Run after loading dired. You can customize key bindings or load extensions with this.") (defvar dired-mode-hook nil "\ Run in each new dired buffer.") (defvar dired-readin-hook nil "\ After each listing of a file or directory, this hook is run with the buffer narrowed to the listing.") (defvar dired-mark-count 0 "\ Count of marked files as determined by the last dired-mark-get-files.") (defvar dired-mark-files nil "\ List of marked files as determined by the last dired-mark-get-files.") (defvar dired-flagging-regexp nil "\ Last regexp used in flagging files.") (defmacro dired-count-up nil (byte-code "└ç" [(setq dired-mark-count (1+ dired-mark-count))] 1)) (defun dired-plural-s nil (byte-code "┴Uâ ┬é ├ç" [dired-mark-count 1 "" "s"] 2)) (defmacro dired-mark-if (predicate msg) (byte-code "┬├─┼╞╟╚E╔╩╦╠ ═E╬F╧╨C╤#&Eç" [msg predicate let ((buffer-read-only nil)) list save-excursion (setq dired-mark-count 0) message "0 %ss..." (goto-char (point-min)) while (not (eobp)) if (progn (delete-char 1) (insert dired-marker-char) (setq dired-mark-count (1+ dired-mark-count))) (forward-line 1) append (message "%s %s%s %s%s." dired-mark-count) ((dired-plural-s) (if (eq dired-marker-char 32) "un" "") (if (eq dired-marker-char 68) "flagged" "marked"))] 12)) (defmacro dired-mark-map (body arg) (byte-code "┴┬├─┼┴╞╟╚├╔╩╦╠═&EE╬╧E%Eç" [body let (buffer-read-only found) list if arg (opoint (regexp (dired-marker-regexp))) save-excursion (goto-char (point-min)) while (re-search-forward regexp nil t) (setq opoint (point)) (goto-char opoint) (setq found t) or found] 17)) (defun dired-ls (file &optional switches wildcard full-directory-p) (byte-code "?â ╦ $éV å ëê â@ ╠ ! ═╚╔╚ ╬=â0 ╧é1 ╨╤╥ ╙╘ !%&)éV ═╚╔╚ ╬=âS ╒ !éT &ç" [dired-ls-program file switches wildcard full-directory-p dired-listing-switches default-directory shell-file-name nil t system-type dos-dired-ls file-name-directory call-process ms-dos "/c" "-c" concat " -d " " " file-name-nondirectory directory-file-name] 15)) (defun dired-call-process (program discard &rest arguments) (byte-code "─!â ┼╞┴ ?┴ &é ?à ╟cç" [program nil discard arguments file-exists-p apply call-process "Command not found."] 8)) (defconst dired-log-buf "*Dired log*") (defun dired-why nil "\ Pop up a buffer with error log output from Dired's last subprocesses." (interactive) (byte-code "┴ê┬!ç" [dired-log-buf nil pop-to-buffer] 2)) (defun dired-check-process-handler nil (byte-code " è╞!qêdbê╟╚╔ ╩ ╦%ê╠ !)ê═╬ #ê╧╨!ê┼)ç" [log-buf dired-log-buf program err-buffer msg nil get-buffer-create insert " " current-time-string " (" ") " insert-buffer message "%s... error - type W or see buffer %s" sit-for 1] 8)) (defun dired-check-process (program msg &rest arguments) (byte-code "──╟╚ \"êè╔╩!ëêqê╦ ê╠═ ─ $ê╬╧╨ \"ë)ê â/ ╤ é9 ╥!ê╟╙ \"ê╞*ç" [err-buffer err msg program nil arguments t message "%s..." get-buffer-create " *dired-check-process output*" erase-buffer apply dired-call-process /= 0 buffer-size dired-check-process-handler kill-buffer "%s... done."] 11)) (defun dired-insert-headerline (dir) (byte-code "┴┬├!─#êè┼c)ç" [dir insert " " directory-file-name ":" " "] 5)) (defun dired-readin (dirname buffer) (byte-code "è╚╔\"ê qê├╩ ê╦ ê╠!ëê ═=â% ╬ #éL ╧!â4 ╨ ├╞$éL ╤╥╙!!!?âG ╘╒╓#éL ╨ ╞#êebê╫ed╪#ê┘┌!êebê█!)ê▄├!ê╚▌\")ç" [dirname buffer buffer-read-only nil system-type dired-actual-switches t default-directory message "Reading directory %s..." widen erase-buffer expand-file-name vax-vms vms-read-directory file-directory-p dired-ls file-readable-p directory-file-name file-name-directory insert "Directory " " inaccessible or nonexistent. " indent-rigidly 2 run-hooks dired-readin-hook dired-insert-headerline set-buffer-modified-p "Reading directory %s...done"] 19)) (defun dired-find-buffer (dirname) (byte-code "╞ ┼à- è@qê ╟=à ╚ \"â$ @┼ëé( Aë)êé ê å7 ╔╩ !!*ç" [blist found major-mode dired-directory dirname nil buffer-list dired-mode equal create-file-buffer directory-file-name] 5)) (defun dired-read-dir-and-switches (str) (byte-code "┼╞╟\"┴ ┴$ à ╚╔ \"Dç" [str nil default-directory current-prefix-arg dired-listing-switches read-file-name format "Dired %s (directory): " read-string "Dired listing switches: "] 6)) (defun dired (dirname &optional switches) "\ `Edit' directory DIRNAME--delete, rename, print, etc. some files in it. Prefix arg lets you change the buffer local value of dired-actual-switches. Dired displays a list of files in DIRNAME (which may also have shell wildcards appended to select certain files). You can move around in it with the usual commands. You can flag files for deletion with C-d and then delete them by typing `x'. Type `h' after entering dired for more info." (interactive (byte-code "└┴!ç" [dired-read-dir-and-switches ""] 2)) (byte-code "┬ê├─ \"!ç" [dirname switches nil switch-to-buffer dired-noselect] 4)) (defun dired-other-window (dirname &optional switches) "\ `Edit' directory DIRNAME. Like M-x dired but selects in another window." (interactive (byte-code "└┴!ç" [dired-read-dir-and-switches "in other window "] 2)) (byte-code "┬ê├─ \"!ç" [dirname switches nil switch-to-buffer-other-window dired-noselect] 4)) (defun dired-noselect (dirname &optional switches) (byte-code "å ëê├─!!ëê┼!à ╞!ëê╟ \"ç" [dirname default-directory switches expand-file-name directory-file-name file-directory-p file-name-as-directory dired-internal-noselect] 7)) (defun dired-internal-noselect (dirname &optional switches) (byte-code "╟ !p å ëêèqê╚ !â é ╔ !ëê ╩ \")ê╦ \")ê╠Äqêebê═ )ê*ç" [buffer dirname old-buf switches dired-listing-switches default-directory dired-actual-switches dired-find-buffer file-directory-p file-name-directory dired-readin dired-mode ((byte-code "qç" [old-buf] 1)) dired-initial-position] 7)) (defun dired-remember-marks nil (byte-code "───╞ ─┼#à$ ╟─┼\"ëà h B Bëêé ê +ç" [fil chr alist dired-re-mark nil t re-search-forward dired-get-filename] 5)) (defun dired-mark-remembered (alist) (byte-code "─── à- @ A@Aëê┼ !à) è╞ ê╟╚!ê c)êé +ç" [elt fil chr alist nil dired-goto-file beginning-of-line delete-char 1] 5)) (defun dired-revert (&optional arg noconfirm) (byte-code "`╬┬├\"┬╧!A┬ à ╨ed╤╥$ê╙bê╘ ëê╒ p\"ê╓ ê╫╪ \"ë ê┘ ê╫┌ \"åd ┬┬ àc @ A @ë ê┬█▄ÅêéI *ê▌ !ê àp ▐ !åu bê▀ -ê├ëç" [opoint ofile nil t mark-alist old-subdir-alist dired-subdir-alist buffer-read-only selective-display dired-directory dired-used-F dired-actual-switches elt dir dired-get-filename reverse subst-char-in-region 13 10 1 dired-remember-marks dired-readin dired-advertise string-match "F" dired-build-subdir-alist "R" (byte-code "┴!ç" [dir dired-insert-subdir] 2) ((error (byte-code "└ç" [nil] 1))) dired-mark-remembered dired-goto-file dired-move-to-filename] 14)) (defvar dired-mode-map nil "\ Local keymap for dired-mode buffers.") (if dired-mode-map nil (setq dired-mode-map (make-keymap)) (suppress-keymap dired-mode-map) (define-key dired-mode-map " " (quote dired-next-line)) (define-key dired-mode-map "!" (quote dired-mark-shell-command)) (define-key dired-mode-map "#" (quote dired-flag-auto-save-files)) (define-key dired-mode-map "$" (quote dired-hide-subdir)) (define-key dired-mode-map "&" (quote dired-mark-background-shell-command)) (define-key dired-mode-map "*" (quote dired-mark-executables)) (define-key dired-mode-map "+" (quote dired-create-directory)) (define-key dired-mode-map "." (quote dired-clean-directory)) (define-key dired-mode-map "/" (quote dired-mark-dirlines)) (define-key dired-mode-map "<" (quote dired-prev-dirline)) (define-key dired-mode-map "=" (quote dired-hide-all)) (define-key dired-mode-map ">" (quote dired-next-dirline)) (define-key dired-mode-map "?" (quote dired-summary)) (define-key dired-mode-map "@" (quote dired-mark-symlinks)) (define-key dired-mode-map "B" (quote dired-mark-byte-recompile)) (define-key dired-mode-map "C" (quote dired-mark-compress)) (define-key dired-mode-map "D" (quote dired-diff)) (define-key dired-mode-map "F" (quote dired-flag-regexp-files)) (define-key dired-mode-map "G" (quote dired-mark-chgrp)) (define-key dired-mode-map "K" (quote dired-kill-subdir)) (define-key dired-mode-map "L" (quote dired-mark-load)) (define-key dired-mode-map "M" (quote dired-mark-chmod)) (define-key dired-mode-map "O" (quote dired-mark-chown)) (define-key dired-mode-map "P" (quote dired-mark-print)) (define-key dired-mode-map "R" (quote dired-rename-regexp)) (define-key dired-mode-map "S" (quote dired-sort-other)) (define-key dired-mode-map "U" (quote dired-mark-uncompress)) (define-key dired-mode-map "W" (quote dired-why)) (define-key dired-mode-map "X" (quote dired-mark-delete)) (define-key dired-mode-map "" (quote dired-backup-unflag)) (define-key dired-mode-map " " (quote dired-undo)) (define-key dired-mode-map "" (quote dired-flag-file-deleted)) (define-key dired-mode-map "" (quote dired-next-line)) (define-key dired-mode-map "" (quote dired-previous-line)) (define-key dired-mode-map "u" (quote dired-undo)) (define-key dired-mode-map " " (quote dired-unflag-all-files)) (define-key dired-mode-map "τ" (quote dired-goto-file)) (define-key dired-mode-map "Σ" (quote dired-down-subdir)) (define-key dired-mode-map "╟" (quote dired-goto-subdir)) (define-key dired-mode-map "δ" (quote dired-mark-kill)) (define-key dired-mode-map "φ" (quote dired-mark-files)) (define-key dired-mode-map "ε" (quote dired-next-subdir)) (define-key dired-mode-map "≡" (quote dired-prev-subdir)) (define-key dired-mode-map "⌡" (quote dired-up-subdir)) (define-key dired-mode-map "■" (quote dired-backup-diff)) (define-key dired-mode-map "^" (quote dired-up-directory)) (define-key dired-mode-map "c" (quote dired-mark-copy)) (define-key dired-mode-map "d" (quote dired-flag-file-deleted)) (define-key dired-mode-map "e" (quote dired-find-file)) (define-key dired-mode-map "f" (quote dired-find-file)) (define-key dired-mode-map "g" (quote revert-buffer)) (define-key dired-mode-map "h" (quote describe-mode)) (define-key dired-mode-map "i" (quote dired-insert-subdir)) (define-key dired-mode-map "k" (quote dired-kill-line)) (define-key dired-mode-map "l" (quote dired-mark-redisplay)) (define-key dired-mode-map "m" (quote dired-mark-subdir-or-file)) (define-key dired-mode-map "n" (quote dired-next-line)) (define-key dired-mode-map "o" (quote dired-find-file-other-window)) (define-key dired-mode-map "p" (quote dired-previous-line)) (define-key dired-mode-map "q" (quote kill-buffer)) (define-key dired-mode-map "r" (quote dired-mark-move)) (define-key dired-mode-map "s" (quote dired-sort-toggle)) (define-key dired-mode-map "u" (quote dired-unflag)) (define-key dired-mode-map "v" (quote dired-view-file)) (define-key dired-mode-map "w" (quote dired-copy-filename-as-kill)) (define-key dired-mode-map "x" (quote dired-do-deletions)) (define-key dired-mode-map "z" (quote bury-buffer)) (define-key dired-mode-map "~" (quote dired-flag-backup-files))) (put (quote dired-mode) (quote mode-class) (quote special)) (defun dired-mode (&optional dirname switches) "\ Mode for `editing' directory listings. In dired, you are `editing' a list of the files in a directory and (optionally) its subdirectories. You can move using the usual cursor motion commands. Letters no longer insert themselves. Digits are prefix arguments. Instead, type d to flag a file for Deletion. Type m 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 (or a prefix argument is given). Type u to Unflag a file (remove its D flag or any mark). Type DEL to back up one line and unflag. Type x to eXecute the deletions requested. Type f to Find the current line's file (or dired it in another buffer, if it is a directory). Type i to dired a subdirectory In situ and K to kill it again or ^ to go back. Type v to view a file or its in situ subdirectory. Type ^ to go to the parent directory. Type < and > to move to file lines that are directories. Type M-n, M-p, M-u, M-d to move to in situ subdirectory headerlines. Type M-g to go to a file's line, M-G to go to a subdir headerline. Type o to find file or dired directory in Other window. Type # to flag temporary files (names beginning with #) for deletion. Type ~ to flag backup files (names ending with ~) for deletion. Type . to flag numerical backups for deletion. (Spares dired-kept-versions (or prefix argument) recent versions.) Type + to create a new directory. Type r to Rename a file or move the marked files to another directory. Type c to Copy files. Type D to Diff a file, M-~ to diff it with its backup. Type l to reList files or subdirectories. Type s to toggle sorting by name/date, S to set dired-actual-switches. Type g to read all directories again. This retains all marks. Space and Rubout can be used to move down and up by lines. Also: C -- compress files U -- uncompress files ! -- run shell command on files & -- background shell command M, G, O -- change mode, group or owner of files L, B -- load or byte-compile emacs lisp files F, M-m -- flag (`D') or mark (`*') files matching a regexp *, @, / -- (un)mark executables, symbolic links, directories $, = -- (un)hide this or all subdirectories X -- delete marked files If dired ever gets confused, you can either type \\[dired-revert] to read the directories again, type \\[dired-mark-redisplay] to relist a single file or subdirectory, or type \\[dired-build-subdir-alist] to parse the buffer again for the directory tree. Hooks: dired-load-hook, dired-mode-hook, dired-readin-hook (q.v.) \\{dired-mode-map}" (interactive) (byte-code "═ê╘ ê╒└!ê╓ëê╫ëê╪ëê╒├!ê å ëê╒╞!ê ëê╒╟!êå5 ëê╒┘!┌█\"Lê▄ ▌QCë ê═ë ê╧ëê▐!ê╒╙!ê╧ëê▀ ê╒╥!ê═ëêα ê╒ß!êß êΓBëêπΣ!ç" [revert-buffer-function major-mode mode-name dired-directory dirname default-directory list-buffers-directory dired-actual-switches switches dired-listing-switches mode-line-buffer-identification dired-version case-fold-search nil buffer-read-only t dired-mode-map selective-display dired-subdir-alist minor-mode-alist kill-all-local-variables make-local-variable dired-revert dired-mode "Dired" dired-used-F string-match "F" "Dired " " (beta): %17b" use-local-map dired-advertise dired-build-subdir-alist dired-sort-mode (dired-sort-mode dired-sort-mode) run-hooks dired-mode-hook] 16)) (defun dired-repeat-over-lines (arg function) (byte-code "┬ ê├Và m?à8 Sëê┬ êm?à ─ à' ┼╞!êé êè╟ !)ê┼╞!ê╚ êé ê├WàA o?àn Tëê┼╔!êo?àT ─ à^ ┼╔!êéM ê┬ êè╟ !)ê╚ êé9 ç" [arg function beginning-of-line 0 dired-between-files forward-line 1 funcall dired-move-to-filename -1] 15)) (defun dired-flag-file-deleted (arg) "\ In dired, flag the current line's file for deletion. With arg, repeat over several lines." (interactive "p") (byte-code "┴ê┬├\"ç" [arg nil dired-repeat-over-lines (lambda nil (let ((buffer-read-only nil)) (delete-char 1) (insert "D") nil))] 3)) (defun dired-read-regexp (prompt) (byte-code "┬ \"ëç" [dired-flagging-regexp prompt read-string] 3)) (defun dired-flag-regexp-files (regexp &optional arg marker-char) "\ In dired, flag all files containing the specified REGEXP for deletion. Use `^' and `$' if the match should span the whole (non-directory part) of the filename. Exclude subdirs by hiding them. Directories are not flagged unless a prefix argument is given." (interactive (byte-code "┴┬!Dç" [current-prefix-arg dired-read-regexp "Flagging regexp: "] 3)) (byte-code "─ê å ╔─è╩ëê╦╠═\"êebêm?àH å& ╬!?à2 l?à2 ╧!à@ ╨╤!ê cê Tëê╥╤!êé ê╦╙ ═╘ ╒=âY ╓éZ ╫ ╔=âd ╪ée ┘&)))ç" [current-prefix-arg dired-marker-char marker-char buffer-read-only nil dired-mark-count arg dired-re-dir regexp 68 0 message "0 %ss..." "matching file" looking-at dired-this-file-matches delete-char 1 forward-line "%s %s%s %s%s." dired-plural-s 32 "un" "" "flagged" "marked"] 14)) (defun dired-summary nil (interactive) (byte-code "└ê┴┬!ç" [nil message "d-elete, u-ndelete, x-ecute, f-ind, o-ther window, r-ename, c-opy, h-elp"] 2)) (defun dired-unflag (arg) "\ In dired, remove the current line's delete flag then move to next line." (interactive "p") (byte-code "┴ê┬├\"ç" [arg nil dired-repeat-over-lines (lambda nil (let ((buffer-read-only nil)) (delete-char 1) (insert " ") (forward-char -1) nil))] 3)) (defun dired-backup-unflag (arg) "\ In dired, move up a line and remove deletion flag there." (interactive "p") (byte-code "┴ê┬[!ç" [arg nil dired-unflag] 2)) (defun dired-next-line (arg) "\ Move down ARG lines then position at filename." (interactive "p") (byte-code "┴ê┬!ê├ ç" [arg nil next-line dired-move-to-filename] 3)) (defun dired-previous-line (arg) "\ Move up ARG lines then position at filename." (interactive "p") (byte-code "┴ê┬!ê├ ç" [arg nil previous-line dired-move-to-filename] 3)) (defun dired-up-directory nil "\ Dired parent directory. Tries first to find it in this buffer." (interactive) (byte-code "├ê─┼ ╞╟ \"!ëê╚╔ !!å\" ╩╟╦╠┬$!!*ç" [fn dir t nil ".." dired-current-directory file-name-as-directory expand-file-name dired-goto-file directory-file-name dired read-file-name "Dired: "] 12)) (defun dired-find-file nil "\ In dired, visit the file or directory named on this line." (interactive) (byte-code "└ê┴┬ !ç" [nil find-file dired-get-filename] 3)) (defun dired-view-file nil "\ In dired, examine a file in view mode, returning to dired when done. When file is a directory, tries to go to its in situ subdirectory." (interactive) (byte-code "┴ê┬├ !â ─├ !å ┼╞├└!\"é ╟├ !ç" [t nil file-directory-p dired-get-filename dired-goto-subdir message "Directory %s not inserted - type i to insert or f to dired." view-file] 9)) (defun dired-find-file-other-window nil "\ In dired, visit this file or directory in another window." (interactive) (byte-code "└ê┴┬ !ç" [nil find-file-other-window dired-get-filename] 3)) (defun dired-get-filename (&optional localp no-error-if-not-filep) "\ In dired, return name of file mentioned on this line. Value returned normally includes the directory name. A non-nil 1st argument means use path name relative to default-directory, which may contain slashes if in a subdirectory. A non-nil 2nd argument says return nil if no filename on this line, otherwise an error occurs." (byte-code "┴┴┴┴ è╟ ?!ëà ╚ !ë)ê à% à% ╔ \"ëê à3 ╩ ╦!\",ç" [case-fold-search nil file p1 p2 no-error-if-not-filep localp dired-move-to-filename dired-move-to-end-of-filename buffer-substring dired-make-absolute dired-current-directory] 7)) (defun dired-move-to-filename (&optional raise-error eol) "\ In dired, move to first char of filename on this line. Returns position (point) or nil if no filename on this line." (byte-code "å ┼ ê`ëê╞ ê ╟=â0 ╚╔┬#â\" ╩╦!é- â, ╠═!é- ─éU ╚╬┬#âJ ╧╨!ê╧╤\"ê╧╨\"ê`éU âT ╠═!éU ─ç" [eol system-type t raise-error nil end-of-line beginning-of-line vax-vms re-search-forward ". [][.A-Z-0-9_$;<>]" backward-char 1 error "No file on this line." "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)[ ]+[0-9]+" skip-chars-forward " " "^ "] 11)) (defun dired-move-to-end-of-filename (&optional no-error eol) (byte-code "╚╚╚╚╚ `ëê å è═ ê`)ëêà' è╬╧ ╟#)ëê â2 ╚é─ ╨=âA ╤╥ ╟#é─ è╙╘╚╟#åR åR ╒╓!ê╫╪┘!┌┘!\"█ ▄\"▌▐╫╪▀!┌▀!\"╫╪α!┌α!\"╫╪ß!┌ß!\"Q\"ë)ê âó ╤Γ ╟#àƒ πΣ!ê àÖ hσ=àƒ πµ!éñ bê à╛ █ τ\"å╛ █ Φ\"å╛ ?à╛ à─ πµ!ê å▄ `=?å▄ ╒ â┌ Θé█ ╓!ê`=âτ ╚éΦ `-ç" [opoint flag ex sym hidden eol selective-display t nil system-type no-error dired-ls-F-marks-symlinks dired-used-F end-of-line search-forward " " vax-vms re-search-forward "[][.A-Z-0-9_$;<>]+" re-search-backward "\\(.\\)[-r][-w]\\(.\\)[-r][-w]\\(.\\)[-r][-w]\\(.\\)" error "No file on this line." buffer-substring match-beginning 1 match-end string= "l" string-match "[xst]" 2 3 4 " ->" forward-char -3 64 -1 "d" "s" "File line is hidden, type $ to unhide."] 28)) (defun dired-map-dired-file-lines (fn) (byte-code "è├├├ebêm?à< è╟ !?à3 l?à3 ╚┼┼\"╚├┼\"ëà3 ╔ ê╩ #)ê╦╠!êé +)ç" [filename longfilename buffer-read-only nil dired-re-dir t fn looking-at dired-get-filename end-of-line funcall forward-line 1] 9)) (defun dired-clean-directory (keep) "\ Flag numerical backups for deletion. Spares dired-kept-versions latest versions, and kept-old-versions oldest. Positive numeric arg overrides dired-kept-versions; negative numeric arg overrides kept-old-versions with minus the arg. To clear the flags on these files, you can use \\[dired-flag-backup-files] with a prefix argument." (interactive "P") (byte-code "╞êâ ╩!é ëê╦Wâ [é ╦Xâ& é' ╞ ╠═!ê àt ╬╧@A╨\"B G \\Và_ ╤╥ \"╥ Z\"\"ê╤@A\"*êAëêé2 )ê╠╙!+ç" [keep dired-kept-versions early-retention kept-old-versions late-retention file-version-assoc-list nil fval sorted-v-list v-count prefix-numeric-value 0 dired-map-dired-file-lines dired-collect-file-versions q sort < rplacd nthcdr dired-trample-file-versions] 10)) (defun dired-collect-file-versions (ignore fn) (byte-code "╞ !╟PG╚╔ !\"╩╦ \" à B Bë,ç" [base-versions fn bv-length possibilities versions file-version-assoc-list file-name-nondirectory ".~" file-name-all-completions file-name-directory mapcar backup-extract-version] 6)) (defun dired-trample-file-versions (ignore fn) (byte-code "─┼ \"╞à. ╟ ╚O \"ëà. ╔ ╩\\╞O! >?à. ╦ ê╠═!ê╬c*ç" [start-vn fn base-version-list file-version-assoc-list string-match "\\.~[0-9]+~$" nil assoc 0 string-to-int 2 beginning-of-line delete-char 1 "D"] 6)) (defun dired-flag-backup-and-auto-save-files nil "\ Flag all backup and temporary files for deletion. Backup files have names ending in `~'. Auto save file names usually start with `#'." (interactive) (byte-code "└ê┴ ê┬ ç" [nil dired-flag-backup-files dired-flag-auto-save-files] 3)) (defun dired-create-directory (directory) "\ Create a directory called DIRECTORY" (interactive (byte-code "└┴┬ \"Cç" [read-file-name "Create directory: " dired-current-directory] 4)) (byte-code "┬ê├─ !!┼!ê╞╟!╚!\"ê╔╩!)ç" [expanded directory nil directory-file-name expand-file-name make-directory dired-add-entry-all-buffers file-name-directory file-name-nondirectory dired-next-line 1] 8)) (defun dired-buffers (dir) (byte-code "╞!ëê ╟╟ à> @ëê╚ @\"à5 A ╔ !â. Bëé4 ╩ \"ë)ê Aëêé ê +ç" [dir alist dired-buffers result elt buf file-name-as-directory nil dired-in-this-tree buffer-name delq] 7)) (defun dired-fun-in-all-buffers (directory fun) (byte-code "┼ !╞╞à* @Aëêè qê╟ !à% ╚ ! Bë)êé ê +ç" [buf-list directory buf success-list fun dired-buffers nil funcall buffer-name] 6)) (defun dired-add-entry-all-buffers (directory filename) (byte-code "┴┬\"ç" [directory dired-fun-in-all-buffers (lambda nil (byte-code "┬ \"ç" [directory filename dired-add-entry] 3))] 3)) (defun dired-add-entry (directory filename) (byte-code "─!ëê`┼ ╞╟ì à bê ?+ç" [directory opoint cur-dir reason file-name-as-directory dired-current-directory not-found (byte-code "╠ \"â* ═ !à ╬ ê╠ \"à' è╧ ê`)` Xà& b)éB ╨!â> ╤╥!à8 ╬ ê╙ éB ╘╒╓\"ê┼ ╫ ê╪cê┘┌\"█P\"ê▄▌!ê▐╚!ê` ▀ ê` α \"ëêß \"êΓ!c*ê╫ ê àÿ îπ`è▄Σ!ê`)\"êσ╦!))ê┼ç" [directory cur-dir default-directory p buffer-read-only nil filename dired-actual-switches t beg end dired-readin-hook string= dired-subdir-hidden-p dired-unhide-subdir dired-goto-next-file dired-goto-subdir looking-at " " dired-goto-next-nontrivial-file throw not-found "Subdir not found" beginning-of-line " " dired-ls dired-make-absolute "d" forward-line -1 dired-move-to-filename dired-move-to-end-of-filename buffer-substring delete-region file-name-nondirectory narrow-to-region 1 run-hooks] 24)] 4)) (defun dired-remove-entry-all-buffers (file) (byte-code "┴┬!├\"ç" [file dired-fun-in-all-buffers file-name-directory (lambda nil (byte-code "┴!ç" [file dired-remove-entry] 2))] 4)) (defun dired-remove-entry (file) (byte-code "è├!à ┬─┼ ê`è╞╟!ê`)\"))ç" [file buffer-read-only nil dired-goto-file delete-region beginning-of-line forward-line 1] 6)) (defun dired-diff (file) "\ Compare this file with another (default: file at mark), by running `diff'. The other file is the first file given to `diff'. See the command `diff'." (interactive (byte-code "┬ à è┬ bê├┴!)─┼╞├┴!â ╟╚Qé! ╔#╩ ┴$C)ç" [default t mark dired-get-filename read-file-name format "Diff %s with: %s" "(default " ") " "" dired-current-directory] 11)) (byte-code "├ê─ ┼┴!\"ç" [default t file nil diff dired-get-filename] 4)) (defun dired-backup-diff nil "\ Diff this file with its backup file. 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'." (interactive) (byte-code "├ê├├─ ┼ !â ╞ !ëé ╟ ! ëê╚ \"+ç" [bak ori file nil dired-get-filename backup-file-name-p file-name-sans-versions latest-backup-file diff] 7)) (defun latest-backup-file (fn) "\ Return the latest existing backup of FILE, or nil." (byte-code "─ !┼!à )å# ╞ !╟P G╚╔ ╩ !\"╦\"@*ç" [bak fn base-versions bv-length make-backup-file-name file-exists-p file-name-nondirectory ".~" sort file-name-all-completions file-name-directory (lambda (fn1 fn2) (byte-code "┬!┬ !Vç" [fn1 fn2 backup-extract-version] 4))] 8)) (defun dired-compress nil (byte-code "┴┼ ╞P╟ ╚╔ \"╩ $à ╦ !+ç" [buffer-read-only nil from-file to-file dired-compress-program dired-get-filename ".Z" dired-check-process format "Compressing %s" "-f" dired-redisplay] 7)) (defun dired-uncompress nil (byte-code "┴┼ ╞╟O╚ ╔╩ \" #à ╦ !+ç" [buffer-read-only nil from-file to-file dired-uncompress-program dired-get-filename 0 -2 dired-check-process format "Uncompressing %s" dired-redisplay] 6)) (defun dired-mark-compress (&optional arg) "\ Compress marked files (or this file if none are marked or a prefix argument is given)." (interactive "P") (byte-code "┼ê┼┼ â ╟ é: ┼╚ èebê╔ ┼╞#à1 `ëê╟ ê bê╞ëêé )*ê å: ╟ *ç" [buffer-read-only found arg opoint regexp nil t dired-compress dired-marker-regexp re-search-forward] 7)) (defun dired-mark-uncompress (&optional arg) "\ Uncompress marked files (or this file if none are marked or a prefix argument is given)." (interactive "P") (byte-code "┼ê┼┼ â ╟ é: ┼╚ èebê╔ ┼╞#à1 `ëê╟ ê bê╞ëêé )*ê å: ╟ *ç" [buffer-read-only found arg opoint regexp nil t dired-uncompress dired-marker-regexp re-search-forward] 7)) (defun dired-byte-recompile nil (byte-code "┴─ ┼P╞╟ \"?â ╚╔ \"é( ╩ !ê╦ !ê╠═ !╬ !\"+ç" [buffer-read-only nil from-file new-file dired-get-filename "c" string-match "\\.el$" message "%s is no .el file!" byte-compile-file dired-remove-entry-all-buffers dired-add-entry-all-buffers file-name-directory file-name-nondirectory] 10)) (defun dired-mark-byte-recompile (&optional arg) "\ Byte recompile marked Emacs lisp files (or this file if none are marked or a prefix argument is given)." (interactive "P") (byte-code "┼ê┼┼ â ╟ é: ┼╚ èebê╔ ┼╞#à1 `ëê╟ ê bê╞ëêé )*ê å: ╟ *ç" [buffer-read-only found arg opoint regexp nil t dired-byte-recompile dired-marker-regexp re-search-forward] 7)) (defun dired-mark-load (&optional arg) "\ Load the marked Emacs lisp files (or this file if none are marked or a prefix argument is given)." (interactive "P") (byte-code "┼ê┼┼ â ╟╚ !é@ ┼╔ èebê╩ ┼╞#à5 `ëê╟╚ !ê bê╞ëêé )*ê å@ ╟╚ !*ç" [buffer-read-only found arg opoint regexp nil t load dired-get-filename dired-marker-regexp re-search-forward] 9)) (defun dired-mark-chmod (&optional arg) "\ Change mode of marked files (or this file if none are marked or a prefix argument is given)." (interactive "P") (byte-code "┴ê╞┴┬ #╟╚╔╩ \"! ╦╠ ╚═ \" %ê╬ !*ç" [files nil t arg mode dired-chmod-program dired-mark-get-files read-string format "Change %s to Mode: " dired-mark-prompt apply dired-check-process "chmod %s " dired-mark-redisplay] 11)) (defun dired-mark-chgrp (&optional arg) "\ Change group of marked files (or this file if none are marked or a prefix argument is given)." (interactive "P") (byte-code "┴ê╞┴┬ #╟╚╔╩ \"! ╦╠ ╚═ \" %ê╬ !*ç" [files nil t arg group dired-chgrp-program dired-mark-get-files read-string format "Change %s to Group: " dired-mark-prompt apply dired-check-process "chgrp %s " dired-mark-redisplay] 11)) (defun dired-mark-chown (&optional arg) "\ Change owner of marked files (or this file if none are marked or a prefix argument is given)." (interactive "P") (byte-code "┴ê╞┴┬ #╟╚╔╩ \"! ╦╠ ╚═ \" %ê╬ !*ç" [files nil t arg owner dired-chown-program dired-mark-get-files read-string format "Change %s to Owner: " dired-mark-prompt apply dired-check-process "chown %s " dired-mark-redisplay] 11)) (defun dired-redisplay (file) (byte-code "├ êg`─`┼╞!ê`\"ê à$ ╟╚ !╔ !\"ê╩ T╦$*ê╠ ç" [char opoint file beginning-of-line delete-region forward-line 1 dired-add-entry file-name-directory file-name-nondirectory subst-char-in-region 32 dired-move-to-filename] 11)) (defun dired-mark-redisplay (&optional arg) "\ Redisplay all marked files (or this file if none are marked or a prefix argument is given). If on a subdir line, redisplay that subdirectory." (interactive "P") (byte-code "┼ê╟ â ╚╟ !éX ╔╩!ê┼┼ â! ╦╠ !éP ┼═ èebê╬ ┼╞#àE `ëê╦╠ !ê bê╞ëêé* )*ê åP ╦╠ !*ê╧ ê╔╨!ç" [buffer-read-only found arg opoint regexp nil t dired-get-subdir dired-insert-subdir message "Redisplaying ..." dired-redisplay dired-get-filename dired-marker-regexp re-search-forward dired-move-to-filename "Redisplaying ... done."] 15)) (defun dired-mark-delete nil "\ Delete all files marked with the current marker char." (interactive) (byte-code "┴ê┬└!ç" [t nil dired-do-deletions] 2)) (defun dired-mark-kill (&optional arg) "\ Kill all marked lines (not files). With a prefix arg, kill all lines not marked or flagged." (interactive "P") (byte-code "┴êèebê┴ ?â ├─ !é9 m?à9 ┼ å\" ╞╟!?â+ ╚╔!é5 ╩`è╚╔!ê`)\"êé ))ç" [buffer-read-only nil arg flush-lines dired-marker-regexp dired-between-files looking-at "^ " forward-line 1 delete-region] 10)) (defun dired-do-deletions (&optional marked) "\ In dired, delete the files flagged for deletion." (interactive) (byte-code "─ê â ╬ é ╧──è╨bê╤─┼#à+ ╥┼!`SB Bëêé )ê ?â8 ╙╘!éç G╨UâL ╒╓╫ @@\"!ëéN ╪ïê àç è ─ àx @Abê─ ─┘┌Å)êAëêéZ ê àà ╙█▄ !\"*)+ç" [regexp marked delete-list answer nil t fill-column l window start window-lines window-min-height failures buffer-read-only dired-marker-regexp "^D" 1 re-search-forward dired-get-filename message "(No deletions requested)" dired-yes format "Delete '%s'? " ((byte-code "╚╔!qê╩G╦╠ ═\"Vâ ╬é ╧p\"ê╨ ê╤ëê╥! àQ i╙Vâ3 ╘céC oåC ╒╦╓i╫\\╪\"╪\"┘\"ê @@cê Aëêé$ )ê┌ █ ! ╠ ! ebê▄═▌ !\\] Z!ê▐┌ \"+ê▀α!ëç" [delete-list fill-column l window start window-lines window-min-height answer get-buffer-create " *Deletions*" funcall * window-height 2 switch-to-buffer switch-to-buffer-other-window erase-buffer 70 reverse 59 10 indent-to / 19 20 1 selected-window window-start enlarge-window vertical-motion set-window-start dired-yes "Delete these files? "] 19)) (byte-code "├ @@ \"─!à ┼!?â ╞!é ╟!ê╚`╔╩!ê`\"êè╦!à0 ╠ ))ç" [fn l default-directory dired-make-absolute file-directory-p file-symlink-p remove-directory delete-file delete-region forward-line 1 dired-goto-subdir dired-kill-subdir] 10) ((error (byte-code "┬├!ê─cê @@Bëç" [failures l delete-char 1 " "] 3))) "Deletions failed: %s" prin1-to-string] 10)) (defun dired-replace-in-string (regexp to string) (byte-code "╟╚╔╔╩ #à( ╦╚!╠╚! OQ ëêé ê ╔OP,ç" [result start mb me regexp string to "" 0 nil string-match match-beginning match-end] 8)) (defun dired-next-dirline (arg) "\ Goto ARG'th next directory file line." (interactive "p") (byte-code "┬ê─Vâ ┼ ┬├$é) ╞ ┬├è╟ ê╚ !)â& ╔Zé( [$â1 ╩ é4 ╦╠!ç" [arg dired-re-dir nil t 0 re-search-forward re-search-backward beginning-of-line looking-at 1 dired-move-to-filename error "No more subdirectories."] 9)) (defun dired-prev-dirline (arg) "\ Goto ARG'th previous directory file line." (interactive "p") (byte-code "┴ê┬[!ç" [arg nil dired-next-dirline] 2)) (defun dired-unflag-all-files (flag) "\ Remove a specific or all flags from every file." (interactive "sRemove flag: (default: all flags) ") (byte-code "┼ê╟╚ G!â é ╔╩ !Pè┼ ebê╦ ┼╞#à6 ╠═!ê╬cêTëê╧╨!êé ))ê╤╥╙ #!*ç" [count re flag dired-re-mark buffer-read-only nil t 0 zerop "^" regexp-quote re-search-forward delete-char -1 " " forward-line 1 message format "All flags removed: %d %s"] 10)) (defun dired-kill-line (arg) "\ Kill this line (but not this file). If file is displayed as in situ subdir, kill that as well, unless a prefix arg is given." (interactive "P") (byte-code "┴ê┴┼┴├\"╞╟ ê`╚╔!ê`\"ê ?à& à& ╩ !à& ╦ *ç" [buffer-read-only nil file t arg dired-get-filename delete-region beginning-of-line forward-line 1 dired-goto-subdir dired-kill-subdir] 7)) (defun copy-string-as-kill (string) "\ Save STRING as if killed in a buffer." (byte-code " BëêG Và ┼╞ S\"├\"êëç" [kill-ring string kill-ring-max nil kill-ring-yank-pointer setcdr nthcdr] 4)) (defun dired-copy-filename-as-kill (&optional arg) "\ Copy this file (or subdir) name into the kill ring. With a prefix arg, use the complete pathname of file. Subdirs are always complete pathnames." (interactive "P") (byte-code "┬ê├─ å â ┼ é ╞┼ !!ê╟╚ @\"ç" [arg kill-ring nil copy-string-as-kill dired-get-subdir dired-get-filename file-name-nondirectory message "%s"] 8)) (defconst dired-marker-char 42 "\ In dired, character used to mark files for later commands.") (defun dired-marker-regexp nil (byte-code "┴┬├!!Pç" [dired-marker-char "^" regexp-quote char-to-string] 4)) (defun dired-mark-file (arg) "\ In dired, mark the current line's file for later commands. With arg, repeat over several lines. Use \\[dired-unflag-all-files] to remove all flags." (interactive "p") (byte-code "┴ê┴├ ─\")ç" [buffer-read-only nil arg dired-repeat-over-lines (lambda nil (byte-code "┴┬!êcç" [dired-marker-char delete-char 1] 2))] 3)) (defun dired-mark-files (regexp &optional arg) "\ Mark all files matching REGEXP for use in later commands. Directories are not marked unless a prefix argument is given. This is an Emacs regexp, not a shell wildcard. E.g., use \\.o$ for object files - just .o will mark more than you might think. An empty string will match all files except directories." (interactive (byte-code "┴┬!Dç" [current-prefix-arg dired-read-regexp "Mark files (regexp): "] 3)) (byte-code "─ê┼ #ç" [current-prefix-arg regexp arg dired-marker-char nil dired-flag-regexp-files] 4)) (defun dired-mark-symlinks (unflag-p) "\ Mark all symbolic links. With prefix argument, unflag all those files." (interactive "P") (byte-code "├ê â ╞é ├è╟ëê╚╔╩\"êebêm?à9 ╦ !à1 ╠═!êcê Tëê╬═!êé ê╚╧ ╩╨ ╞=âJ ╤éK ╥╙=âU ╘éV ╒&)))ç" [dired-marker-char unflag-p buffer-read-only nil dired-mark-count dired-re-sym 32 0 message "0 %ss..." "symbolic link" looking-at delete-char 1 forward-line "%s %s%s %s%s." dired-plural-s "un" "" 68 "flagged" "marked"] 13)) (defun dired-mark-dirlines (unflag-p) "\ Mark all directory file lines except `.' and `..'. With prefix argument, unflag all those files." (interactive "P") (byte-code "├ê â ╟é ├è╚ëê╔╩╦\"êebêm?àA ╠ !à+ ╠!?à9 ═╬!êcê Tëê╧╬!êé ê╔╨ ╦╤ ╟=âR ╥éS ╙╘=â] ╒é^ ╓&)))ç" [dired-marker-char unflag-p buffer-read-only nil dired-mark-count dired-re-dir dired-re-dot 32 0 message "0 %ss..." "directory file" looking-at delete-char 1 forward-line "%s %s%s %s%s." dired-plural-s "un" "" 68 "flagged" "marked"] 14)) (defun dired-mark-executables (unflag-p) "\ Mark all executable files. With prefix argument, unflag all those files." (interactive "P") (byte-code "├ê â ╞é ├è╟ëê╚╔╩\"êebêm?à9 ╦ !à1 ╠═!êcê Tëê╬═!êé ê╚╧ ╩╨ ╞=âJ ╤éK ╥╙=âU ╘éV ╒&)))ç" [dired-marker-char unflag-p buffer-read-only nil dired-mark-count dired-re-exe 32 0 message "0 %ss..." "executable file" looking-at delete-char 1 forward-line "%s %s%s %s%s." dired-plural-s "un" "" 68 "flagged" "marked"] 13)) (defun dired-flag-auto-save-files (&optional unflag-p) "\ Flag for deletion files whose names suggest they are auto save files. A prefix argument says to unflag those files instead." (interactive "P") (byte-code "─ê â ╔é ╩╦╠!─è═ëê╬╧╨\"êebêm?àe ╤!?àO âC ╥╚╚\" à? ╠!)éO è╙ ê╤╘!)àO ─à] ╒╓!êcê Tëê╫╓!êé ê╬╪ ╨┘ ╔=âv ┌éw █╩=âü ▄éé ▌&))*ç" [dired-marker-char unflag-p bound buffer-read-only nil dired-mark-count dired-re-dir fn t 32 68 fboundp auto-save-file-name-p 0 message "0 %ss..." "auto save file" looking-at dired-get-filename dired-move-to-filename "#" delete-char 1 forward-line "%s %s%s %s%s." dired-plural-s "un" "" "flagged" "marked"] 18)) (defun dired-flag-backup-files (&optional unflag-p) "\ Flag all backup files (names ending with `~') for deletion. With prefix argument, unflag all those files." (interactive "P") (byte-code "─ê â ╔é ╩╦╠!─è═ëê╬╧╨\"êebêm?àe ╤!?àO âC ╥╚╚\" à? ╠!)éO è╙ ê╘╒!ê╤╓!)à] ╫╪!êcê Tëê┘╪!êé ê╬┌ ╨█ ╔=âv ▄éw ▌╩=âü ▐éé ▀&))*ç" [dired-marker-char unflag-p bound buffer-read-only nil dired-mark-count dired-re-dir fn t 32 68 fboundp backup-file-name-p 0 message "0 %ss..." "backup file" looking-at dired-get-filename end-of-line forward-char -1 "~" delete-char 1 forward-line "%s %s%s %s%s." dired-plural-s "un" "" "flagged" "marked"] 19)) (defun dired-mark-get-files (&optional localp defaultp this-file) "\ Return the marked files as list of strings. Values returned normally do include the directory name. A non-nil first argument LOCALP means do not include it. A non-nil second argument DEFAULTP means default to list with current file as single element if none are marked. If this happens, dired-mark-defaulted is set to t. A non-nil third argument THIS-FILE forces to use the current file. Sets the global variables dired-mark-count and dired-mark-files." (byte-code "┴ëê â ╩╦ !Cëéq ┴╠ è═ëêdbê╬┴╚#à= ╦ !Bëê Tëêé\" )ê àG ?âQ é[ âZ ╩é[ ═ån âm ╦ !Cén ┴ë*ç" [dired-mark-defaulted nil this-file dired-mark-count dired-mark-files localp the-list regexp t defaultp 1 dired-get-filename dired-marker-regexp 0 re-search-backward] 7)) (defun dired-rename-regexp (regexp newname) "\ Rename all marked files containing REGEXP to NEWNAME. See dired-flag-regexp-files for more info on REGEXP. NEWNAME may contain \\N or \\& as in replace-match (q.v.). REGEXP defaults to the last regexp used, but with a prefix arg dired-basename-regexp is provided. This makes the basename as \\1 and the extension as \\2 available in NEWNAME." (interactive (byte-code "─┼ â é \"─╞╟\"!D)ç" [a1 current-prefix-arg dired-basename-regexp dired-flagging-regexp read-string "Rename from (regexp): " format "Rename %s to: "] 6)) (byte-code "┼êèebê┼═╬ ┼┼ ╧┼╩#à# ╨ ëàJ ╤ !àF ╥ ╩\"ê╨ ë ê╙ \"êTëêé ê╘╒╓ #-)ç" [a1 current-prefix-arg dired-basename-regexp dired-flagging-regexp buffer-read-only nil dired-mark-count re old new t regexp newname 0 dired-marker-regexp re-search-forward dired-get-filename dired-this-file-matches replace-match rename-file message "%d file%s renamed." dired-plural-s] 12)) (defun dired-this-file-matches (regexp) (byte-code "è─ ┼à! ╞┬!ëà! î╟ \"êbê╚ ┬#)*)ç" [beg end t regexp dired-move-to-filename nil dired-move-to-end-of-filename narrow-to-region re-search-forward] 7)) (defun shell-quote (filename) (byte-code "─┼╞╟╚ #à' ╔┼! O╩ TOR Tëêé ê ╞OP+ç" [result start end filename "" 0 nil string-match "[^---0-9a-zA-Z_./]" match-beginning "\\"] 9)) (defun dired-read-shell-command (prompt) "\ Read a dired shell command prompting with PROMPT (using read-string). This is an extra function so that you can redefine it, e.g., to use gmhist." (byte-code "┴!ç" [prompt read-string] 2)) (defun dired-mark-prompt nil (byte-code "├=â ─ @!é ┼╞ #ç" [dired-mark-count dired-mark-files dired-marker-char 1 file-name-nondirectory format "%c [%d files]"] 5)) (defun dired-mark-background-shell-command (&optional arg) "\ Like \\[dired-mark-shell-command], but starts command in background. This requires background.el to work." (interactive "P") (byte-code "┬ê├─!ê┼┴\"ç" [arg t nil require background dired-mark-shell-command] 4)) (defun dired-mark-shell-command (&optional arg in-background) "\ Run a shell command on the marked files. If there is output, it goes to a separate buffer. The list of marked files is appended to the command string unless asterisks `*' indicate the place(s) where the list should go. See variables dired-mark-prefix, -separator, -postfix. If you have a curly brace expanding shell, you may want to set these to \"{\",\",\" and \"}\" to make commands like `mv *~ bak; compress bak/*~' work. If no files are marked or a prefix arg is given, uses file on the current line. The prompt mentions the file or the marker, as appropriate. See variables dired-shell-prompt, dired-background-prompt. No automatic redisplay is attempted, as the file names may have changed. Type \\[dired-mark-redisplay] to redisplay the marked files. Function dired-run-shell-command does the actual work and can be redefined for customization." (interactive "P") (byte-code "═ê═══ â é ╬╧K╨╟╟# #ëê ╤Và1 Qëê╥╙ ╘ \"!ëê╒╓ \"âK ╫╓ #éO ╪ Qëê┘ \",ç" [result command fns prompt in-background dired-background-prompt dired-shell-prompt t arg dired-mark-separator dired-mark-count dired-mark-prefix dired-mark-postfix nil mapconcat shell-quote dired-mark-get-files 1 dired-read-shell-command format dired-mark-prompt string-match "\\*" dired-replace-in-string " " dired-run-shell-command] 11)) (defun dired-run-shell-command (command &optional in-background) "\ Run shell COMMAND, optionally IN-BACKGROUND. If COMMAND is longer than shell-maximum-command-length, you are asked for confirmation." (byte-code "à ─ ┼ Rëê à G Wå ╞╟╚ G\"!à. â+ ╔ !é. ╩ !ç" [in-background command default-directory shell-maximum-command-length "cd " "; " yes-or-no-p format "Dired shell command is %d bytes long - execute anyway? " background shell-command] 5)) (defun dired-mark-print (&optional arg) "\ Print the marked files (or this file if none are marked or a prefix argument is given). Uses the shell command in variable dired-print-command as default." (interactive "P") (byte-code "┼ê╞╟K╚┴┴ #╔#╩╦╠═ \" \" ëê╬╦ \"!*ç" [files t arg command dired-print-command nil mapconcat shell-quote dired-mark-get-files " " read-string format "Print %s with cmd: " dired-mark-prompt dired-run-shell-command] 10)) (defun dired-rename-visited (filename to-file) (byte-code "├!à% ─┼╞╟├!!\"!à% è├!qê╚ ╔ !ê╩ !))ç" [filename modflag to-file get-file-buffer y-or-n-p message "Change visited file name of buffer %s too? " buffer-name buffer-modified-p set-visited-file-name set-buffer-modified-p] 10)) (defun dired-mark-cp-or-mv (fun fun2 msg msg1 &optional arg) (byte-code "╠┴┬ #═╬╧╨╤ Uâ é ╥ #╙ \"! ╘ ! ╤Và- ?à6 ╒╓ #ê┴┴┴ åI ë êåZ ╤GUåZ ╒╫\"ê╪┘\"++ê┌ ç" [fn-list nil t arg target dired-mark-count msg1 msg is-dir to overwrite buffer-read-only dired-mark-get-files expand-file-name read-file-name format "%s %s to: " 1 dired-mark-prompt dired-current-directory file-directory-p error "Marked %s: target must be a directory: %s" "Internal error: non-dir and more than 1 file: %s" mapcar (lambda (from) (byte-code "à ╟╚ ! \"ëê╔ !ëê╩ ╦$êà% ╩ #ê à- ╠ !ê═╬ !╚ !\"ç" [is-dir to from target overwrite fun fun2 expand-file-name file-name-nondirectory file-exists-p funcall 0 dired-remove-entry-all-buffers dired-add-entry-all-buffers file-name-directory] 11)) dired-move-to-filename] 12)) (defun dired-mark-copy (&optional arg) "\ Copy all marked files (or this file if none are marked or prefix given)." (interactive "P") (byte-code "└ê┬├└── %ç" [nil arg dired-mark-cp-or-mv copy-file "Copy"] 6)) (defun dired-mark-move (&optional arg) "\ Move all marked files into a directory (or rename this file if none are marked or prefix given)." (interactive "P") (byte-code "┴ê┬├─┼╞%ç" [arg nil dired-mark-cp-or-mv rename-file (lambda (from to) (byte-code "┬!ê├ \"ç" [from to dired-remove-entry-all-buffers dired-rename-visited] 4)) "Move" "Rename"] 6)) (defvar dired-buffers nil "\ Alist of directories and their associated dired buffers.") (defconst dired-subdir-regexp "^. \\([^ ]*\\)\\(:\\)[ ]" "Regexp matching a maybe hidden subdirectory line in ls -lR output. Subexpression 1 is subdirectory proper, no trailing slash. 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.") (defun dired-relative-path-p (file) (byte-code "┴!?ç" [file file-name-absolute-p] 2)) (defun dired-make-absolute (file dir) (byte-code " Pç" [dir file] 2)) (defun dired-make-relative (file dir) (byte-code "┬├─!P \"â ┼╞!╟Oé ╚╔ #ç" [dir file string-match "^" regexp-quote match-end 0 nil error "%s: not in directory tree growing at %s."] 7)) (defun dired-in-this-tree (file dir) (byte-code "┬├─!P \"ç" [dir file string-match "^" regexp-quote] 4)) (defun dired-normalize-subdir (dir) (byte-code "┬├!â ─ \"é !ç" [dir default-directory file-name-as-directory dired-relative-path-p dired-make-absolute] 5)) (defun dired-between-files nil (byte-code "┴┬!å ┴├!å ┴─!å ┴!ç" [dired-subdir-regexp looking-at "^$" "^. *$" "^. total"] 5)) (defun dired-get-subdir nil (byte-code "è┴ ê┬!à ├─┼╞!╟╞!\"!)ç" [dired-subdir-regexp beginning-of-line looking-at file-name-as-directory buffer-substring match-beginning 1 match-end] 8)) (defconst dired-subdir-alist nil "\ Association list of subdirectories and their buffer positions: ((lastdir . lastmarker) ... (default-directory . firstmarker)). The markers point right at the end of the line, so that the cursor looks at either \\n or \\r, the latter for a hidden subdir.") (defun dired-clear-alist nil (byte-code "à ┬@A┴\"êAëêé ç" [dired-subdir-alist nil set-marker] 4)) (defun dired-build-subdir-alist nil "\ Build dired-subdir-alist anew and return it's new value." (interactive) (byte-code "┬ê┼ êè╞ebê┬ëê╟ ┬─#à6 Tëê╚╔\"ê╩╦╠═!╬═!\"╬╧!bê╨ \"êé ê╚╤═UâD ╥éE ╙#ê ))ç" [count dired-subdir-alist nil dired-subdir-regexp t dired-clear-alist 0 re-search-forward message "%d" dired-alist-add buffer-substring match-beginning 1 match-end 2 point-marker "%d director%s." "y" "ies"] 14)) (defun dired-alist-add (dir new-marker) (byte-code "├ ! BBëç" [dired-subdir-alist dir new-marker dired-normalize-subdir] 3)) (defun dired-unsubdir (dir) (byte-code "┬├ \"\"ëç" [dired-subdir-alist dir delq assoc] 4)) (defun dired-goto-next-nontrivial-file nil (byte-code "├ ê;à' m?à ─┼╞┴┬\"å ╟!\"à' ╚╔!ê╩ êé ç" [dired-trivial-filenames nil t dired-goto-next-file string-match file-name-nondirectory dired-get-filename "" forward-line 1 dired-move-to-filename] 8)) (defun dired-goto-next-file nil (byte-code "└ ?à m?à ┴┬!êé ç" [dired-move-to-filename forward-line 1] 4)) (defun dired-goto-subdir (dir) "\ Goto header line of DIR in this dired buffer." (interactive (byte-code "├─┼┴┬╞ %!Cç" [dired-subdir-alist nil t expand-file-name completing-read "Goto directory: " dired-current-directory] 8)) (byte-code "┴ê┼╞ !\" à Ab)ç" [dired-subdir-alist nil t elt dir assoc file-name-as-directory] 4)) (defun dired-goto-file (file) "\ Goto file line of FILE in this dired buffer." (interactive (byte-code "└┴┬├ \"!Cç" [expand-file-name read-file-name "Goto file: " dired-current-directory] 5)) (byte-code "┼ê╚!ëê┼è╔╩!!àN ├┼╦!╠ àM `Wà3 ═┼╬#ëëê àA ╧╨┼├\"\"àI `┼ëêé ,)ê àV b)ç" [file found keep-going t match nil string boundary directory-file-name dired-goto-subdir file-name-directory file-name-nondirectory dired-subdir-max search-forward move equal dired-get-filename] 12)) (defun dired-initial-position nil (byte-code "┴ êà ┬ ç" [dired-trivial-filenames end-of-line dired-goto-next-nontrivial-file] 3)) (defun dired-subdir-index (dir) (byte-code "┼╟ à& ╚ @@\"â ┼╞ëé\" A Tëêé êâ/ é0 ┼+ç" [found index alist dired-subdir-alist dir nil t 0 string=] 4)) (defun dired-next-subdir (arg &optional no-error-if-not-found) "\ Go to next subdirectory, regardless of level. Use 0 prefix argument to go to this directory's header line." (interactive "p") (byte-code "┼ê╟ ┼┼╚! Zëê ╔Yâ 8Aé ┼ëê â+ bé7 â4 ┼é7 ╩╦!+ç" [this-dir pos index arg dired-subdir-alist nil no-error-if-not-found dired-current-directory dired-subdir-index 0 error "No more directories."] 4)) (defun dired-prev-subdir (arg &optional no-error-if-not-found) "\ Go to previous subdirectory, regardless of level. When called interactively and not on a subdir line, go to subdir line." (interactive (byte-code "â ┴!é ┬ à n?â ├é ─Cç" [current-prefix-arg prefix-numeric-value dired-get-subdir 1 0] 3)) (byte-code "├ê─ [ \"ç" [current-prefix-arg arg no-error-if-not-found nil dired-next-subdir] 3)) (defun dired-up-subdir (arg) "\ Go up ARG levels in the dired tree." (interactive "p") (byte-code "┬ê├ ─P ┼Và S╞Pëêé ê╟!ëê╚!å* ╔╩\")ç" [dir arg nil dired-current-directory ".." 1 "/.." expand-file-name dired-goto-subdir error "Cannot go up to %s - not in this tree."] 6)) (defun dired-down-subdir (arg) "\ Go down ARG levels in the dired tree." (interactive "p") (byte-code "├ê┼ ╞ ╟Và S ╚Pëêé ê╔╩ ╦R├─#â, ╠╟!é/ ═╬!*ç" [dir tail arg nil t dired-current-directory "[^/]+" 1 "/[^/]+" re-search-forward "^. " ":[ ]" backward-char error "At the bottom."] 6)) (defun dired-subdir-hidden-p (dir) (byte-code "èà ┬ !à ├─!)ç" [selective-display dir dired-goto-subdir looking-at " "] 3)) (defun dired-unhide-subdir nil (byte-code "┴┬├ ─ ┼╞$)ç" [buffer-read-only nil subst-char-in-region dired-subdir-min dired-subdir-max 13 10] 7)) (defun dired-hide-check nil (byte-code "å ┴┬!ç" [selective-display error "selective-display must be t for subdir hiding to work!"] 2)) (defun dired-hide-subdir (arg) "\ 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." (interactive "p") (byte-code "─ê╟ ê────╚╔!ê ╔Vàa Sëê╩╦!â* ╠═ëé/ ╠═ëê╬`è╚╧╞\"ëå> dbê╨╤╥!P!ê╠UàP ╙╧!ê`) $ê à] bêé ,ç" [from-char to-char end-pos buffer-read-only nil arg t dired-hide-check dired-next-subdir 0 looking-at " " 10 13 subst-char-in-region 1 skip-chars-backward "^" char-to-string backward-char] 13)) (defun dired-hide-all (arg) "\ 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." (interactive "P") (byte-code "┴ê╞ ê┴èebê╟╚┴┬#)â ╔ed╩╦$éF d àE ╔ @Aè bê╠═!ê`)╦╩$ê @Aëê Aëêé! *)ç" [buffer-read-only nil t pos alist dired-subdir-alist dired-hide-check search-forward " " subst-char-in-region 13 10 forward-line -1] 10)) (defun dired-undo nil "\ Undo in a dired buffer. This doesn't recover lost files, it is just normal undo with temporarily writeable buffer. You can use it to recover killed lines or subdirs. You might have to do \\[dired-build-subdir-alist] to parse the buffer again." (interactive) (byte-code "┴ê┴┬ )ç" [buffer-read-only nil undo] 2)) (defun dired-advertise nil "\ Advertise in dired-buffers what directory we dired." (byte-code "p┬!>â ┴é pB Bëç" [default-directory t dired-buffers] 3)) (defun dired-current-directory (&optional relative) "\ Get the subdirectory to which this line belongs. This returns a string with trailing slash, like default-directory. Optional argument means return a name relative to default-directory." (byte-code "┼┼` å ╚ à. @@ëêA Xâ& ┼ëé* Aëêé êâ< ╔ \"é= ,ç" [elt dir here alist dired-subdir-alist nil relative default-directory dired-build-subdir-alist dired-make-relative] 5)) (defun dired-subdir-min nil (byte-code "è┴┬└\"?â ├─!é ┼ ê`)ç" [t dired-prev-subdir 0 error "Not in a subdir!" beginning-of-line] 4)) (defun dired-subdir-max nil (byte-code "è┴┬└\"?â dé ├ ê`)ç" [t dired-next-subdir 1 beginning-of-line] 3)) (defun dired-kill-subdir (&optional no-build) "\ Remove all lines of current subdirectory. Lower levels are unaffected." (interactive) (byte-code "┴ê┴tà ─┼ \"à ╞╟!ê╚╔ ╩ \"ê╦╠!êmå& ═╬!êm?à/ ╧╨!à9 ╤╬!êé' êmå@ ╥cê åI ╙┼ !)ç" [buffer-read-only nil default-directory no-build equal dired-current-directory error "Cannot kill top level directory." delete-region dired-subdir-min dired-subdir-max skip-chars-backward " " forward-char 1 looking-at "[ ]" delete-char " " dired-unsubdir] 13)) (defun dired-mark-files-in-region (start end &optional arg) (byte-code "┴ Và ╚╔!ê bê` WàI ` Wà ╩ à' ╦╠!êé ê å0 ═ !?à7 ╬┴╞\"àA ╧╠!êcê╦╠!êé )ç" [buffer-read-only nil start end arg dired-re-dir t dired-marker-char error "start > end" dired-between-files forward-line 1 looking-at dired-get-filename delete-char] 9)) (defun dired-mark-subdir-files (&optional arg) "\ Mark all files except directories in this subdir. With prefix arg, mark even directories." (interactive "P") (byte-code "┴ê┴─ ┼ ╞ #*ç" [buffer-read-only nil p-min arg dired-subdir-min dired-mark-files-in-region dired-subdir-max] 6)) (defun dired-mark-subdir-or-file (arg) "\ If looking at a subdir, mark all its files, else like dired-mark-file." (interactive "P") (byte-code "┴ê┬ â è├ ê─!)é ┼╞!!ç" [arg nil dired-get-subdir end-of-line dired-mark-subdir-files dired-mark-file prefix-numeric-value] 6)) (defun dired-insert-subdir (dirname &optional switches) "\ Insert this subdirectory into the same dired buffer. If subdirectory is already present, overwrites previous entry, else appends at end of buffer. With a prefix arg, you may edit the ls switches used for this listing." (interactive (byte-code "┬ à ├─ \"Dç" [current-prefix-arg dired-actual-switches dired-get-filename read-string "Switches for listing: "] 5)) (byte-code "╦ê╨╤ !!ëê╥ \"ê╦╦╦╦╦╦╦ ╙ !å, ╘╒ \"ê╓ !ëâ{ 8Aëêbê╫╪!ê`ëêbê┘ ëêî┌ \"ê█ed▄▌$ê▐ ë )ê▀ \"êm?àx èαc)é} dbêoåä αcê`ëêßΓ \"êπ åÜ Σσµ #╦╬$êßτ \"êΦ `Θ#êà╕ î┌ `\"êΩ╧!)ê bêδ !ê∞ ëêà╤ φ\"êâ▀ φ╦\"éΣ ε \"ê à∩ ∩σ \"à⌠ ≡ ê± êè bê≥ !).ç" [current-prefix-arg dired-actual-switches dirname default-directory beg end index old-marker new-marker mark-alist buffer-read-only nil dired-subdir-alist switches t dired-readin-hook file-name-as-directory expand-file-name dired-make-relative file-directory-p error "Not a directory: %s" dired-subdir-index forward-line -1 dired-subdir-max narrow-to-region subst-char-in-region 13 10 dired-remember-marks delete-region " " message "Reading directory %s..." dired-ls dired-replace-in-string "R" "" "Reading directory %s...done" indent-rigidly 2 run-hooks dired-insert-headerline point-marker set-marker dired-alist-add string-match dired-build-subdir-alist dired-initial-position dired-mark-remembered] 29)) (defvar dired-sort-by-date-regexp "^-altR?$" "\ Regexp recognized by dired-sort-mode to set by date mode.") (defvar dired-sort-by-name-regexp "^-alR?$" "\ Regexp recognized by dired-sort-mode to set by name mode.") (defun dired-sort-mode nil "\ Set dired-sort-mode according to dired-actual-switches." (byte-code "─ \"â ┼ é ─ \"â ╞ é ╟ ├\"ç" [dired-sort-by-date-regexp dired-actual-switches dired-sort-by-name-regexp t string-match dired-sort-by-date dired-sort-by-name dired-sort-other] 7)) (defun dired-sort-toggle nil "\ Toggle between sort by date/name." (interactive) (byte-code "┬ê├ \"â ─ é ┼ ê╞ ç" [dired-sort-by-date-regexp dired-actual-switches nil string-match dired-sort-by-name dired-sort-by-date revert-buffer] 5)) (defun dired-sort-by-date nil (byte-code "┬├─\"â ─é ┼╞├╟\"â ╟é ┼Rëê╚ëê╔╩ !ç" [dired-actual-switches dired-sort-mode "-" string-match "a" "" "lt" "R" " by date" set-buffer-modified-p buffer-modified-p] 7)) (defun dired-sort-by-name nil (byte-code "┬├─\"â ─é ┼╞├╟\"â ╟é ┼Rëê╚ëê╔╩ !ç" [dired-actual-switches dired-sort-mode "-" string-match "a" "" "l" "R" " by name" set-buffer-modified-p buffer-modified-p] 7)) (defun dired-sort-other (switches &optional no-revert) "\ Specify dired-actual-switches for dired-mode. 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 prefix arg, don't revert the buffer afterwards." (interactive (byte-code "┬├\" Dç" [dired-actual-switches current-prefix-arg read-string "ls switches (must contain -l): "] 3)) (byte-code "╟ê ëê╚Pëê╔ \"â ╩ é! ╔ \"à! ╦ ê╠═ !êå. ╬ ç" [dired-actual-switches current-prefix-arg switches dired-sort-mode dired-sort-by-date-regexp dired-sort-by-name-regexp no-revert nil " " string-match dired-sort-by-date dired-sort-by-name set-buffer-modified-p buffer-modified-p revert-buffer] 8)) (if (eq system-type (quote vax-vms)) (load "dired-vms")) (if (eq system-type (quote ms-dos)) (load "direddos")) (run-hooks (quote dired-load-hook)) (defun dired-log (fmt &rest args) (byte-code "è┬├!qêdbê─┼╞╟ #\")ç" [fmt args get-buffer-create "*Dired Log*" insert " " apply format] 7)) 
