Mercurial > emacs

comparison src/fileio.c @ 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 b5cc015a3698
children bf7b3b969ab5
comparison
equal deleted inserted replaced
8226:3ad4ec3c9228 8227:0e6b7eeedc3b
186 Lisp_Object Qfile_name_directory; 186 Lisp_Object Qfile_name_directory;
187 Lisp_Object Qfile_name_nondirectory; 187 Lisp_Object Qfile_name_nondirectory;
188 Lisp_Object Qunhandled_file_name_directory; 188 Lisp_Object Qunhandled_file_name_directory;
189 Lisp_Object Qfile_name_as_directory; 189 Lisp_Object Qfile_name_as_directory;
190 Lisp_Object Qcopy_file; 190 Lisp_Object Qcopy_file;
191 Lisp_Object Qmake_directory; 191 Lisp_Object Qmake_directory_internal;
192 Lisp_Object Qdelete_directory; 192 Lisp_Object Qdelete_directory;
193 Lisp_Object Qdelete_file; 193 Lisp_Object Qdelete_file;
194 Lisp_Object Qrename_file; 194 Lisp_Object Qrename_file;
195 Lisp_Object Qadd_name_to_file; 195 Lisp_Object Qadd_name_to_file;
196 Lisp_Object Qmake_symbolic_link; 196 Lisp_Object Qmake_symbolic_link;
1850 Lisp_Object handler; 1850 Lisp_Object handler;
1851 1851
1852 CHECK_STRING (dirname, 0); 1852 CHECK_STRING (dirname, 0);
1853 dirname = Fexpand_file_name (dirname, Qnil); 1853 dirname = Fexpand_file_name (dirname, Qnil);
1854 1854
1855 handler = Ffind_file_name_handler (dirname, Qmake_directory); 1855 handler = Ffind_file_name_handler (dirname, Qmake_directory_internal);
1856 if (!NILP (handler)) 1856 if (!NILP (handler))
1857 return call3 (handler, Qmake_directory, dirname, Qnil); 1857 return call3 (handler, Qmake_directory_internal, dirname, Qnil);
1858 1858
1859 dir = XSTRING (dirname)->data; 1859 dir = XSTRING (dirname)->data;
1860 1860
1861 if (mkdir (dir, 0777) != 0) 1861 if (mkdir (dir, 0777) != 0)
1862 report_file_error ("Creating directory", Flist (1, &dirname)); 1862 report_file_error ("Creating directory", Flist (1, &dirname));
3954 Qfile_name_directory = intern ("file-name-directory"); 3954 Qfile_name_directory = intern ("file-name-directory");
3955 Qfile_name_nondirectory = intern ("file-name-nondirectory"); 3955 Qfile_name_nondirectory = intern ("file-name-nondirectory");
3956 Qunhandled_file_name_directory = intern ("unhandled-file-name-directory"); 3956 Qunhandled_file_name_directory = intern ("unhandled-file-name-directory");
3957 Qfile_name_as_directory = intern ("file-name-as-directory"); 3957 Qfile_name_as_directory = intern ("file-name-as-directory");
3958 Qcopy_file = intern ("copy-file"); 3958 Qcopy_file = intern ("copy-file");
3959 Qmake_directory = intern ("make-directory"); 3959 Qmake_directory_internal = intern ("make-directory-internal");
3960 Qdelete_directory = intern ("delete-directory"); 3960 Qdelete_directory = intern ("delete-directory");
3961 Qdelete_file = intern ("delete-file"); 3961 Qdelete_file = intern ("delete-file");
3962 Qrename_file = intern ("rename-file"); 3962 Qrename_file = intern ("rename-file");
3963 Qadd_name_to_file = intern ("add-name-to-file"); 3963 Qadd_name_to_file = intern ("add-name-to-file");
3964 Qmake_symbolic_link = intern ("make-symbolic-link"); 3964 Qmake_symbolic_link = intern ("make-symbolic-link");