# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 844403183 0
# Node ID 4ec13b05b0fabd671368bfe0f8ac175b5ece8516
# Parent  497b37552adb8df613982b27d4a31fbe73a24c1c
(init_buffer): Add /: to dir names that could be magic.

diff -r 497b37552adb -r 4ec13b05b0fa src/buffer.c
--- a/src/buffer.c	Fri Oct 04 04:26:09 1996 +0000
+++ b/src/buffer.c	Fri Oct 04 04:26:23 1996 +0000
@@ -3543,8 +3543,16 @@
       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;
 }