From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 29 Aug 2002 19:27:07 +0000 (+0000)
Subject: (decode_env_path): Don't add /: if file name handler
X-Git-Tag: emacs-pretest-21.2.91~98
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1169cc67d0110f7d02932a880277a915db24620e;p=emacs.git

(decode_env_path): Don't add /: if file name handler
has a `safe-magic' property.
---

diff --git a/src/emacs.c b/src/emacs.c
index 62bcf1d78ff..274c151d180 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -2135,6 +2135,17 @@ decode_env_path (evarname, defalt)
       /* 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);