changeset 50199:2e56eaaf925b

(Fread_file_name): Fix previous change.
author Kenichi Handa <handa@m17n.org>
date Wed, 19 Mar 2003 12:09:37 +0000
parents e3786189489e
children fdeb795fc0ec
files src/fileio.c
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))