]> git.eshelyaron.com Git - emacs.git/commitdiff
(decode_env_path): Don't add /: if file name handler
authorRichard M. Stallman <rms@gnu.org>
Thu, 29 Aug 2002 19:27:07 +0000 (19:27 +0000)
committerRichard M. Stallman <rms@gnu.org>
Thu, 29 Aug 2002 19:27:07 +0000 (19:27 +0000)
has a `safe-magic' property.

src/emacs.c

index 62bcf1d78ffbeee1211ffac40fda6d0c1ad39f95..274c151d180d8f19a8dd9ffe23c67492206d35ce 100644 (file)
@@ -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);