* fileio.c (syms_of_fileio): Initialize Vdirectory_sep_char.

(init_fileio_once):
* lisp.h (init_fileio_once): Remove.
* emacs.c (main): Don't call init_fileio_once.

diff --git a/src/ChangeLog b/src/ChangeLog
index 3c1c603c669dc7d54c9b7b855896fc0156c14c40..b4bf786ca9322f734f032d8e268b2ca6a3f98f4d 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
+2009-10-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * fileio.c (syms_of_fileio): Initialize Vdirectory_sep_char.
+       (init_fileio_once):
+       * lisp.h (init_fileio_once): Remove.
+       * emacs.c (main): Don't call init_fileio_once.
+
 2009-10-23  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * puresize.h (BASE_PURESIZE): Increase to 1430000.

diff --git a/src/emacs.c b/src/emacs.c
index 2724aeefd489373ac20eaef976214f6584264eb5..3f43904fa0c83cf80d7f2654d493cd1956fbd1d1 100644 (file)
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -1384,7 +1384,6 @@ main (int argc, char **argv)
       syms_of_coding ();       /* This should be after syms_of_fileio.  */
 
       init_window_once ();     /* Init the window system.  */
-      init_fileio_once ();     /* Must precede any path manipulation.  */
 #ifdef HAVE_WINDOW_SYSTEM
       init_fringe_once ();     /* Swap bitmaps if necessary. */
 #endif /* HAVE_WINDOW_SYSTEM */

diff --git a/src/fileio.c b/src/fileio.c
index b83ef6fe45cf2d39ac4d2e33802acb99a3c0030c..146e77c14eca9bdfaeaef90132da4b1a779bb7aa 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -5456,14 +5456,6 @@ Fread_file_name (prompt, dir, default_filename, mustmatch, initial, predicate)
   RETURN_UNGCPRO (Ffuncall (7, args));
 }
 
-\f
-void
-init_fileio_once ()
-{
-  /* Must be set before any path manipulation is performed.  */
-  XSETFASTINT (Vdirectory_sep_char, '/');
-}
-
 \f
 void
 syms_of_fileio ()
@@ -5600,6 +5592,7 @@ of file names regardless of the current language environment.  */);
   DEFVAR_LISP ("directory-sep-char", &Vdirectory_sep_char,
               doc: /* Directory separator character for built-in functions that return file names.
 The value is always ?/.  Don't use this variable, just use `/'.  */);
+  XSETFASTINT (Vdirectory_sep_char, '/');
 
   DEFVAR_LISP ("file-name-handler-alist", &Vfile_name_handler_alist,
               doc: /* *Alist of elements (REGEXP . HANDLER) for file names handled specially.

diff --git a/src/lisp.h b/src/lisp.h
index 4685578a417d2b9fa054b49e72aedc412a568816..12f06ad6edabeaba93fc77d00a05d303a5735f1d 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2984,7 +2984,6 @@ extern Lisp_Object close_file_unwind P_ ((Lisp_Object));
 extern void report_file_error P_ ((const char *, Lisp_Object)) NO_RETURN;
 extern int internal_delete_file P_ ((Lisp_Object));
 extern void syms_of_fileio P_ ((void));
-extern void init_fileio_once P_ ((void));
 extern Lisp_Object make_temp_name P_ ((Lisp_Object, int));
 EXFUN (Fmake_symbolic_link, 3);
 extern Lisp_Object Qdelete_file;