From a6e6e718a278ac3f7a168fd448d799f102c654ca Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 12 Jul 1994 21:03:03 +0000 Subject: [PATCH] (Fmake_directory_internal): Use Qmake_directory_internal. (syms_of_fileio): Set up Qmake_directory_internal, not Qmake_directory. --- src/fileio.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/fileio.c b/src/fileio.c index 7d907bc46d7..b92720e3d7a 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -188,7 +188,7 @@ Lisp_Object Qfile_name_nondirectory; Lisp_Object Qunhandled_file_name_directory; Lisp_Object Qfile_name_as_directory; Lisp_Object Qcopy_file; -Lisp_Object Qmake_directory; +Lisp_Object Qmake_directory_internal; Lisp_Object Qdelete_directory; Lisp_Object Qdelete_file; Lisp_Object Qrename_file; @@ -1852,9 +1852,9 @@ DEFUN ("make-directory-internal", Fmake_directory_internal, CHECK_STRING (dirname, 0); dirname = Fexpand_file_name (dirname, Qnil); - handler = Ffind_file_name_handler (dirname, Qmake_directory); + handler = Ffind_file_name_handler (dirname, Qmake_directory_internal); if (!NILP (handler)) - return call3 (handler, Qmake_directory, dirname, Qnil); + return call3 (handler, Qmake_directory_internal, dirname, Qnil); dir = XSTRING (dirname)->data; @@ -3956,7 +3956,7 @@ syms_of_fileio () Qunhandled_file_name_directory = intern ("unhandled-file-name-directory"); Qfile_name_as_directory = intern ("file-name-as-directory"); Qcopy_file = intern ("copy-file"); - Qmake_directory = intern ("make-directory"); + Qmake_directory_internal = intern ("make-directory-internal"); Qdelete_directory = intern ("delete-directory"); Qdelete_file = intern ("delete-file"); Qrename_file = intern ("rename-file"); -- 2.39.5