[Emacs-diffs] Changes to emacs/src/emacs.c

[Richard M. Stallman]

Index: emacs/src/emacs.c
diff -c emacs/src/emacs.c:1.313 emacs/src/emacs.c:1.314
*** emacs/src/emacs.c:1.313     Thu Aug 15 22:30:21 2002
--- emacs/src/emacs.c   Fri Aug 23 23:15:22 2002
***************
*** 2226,2231 ****
--- 2226,2242 ----
        /* 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);