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

[Kenichi Handa]

Index: emacs/src/fileio.c
diff -c emacs/src/fileio.c:1.475 emacs/src/fileio.c:1.476
*** emacs/src/fileio.c:1.475    Wed Mar 19 06:54:57 2003
--- emacs/src/fileio.c  Wed Mar 19 07:09:37 2003
***************
*** 6063,6069 ****
                   SBYTES (decoded_homedir))
        && IS_DIRECTORY_SEP (SREF (dir, SBYTES (decoded_homedir))))
      {
!       dir = Fsubstring (dir, make_number (SCHARS (decoded_homedir) + 1), 
Qnil);
        dir = concat2 (build_string ("~"), dir);
      }
    /* Likewise for default_filename.  */
--- 6063,6069 ----
                   SBYTES (decoded_homedir))
        && IS_DIRECTORY_SEP (SREF (dir, SBYTES (decoded_homedir))))
      {
!       dir = Fsubstring (dir, make_number (SCHARS (decoded_homedir)), Qnil);
        dir = concat2 (build_string ("~"), dir);
      }
    /* Likewise for default_filename.  */
***************
*** 6075,6081 ****
      {
        default_filename
        = Fsubstring (default_filename,
!                     make_number (SCHARS (decoded_homedir) + 1), Qnil);
        default_filename = concat2 (build_string ("~"), default_filename);
      }
    if (!NILP (default_filename))
--- 6075,6081 ----
      {
        default_filename
        = Fsubstring (default_filename,
!                     make_number (SCHARS (decoded_homedir)), Qnil);
        default_filename = concat2 (build_string ("~"), default_filename);
      }
    if (!NILP (default_filename))