Mercurial > emacs

changeset 8227:0e6b7eeedc3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fmake_directory_internal): Use Qmake_directory_internal. (syms_of_fileio): Set up Qmake_directory_internal, not Qmake_directory.
author Richard M. Stallman <rms@gnu.org>
date Tue, 12 Jul 1994 21:03:03 +0000
parents 3ad4ec3c9228
children 9c7a3c5f887d
files src/fileio.c
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/fileio.c	Tue Jul 12 19:51:30 1994 +0000
+++ b/src/fileio.c	Tue Jul 12 21:03:03 1994 +0000
@@ -188,7 +188,7 @@
 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 @@
   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 @@
   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");