Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
108722:0d6255a71f15 | 108723:0f1244b4539c |
---|---|
2192 report_file_error ("Removing directory", list1 (directory)); | 2192 report_file_error ("Removing directory", list1 (directory)); |
2193 | 2193 |
2194 return Qnil; | 2194 return Qnil; |
2195 } | 2195 } |
2196 | 2196 |
2197 DEFUN ("delete-file", Fdelete_file, Sdelete_file, 1, 2, "fDelete file: \nP", | 2197 DEFUN ("delete-file", Fdelete_file, Sdelete_file, 1, 2, |
2198 "(list (read-file-name \"Delete file: \" nil default-directory \ | |
2199 (confirm-nonexistent-file-or-buffer)) \ | |
2200 current-prefix-arg)", | |
2198 doc: /* Delete file named FILENAME. If it is a symlink, remove the symlink. | 2201 doc: /* Delete file named FILENAME. If it is a symlink, remove the symlink. |
2199 If file has multiple names, it continues to exist with the other names. | 2202 If file has multiple names, it continues to exist with the other names. |
2200 | 2203 |
2201 If optional arg FORCE is non-nil, really delete the file regardless of | 2204 If optional arg FORCE is non-nil, really delete the file regardless of |
2202 `delete-by-moving-to-trash'. Otherwise, \"deleting\" actually moves | 2205 `delete-by-moving-to-trash'. Otherwise, \"deleting\" actually moves |