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

[Miles Bader]

Index: emacs/src/fileio.c
diff -c emacs/src/fileio.c:1.449.2.9 emacs/src/fileio.c:1.449.2.10
*** emacs/src/fileio.c:1.449.2.9        Tue May 11 02:37:53 2004
--- emacs/src/fileio.c  Tue Jul  6 09:23:53 2004
***************
*** 6198,6207 ****
  
    if (NILP (dir))
      dir = current_buffer->directory;
    if (NILP (default_filename))
!     default_filename = !NILP (initial)
!       ? Fexpand_file_name (initial, dir)
!       : current_buffer->filename;
  
    /* If dir starts with user's homedir, change that to ~. */
    homedir = (char *) egetenv ("HOME");
--- 6198,6210 ----
  
    if (NILP (dir))
      dir = current_buffer->directory;
+   if (NILP (Ffile_name_absolute_p (dir)))
+     dir = Fexpand_file_name (dir, Qnil);
    if (NILP (default_filename))
!     default_filename
!       = (!NILP (initial)
!        ? Fexpand_file_name (initial, dir)
!        : current_buffer->filename);
  
    /* If dir starts with user's homedir, change that to ~. */
    homedir = (char *) egetenv ("HOME");