[Emacs-diffs] Changes to emacs/src/fileio.c

[Eli Zaretskii]

Index: emacs/src/fileio.c
diff -c emacs/src/fileio.c:1.434 emacs/src/fileio.c:1.435
*** emacs/src/fileio.c:1.434    Wed Dec 12 17:53:16 2001
--- emacs/src/fileio.c  Wed Dec 19 13:55:01 2001
***************
*** 1038,1044 ****
    if (NILP (default_directory))
      default_directory = current_buffer->directory;
    if (! STRINGP (default_directory))
!     default_directory = build_string ("/");
  
    if (!NILP (default_directory))
      {
--- 1038,1060 ----
    if (NILP (default_directory))
      default_directory = current_buffer->directory;
    if (! STRINGP (default_directory))
!     {
! #ifdef DOS_NT
!       /* "/" is not considered a root directory on DOS_NT, so using "/"
!        here causes an infinite recursion in, e.g., the following:
! 
!             (let (default-directory)
!             (expand-file-name "a"))
! 
!        To avoid this, we set default_directory to the root of the
!        current drive.  */
!       extern char *emacs_root_dir (void);
! 
!       default_directory = build_string (emacs_root_dir ());
! #else
!       default_directory = build_string ("/");
! #endif
!     }
  
    if (!NILP (default_directory))
      {