From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 13 Jun 1996 19:09:32 +0000 (+0000)
Subject: (Fexpand_file_name): When simplifying /foo/.., keep the initial slash.
X-Git-Tag: emacs-19.34~435
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=51b1d12e571d958cd4e9b59713f7ec72c1d2b105;p=emacs.git

(Fexpand_file_name): When simplifying /foo/.., keep the initial slash.
---

diff --git a/src/fileio.c b/src/fileio.c
index a05a72e97bd..f5a800f6c16 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -1386,6 +1386,8 @@ See also the function `substitute-in-file-name'.")
 	{
 	  while (o != target && (--o) && !IS_DIRECTORY_SEP (*o))
 	    ;
+	  if (o == target && IS_ANY_SEP (*o))
+	    ++o;
 	  p += 3;
 	}
       else