(Fexpand_file_name): No longer discard .../ before another / or ~.

That is now only in Fsubstitute_in_file_name.

diff --git a/src/fileio.c b/src/fileio.c
index bd7adb56da2e1b2f9e501f3dcfd1cec62469ebcf..7c08284728ab71bc6f50ff49ce0ea168282ab5d9 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -901,29 +901,6 @@ See also the function `substitute-in-file-name'.")
   }
 #endif /* DOS_NT */
 
-  /* Handle // and /~ in middle of file name
-     by discarding everything through the first / of that sequence.  */
-  p = nm;
-  while (*p)
-    {
-      /* Since we are expecting the name to be absolute, we can assume
-        that each element starts with a "/".  */
-
-      if (IS_DIRECTORY_SEP (p[0]) && IS_DIRECTORY_SEP (p[1])
-#if defined (APOLLO) || defined (WINDOWSNT)
-         /* // at start of filename is meaningful on Apollo
-            and WindowsNT systems */
-         && nm != p
-#endif /* APOLLO || WINDOWSNT */
-         )
-       nm = p + 1;
-
-      if (IS_DIRECTORY_SEP (p[0]) && p[1] == '~')
-       nm = p + 1;
-
-      p++;
-    }
-
 #ifdef WINDOWSNT
   /* Discard any previous drive specifier if nm is now in UNC format. */
   if (IS_DIRECTORY_SEP (nm[0]) && IS_DIRECTORY_SEP (nm[1]))