[Emacs-diffs] /srv/bzr/emacs/trunk r100390: * fileio.c (Fdelete_file): Change interative spec to use

[Juri Linkov]

------------------------------------------------------------
revno: 100390
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Fri 2010-05-21 02:08:52 +0300
message:
  * fileio.c (Fdelete_file): Change interative spec to use
  `read-file-name' like in `find-file-read-args' where the default
  value is `default-directory' instead of `buffer-file-name'.
  http://lists.gnu.org/archive/html/emacs-devel/2010-05/msg00533.html
modified:
  src/ChangeLog
  src/fileio.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2010-05-20 14:53:30 +0000
+++ b/src/ChangeLog     2010-05-20 23:08:52 +0000
@@ -1,3 +1,10 @@
+2010-05-20  Juri Linkov  <address@hidden>
+
+       * fileio.c (Fdelete_file): Change interative spec to use
+       `read-file-name' like in `find-file-read-args' where the default
+       value is `default-directory' instead of `buffer-file-name'.
+       http://lists.gnu.org/archive/html/emacs-devel/2010-05/msg00533.html
+
 2010-05-20  Kevin Ryde  <address@hidden>
 
        * keyboard.c (Vlast_command, Vkeyboard_translate_table)

=== modified file 'src/fileio.c'
--- a/src/fileio.c      2010-05-08 18:47:07 +0000
+++ b/src/fileio.c      2010-05-20 23:08:52 +0000
@@ -2194,7 +2194,10 @@
   return Qnil;
 }
 
-DEFUN ("delete-file", Fdelete_file, Sdelete_file, 1, 2, "fDelete file: \nP",
+DEFUN ("delete-file", Fdelete_file, Sdelete_file, 1, 2,
+       "(list (read-file-name \"Delete file: \" nil default-directory \
+                (confirm-nonexistent-file-or-buffer))                 \
+              current-prefix-arg)",
        doc: /* Delete file named FILENAME.  If it is a symlink, remove the 
symlink.
 If file has multiple names, it continues to exist with the other names.