* 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
This commit is contained in:
parent
f66a2f90f6
commit
2e2bbddbf9
2 changed files with 11 additions and 1 deletions
|
@ -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)
|
||||
|
|
|
@ -2194,7 +2194,10 @@ DEFUN ("delete-directory-internal", Fdelete_directory_internal,
|
|||
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.
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue