Mercurial > emacs
changeset 7611:f93e2ddcf8c2
(Fdelete_directory): Allow dir names as well as file names.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 22 May 1994 01:40:44 +0000 |
| parents | d3ad01575684 |
| children | 3b16e6ed71cf |
| files | src/fileio.c |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fileio.c Sun May 22 00:51:36 1994 +0000 +++ b/src/fileio.c Sun May 22 01:40:44 1994 +0000 @@ -1856,7 +1856,7 @@ } DEFUN ("delete-directory", Fdelete_directory, Sdelete_directory, 1, 1, "FDelete directory: ", - "Delete a directory. One argument, a file name string.") + "Delete a directory. One argument, a file name or directory name string.") (dirname) Lisp_Object dirname; { @@ -1864,7 +1864,7 @@ Lisp_Object handler; CHECK_STRING (dirname, 0); - dirname = Fexpand_file_name (dirname, Qnil); + dirname = Fdirectory_file_name (Fexpand_file_name (dirname, Qnil)); dir = XSTRING (dirname)->data; handler = Ffind_file_name_handler (dirname, Qdelete_directory);