# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1048075777 0
# Node ID 2e56eaaf925b038de5ed7ef9deac6b5847a63cf1
# Parent  e3786189489ef96556d5d99987da8d5d22c91a2b
(Fread_file_name): Fix previous change.

diff -r e3786189489e -r 2e56eaaf925b src/fileio.c
--- a/src/fileio.c	Wed Mar 19 11:58:43 2003 +0000
+++ b/src/fileio.c	Wed Mar 19 12:09:37 2003 +0000
@@ -6063,7 +6063,7 @@
 		   SBYTES (decoded_homedir))
       && IS_DIRECTORY_SEP (SREF (dir, SBYTES (decoded_homedir))))
     {
-      dir = Fsubstring (dir, make_number (SCHARS (decoded_homedir) + 1), Qnil);
+      dir = Fsubstring (dir, make_number (SCHARS (decoded_homedir)), Qnil);
       dir = concat2 (build_string ("~"), dir);
     }
   /* Likewise for default_filename.  */
@@ -6075,7 +6075,7 @@
     {
       default_filename
 	= Fsubstring (default_filename,
-		      make_number (SCHARS (decoded_homedir) + 1), Qnil);
+		      make_number (SCHARS (decoded_homedir)), Qnil);
       default_filename = concat2 (build_string ("~"), default_filename);
     }
   if (!NILP (default_filename))