Mercurial > emacs
changeset 32106:d559924db6ba
(dired-mark-read-file-name): Add optional arg DEFAULT.
(dired-do-create-files): If there's only one file, pass it in as
the DEFAULT arg to dired-mark-read-file-name.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Tue, 03 Oct 2000 17:35:47 +0000 |
| parents | f80262435e6c |
| children | 31d231ad0b91 |
| files | lisp/dired-aux.el |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired-aux.el Tue Oct 03 17:32:34 2000 +0000 +++ b/lisp/dired-aux.el Tue Oct 03 17:35:47 2000 +0000 @@ -1231,7 +1231,8 @@ (dired-mark-read-file-name (concat (if dired-one-file op1 operation) " %s to: ") (dired-dwim-target-directory) - op-symbol arg rfn-list))) + op-symbol arg rfn-list + (and dired-one-file (car fn-list))))) (into-dir (cond ((null how-to) ;; Allow DOS/Windows users to change the letter ;; case of a directory. If we don't test these @@ -1276,12 +1277,15 @@ ;; marks (ARG=nil) or a repeat factor (integerp ARG). ;; If the current file was used, the list has but one element and ARG ;; does not matter. (It is non-nil, non-integer in that case, namely '(4)). +;; DEFAULT is the default value to return if the user just hits RET; +;; if it is omitted or nil, then the name of the directory is used. -(defun dired-mark-read-file-name (prompt dir op-symbol arg files) +(defun dired-mark-read-file-name (prompt dir op-symbol arg files + &optional default) (dired-mark-pop-up nil op-symbol files (function read-file-name) - (format prompt (dired-mark-prompt arg files)) dir)) + (format prompt (dired-mark-prompt arg files)) dir default)) (defun dired-dwim-target-directory () ;; Try to guess which target directory the user may want.