From 9d8f3bd914a0c28139c0129bffe182303fc535bf Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 1 Oct 2009 15:08:13 +0000 Subject: [PATCH] * fileio.c (Fdelete_directory_internal): Renamed from Fdelete_directory. It is not a command anymore. It has no file name handler. --- src/ChangeLog | 6 ++++++ src/fileio.c | 17 +++++++---------- 2 files changed, 13 insertions(+), 10 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 8aa3e7b691b..3e36b223142 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2009-10-01 Michael Albinus + + * fileio.c (Fdelete_directory_internal): Renamed from + Fdelete_directory. It is not a command anymore. It has no file + name handler. + 2009-09-28 Stefan Monnier * xdisp.c (get_next_display_element): Use an enum in last change. diff --git a/src/fileio.c b/src/fileio.c index 3702d4cc1b8..cfe1f54382e 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -206,7 +206,7 @@ int write_region_inhibit_fsync; #endif /* Non-zero means call move-file-to-trash in Fdelete_file or - Fdelete_directory. */ + Fdelete_directory_internal. */ int delete_by_moving_to_trash; Lisp_Object Qdelete_by_moving_to_trash; @@ -315,7 +315,7 @@ Lisp_Object Qfile_name_as_directory; Lisp_Object Qcopy_file; Lisp_Object Qmake_directory_internal; Lisp_Object Qmake_directory; -Lisp_Object Qdelete_directory; +Lisp_Object Qdelete_directory_internal; Lisp_Object Qdelete_file; Lisp_Object Qrename_file; Lisp_Object Qadd_name_to_file; @@ -2134,7 +2134,8 @@ DEFUN ("make-directory-internal", Fmake_directory_internal, return Qnil; } -DEFUN ("delete-directory", Fdelete_directory, Sdelete_directory, 1, 1, "FDelete directory: ", +DEFUN ("delete-directory-internal", Fdelete_directory_internal, + Sdelete_directory_internal, 1, 1, 0, doc: /* Delete the directory named DIRECTORY. Does not follow symlinks. */) (directory) Lisp_Object directory; @@ -2146,10 +2147,6 @@ DEFUN ("delete-directory", Fdelete_directory, Sdelete_directory, 1, 1, "FDelete CHECK_STRING (directory); directory = Fdirectory_file_name (Fexpand_file_name (directory, Qnil)); - handler = Ffind_file_name_handler (directory, Qdelete_directory); - if (!NILP (handler)) - return call2 (handler, Qdelete_directory, directory); - if (delete_by_moving_to_trash) return call1 (Qmove_file_to_trash, directory); @@ -5481,7 +5478,7 @@ syms_of_fileio () Qcopy_file = intern ("copy-file"); Qmake_directory_internal = intern ("make-directory-internal"); Qmake_directory = intern ("make-directory"); - Qdelete_directory = intern ("delete-directory"); + Qdelete_directory_internal = intern ("delete-directory-internal"); Qdelete_file = intern ("delete-file"); Qrename_file = intern ("rename-file"); Qadd_name_to_file = intern ("add-name-to-file"); @@ -5516,7 +5513,7 @@ syms_of_fileio () staticpro (&Qcopy_file); staticpro (&Qmake_directory_internal); staticpro (&Qmake_directory); - staticpro (&Qdelete_directory); + staticpro (&Qdelete_directory_internal); staticpro (&Qdelete_file); staticpro (&Qrename_file); staticpro (&Qadd_name_to_file); @@ -5743,7 +5740,7 @@ When non-nil, the function `move-file-to-trash' will be used by defsubr (&Ssubstitute_in_file_name); defsubr (&Scopy_file); defsubr (&Smake_directory_internal); - defsubr (&Sdelete_directory); + defsubr (&Sdelete_directory_internal); defsubr (&Sdelete_file); defsubr (&Srename_file); defsubr (&Sadd_name_to_file); -- 2.39.5