changeset 1533:b86ef0432100

(Fmake_directory_internal): Renamed from Fmake_directory. Pass nil as third arg to handler. Lisp function `make-directory' is now in files.el.
author Richard M. Stallman <rms@gnu.org>
date Sat, 31 Oct 1992 23:27:11 +0000
parents 50af75dfa70a
children dd292c7ef749
files src/fileio.c
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/fileio.c	Sat Oct 31 09:27:47 1992 +0000
+++ b/src/fileio.c	Sat Oct 31 23:27:11 1992 +0000
@@ -1560,7 +1560,8 @@
   return Qnil;
 }
 
-DEFUN ("make-directory", Fmake_directory, Smake_directory, 1, 1, "FMake directory: ",
+DEFUN ("make-directory-internal", Fmake_directory_internal,
+       Smake_directory_internal, 1, 1, 0)
   "Create a directory.  One argument, a file name string.")
   (dirname)
      Lisp_Object dirname;
@@ -1573,8 +1574,8 @@
 
   handler = find_file_handler (dirname);
   if (!NILP (handler))
-    return call2 (handler, Qmake_directory, dirname);
- 
+    return call3 (handler, Qmake_directory, dirname, Qnil);
+
   dir = XSTRING (dirname)->data;
 
   if (mkdir (dir, 0777) != 0)
@@ -3248,7 +3249,7 @@
   defsubr (&Sexpand_file_name);
   defsubr (&Ssubstitute_in_file_name);
   defsubr (&Scopy_file);
-  defsubr (&Smake_directory);
+  defsubr (&Smake_directory_internal);
   defsubr (&Sdelete_directory);
   defsubr (&Sdelete_file);
   defsubr (&Srename_file);