(Fsubstitute_in_file_name): Fix the change from 2002-02-08.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/fileio.c b/src/fileio.c
index 7a4362f413a..894189008d5 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2069,7 +2069,7 @@ duplicates what `expand-file-name' does.  */)
                               && *s != ':'
 #endif /* VMS */
                               ); s++);
-          if (s > p + 1)
+          if (p[0] == '~' && s > p + 1) /* we've got "/~something/" */
             {
               o = (unsigned char *) alloca (s - p + 1);
               bcopy ((char *) p, o, s - p);
@@ -2080,7 +2080,7 @@ duplicates what `expand-file-name' does.  */)
           /* If we have ~/ or ~user and `user' exists, discard
              everything up to ~.  But if `user' does not exist, leave
              ~user alone, it might be a literal file name.  */
-          if (s == p + 1 || pw)
+          if (IS_DIRECTORY_SEP (p[0]) || s == p + 1 || pw)
             {
               nm = p;
               substituted = 1;