From ca3df2d557f9498f0755abecb5a7b9393bb4338f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" <rms@gnu.org> Date: Sat, 24 Aug 2002 03:15:22 +0000 Subject: [PATCH] (decode_env_path): Don't add /: if file name handler has a `safe-magic' property. --- src/emacs.c | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/src/emacs.c b/src/emacs.c index 5d4f24d314b..63a94306e4e 100644 --- a/src/emacs.c +++ b/src/emacs.c @@ -2226,6 +2226,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); -- 2.39.5