Mercurial > emacs
diff src/fileio.c @ 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 | 973b5bc5fcfe |
children | 511da81b16c5 |
line wrap: on
line diff
--- 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.