From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 16 Oct 1997 18:37:51 +0000 (+0000)
Subject: (init_buffer): Don't add /: to default dir if it's `/'.
X-Git-Tag: emacs-20.3~2993
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=81ab2e072715623f993650ac73490c615bd761ba;p=emacs.git

(init_buffer): Don't add /: to default dir if it's `/'.
---

diff --git a/src/buffer.c b/src/buffer.c
index 566757e9987..5bb80523c10 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -3733,7 +3733,12 @@ init_buffer ()
   /* Add /: to the front of the name
      if it would otherwise be treated as magic.  */
   temp = Ffind_file_name_handler (current_buffer->directory, Qt);
-  if (! NILP (temp))
+  if (! NILP (temp)
+      /* If the default dir is just /, TEMP is non-nil
+	 because of the ange-ftp completion handler.
+	 However, it is not necessary to turn / into /:/.
+	 So avoid doing that.  */
+      && strcmp ("/", XSTRING (current_buffer->directory)->data))
     current_buffer->directory
       = concat2 (build_string ("/:"), current_buffer->directory);