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.