X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/9fb9136398821ed5f3a8b4405bbc222964f54028..851be0f60718795c985f504db4823344508b107d:/lisp/dired.el diff --git a/lisp/dired.el b/lisp/dired.el index 7f7251f29c..049d45d2fa 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1,7 +1,7 @@ ;;; dired.el --- directory-browsing commands -*- lexical-binding: t -*- -;; Copyright (C) 1985-1986, 1992-1997, 2000-2014 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985-1986, 1992-1997, 2000-2015 Free Software +;; Foundation, Inc. ;; Author: Sebastian Kremer ;; Maintainer: emacs-devel@gnu.org @@ -91,7 +91,7 @@ spaces. You might want to install ls from GNU Coreutils, which does support this option. Alternatively, you might want to use Emacs's own emulation of \"ls\", by using: (setq ls-lisp-use-insert-directory-program nil) - (require 'ls-lisp) + (require \\='ls-lisp) This is used by default on MS Windows, which does not have an \"ls\" program. Note that `ls-lisp' does not support as many options as GNU ls, though. For more details, see Info node `(emacs)ls in Lisp'." @@ -749,10 +749,16 @@ as an argument to `dired-goto-file'." "\"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. + +If DIRNAME is a string, 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. +In this case, SWITCHES are applied to each of the files separately, and +therefore switches that control the order of the files in the produced +listing have no effect. + \\\ You can flag files for deletion with \\[dired-flag-file-deletion] and then delete them by typing \\[dired-do-flagged-delete]. @@ -1460,6 +1466,7 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST." (define-key map "T" 'dired-do-touch) (define-key map "X" 'dired-do-shell-command) (define-key map "Z" 'dired-do-compress) + (define-key map "c" 'dired-do-compress-to) (define-key map "!" 'dired-do-shell-command) (define-key map "&" 'dired-do-async-shell-command) ;; Comparison commands @@ -2024,7 +2031,7 @@ Otherwise, toggle `read-only-mode'." (defun dired-next-line (arg) "Move down lines then position at filename. Optional prefix ARG says how many lines to move; default is one line." - (interactive "p") + (interactive "^p") (let ((line-move-visual) (goal-column)) (line-move arg t)) @@ -2037,7 +2044,7 @@ Optional prefix ARG says how many lines to move; default is one line." (defun dired-previous-line (arg) "Move up lines then position at filename. Optional prefix ARG says how many lines to move; default is one line." - (interactive "p") + (interactive "^p") (dired-next-line (- (or arg 1)))) (defun dired-next-dirline (arg &optional opoint) @@ -2850,11 +2857,16 @@ Any other value means to ask for each directory." ;; to e.g. recursive-delete-file and put it somewhere else. (defun dired-delete-file (file &optional recursive trash) "\ 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." +RECURSIVE determines what to do with a non-empty directory. The effect of +its possible values 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. + +TRASH non-nil means to trash the file instead of deleting, provided +`delete-by-moving-to-trash' (which see) is non-nil." ;; This test is equivalent to ;; (and (file-directory-p fn) (not (file-symlink-p fn))) ;; but more efficient @@ -3483,6 +3495,9 @@ OLD and NEW are both characters used to mark files." (interactive) (dired-unmark-all-files ?\r)) +;; Bound in dired-unmark-all-files +(defvar dired-unmark-all-files-query) + (defun dired-unmark-all-files (mark &optional arg) "Remove a specific mark (or any mark) from every file. After this command, type the mark character to remove, @@ -3493,6 +3508,7 @@ Type \\[help-command] at that time for help." (save-excursion (let* ((count 0) (inhibit-read-only t) case-fold-search + dired-unmark-all-files-query (string (format "\n%c" mark)) (help-form "\ Type SPC or `y' to unmark one file, DEL or `n' to skip to next, @@ -3504,7 +3520,8 @@ Type SPC or `y' to unmark one file, DEL or `n' to skip to next, (if (or (not arg) (let ((file (dired-get-filename t t))) (and file - (dired-query 'query "Unmark file `%s'? " + (dired-query 'dired-unmark-all-files-query + "Unmark file `%s'? " file)))) (progn (subst-char-in-region (1- (point)) (point) (preceding-char) ?\s) @@ -3547,7 +3564,7 @@ Thus, use \\[backward-page] to find the beginning of a group of errors." (let ((inhibit-read-only t)) (cond ((stringp log) (insert (if args - (apply (function format) log args) + (apply #'format-message log args) log))) ((bufferp log) (insert-buffer-substring log)) @@ -3556,7 +3573,7 @@ Thus, use \\[backward-page] to find the beginning of a group of errors." (unless (bolp) (insert "\n")) (insert (current-time-string) - "\tBuffer `" (buffer-name obuf) "'\n") + (format-message "\tBuffer `%s'\n" (buffer-name obuf))) (goto-char (point-max)) (insert "\f\n"))))))) @@ -3800,7 +3817,8 @@ Ask means pop up a menu for the user to select one of copy, move or link." ((memq action '(copy private move link)) (let ((overwrite (and (file-exists-p to) (y-or-n-p - (format "Overwrite existing file `%s'? " to)))) + (format-message + "Overwrite existing file `%s'? " to)))) ;; Binding dired-overwrite-confirmed to nil makes ;; dired-handle-overwrite a no-op. We instead use ;; y-or-n-p, which pops a graphical menu. @@ -3813,7 +3831,7 @@ Ask means pop up a menu for the user to select one of copy, move or link." (car (find-backup-file-name to))) (or (eq dired-backup-overwrite 'always) (y-or-n-p - (format + (format-message "Make backup for existing file `%s'? " to)))) (rename-file to backup-file 0) (dired-relist-entry backup-file)) @@ -3884,7 +3902,7 @@ Ask means pop up a menu for the user to select one of copy, move or link." ;;; Start of automatically extracted autoloads. -;;;### (autoloads nil "dired-aux" "dired-aux.el" "73269f48e7fe2fd0ac580fd69252b33a") +;;;### (autoloads nil "dired-aux" "dired-aux.el" "29842a53d6651f8f535ec8e02d20d7cc") ;;; Generated autoloads from dired-aux.el (autoload 'dired-diff "dired-aux" "\ @@ -4076,8 +4094,18 @@ command with a prefix argument (the value does not matter). \(fn &optional ARG FMT)" t nil) -(autoload 'dired-compress-file "dired-aux" "\ +(autoload 'dired-do-compress-to "dired-aux" "\ +Compress selected files and directories to an archive. +You are prompted for the archive name. +The archiving command is chosen based on the archive name extension and +`dired-compress-files-alist'. +\(fn)" t nil) + +(autoload 'dired-compress-file "dired-aux" "\ +Compress or uncompress FILE. +Return the name of the compressed or uncompressed file. +Return nil if no change in files. \(fn FILE)" nil nil) @@ -4387,7 +4415,7 @@ instead. ;;;*** -;;;### (autoloads nil "dired-x" "dired-x.el" "994b5d9fc38059ab641ec271c728e56f") +;;;### (autoloads nil "dired-x" "dired-x.el" "06f532e2e812fa1cb10ade31249e9700") ;;; Generated autoloads from dired-x.el (autoload 'dired-jump "dired-x" "\