Mercurial > emacs
changeset 108723:0f1244b4539c
* 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
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Fri, 21 May 2010 02:08:52 +0300 |
| parents | 0d6255a71f15 |
| children | fb43cf31d6f6 |
| files | src/ChangeLog src/fileio.c |
| diffstat | 2 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Fri May 21 01:55:11 2010 +0300 +++ b/src/ChangeLog Fri May 21 02:08:52 2010 +0300 @@ -1,3 +1,10 @@ +2010-05-20 Juri Linkov <juri@jurta.org> + + * 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 <user42@zip.com.au> * keyboard.c (Vlast_command, Vkeyboard_translate_table)
--- a/src/fileio.c Fri May 21 01:55:11 2010 +0300 +++ b/src/fileio.c Fri May 21 02:08:52 2010 +0300 @@ -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.