# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 970594547 0
# Node ID d559924db6ba779ccfbc2094243db91e509680ac
# Parent  f80262435e6cd0f019724f8cf44d94aaa04e9e31
(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.

diff -r f80262435e6c -r d559924db6ba lisp/dired-aux.el
--- 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.