From 0995fa350a861885b709fc2bfc210d65a5597385 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 4 Oct 1996 04:26:23 +0000
Subject: [PATCH] (init_buffer): Add /: to dir names that could be magic.

---
 src/buffer.c | 8 ++++++++
 1 file changed, 8 insertions(+)

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;
 }
-- 
2.39.5