From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 4 Oct 1996 04:26:23 +0000 (+0000)
Subject: (init_buffer): Add /: to dir names that could be magic.
X-Git-Tag: emacs-20.1~3560
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0995fa350a861885b709fc2bfc210d65a5597385;p=emacs.git

(init_buffer): Add /: to dir names that could be magic.
---

diff --git a/src/buffer.c b/src/buffer.c
index 51a34550476..b02bf784e17 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -3543,8 +3543,16 @@ init_buffer ()
       buf[rc + 1] = '\0';
     }
 #endif /* not VMS */
+
   current_buffer->directory = build_string (buf);
 
+  /* 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))
+    current_buffer->directory
+      = concat2 (build_string ("/:"), current_buffer->directory);
+
   temp = get_minibuffer (0);
   XBUFFER (temp)->directory = current_buffer->directory;
 }