diff src/fileio.c @ 23569:b1255c3676c7

fileio.c (init_fileio_once): New function.

--- a/src/fileio.c	Fri Oct 30 03:48:54 1998 +0000
+++ b/src/fileio.c	Fri Oct 30 03:49:09 1998 +0000
@@ -5518,6 +5518,13 @@
 }
 
 void
+init_fileio_once ()
+{
+  /* Must be set before any path manipulation is performed.  */
+  XSETFASTINT (Vdirectory_sep_char, '/');
+}
+
+void
 syms_of_fileio ()
 {
   Qexpand_file_name = intern ("expand-file-name");
@@ -5661,7 +5668,6 @@
 This variable affects the built-in functions only on Windows,\n\
 on other platforms, it is initialized so that Lisp code can find out\n\
 what the normal separator is.");
-  XSETFASTINT (Vdirectory_sep_char, '/');
 
   DEFVAR_LISP ("file-name-handler-alist", &Vfile_name_handler_alist,
     "*Alist of elements (REGEXP . HANDLER) for file names handled specially.\n\