# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1030158922 0
# Node ID 8ec5fd232f26b6bc4219c132685a6a15611422ab
# Parent  101eb25eab6ddc1cf7e9b3d83ef0fa39bdc3738c
(decode_env_path): Don't add /: if file name handler
has a `safe-magic' property.

diff -r 101eb25eab6d -r 8ec5fd232f26 src/emacs.c
--- a/src/emacs.c	Sat Aug 24 03:14:32 2002 +0000
+++ b/src/emacs.c	Sat Aug 24 03:15:22 2002 +0000
@@ -2226,6 +2226,17 @@
       /* Add /: to the front of the name
 	 if it would otherwise be treated as magic.  */
       tem = Ffind_file_name_handler (element, Qt);
+
+      /* However, if the handler says "I'm safe",
+	 don't bother adding /:.  */
+      if (SYMBOLP (tem))
+	{
+	  Lisp_Object prop;
+	  prop = Fget (tem, intern ("safe-magic"));
+	  if (! NILP (prop))
+	    tem = Qnil;
+	}
+
       if (! NILP (tem))
 	element = concat2 (build_string ("/:"), element);