From 1169cc67d0110f7d02932a880277a915db24620e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 29 Aug 2002 19:27:07 +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 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); -- 2.39.5