# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739746955 0
# Node ID 57174f9b1870fac31a0215aed3d1b94ded24ed08
# Parent  386094c1a5693277ed41bf5a7c93a6b476b78d48
(Fload): Forward all 4 args to magic-name handler.

(syms_of_lread): Set up Qload.
(Fload): Handle magic file names.

diff -r 386094c1a569 -r 57174f9b1870 src/lread.c
--- a/src/lread.c	Thu Jun 10 20:44:12 1993 +0000
+++ b/src/lread.c	Thu Jun 10 21:15:55 1993 +0000
@@ -52,7 +52,7 @@
 
 Lisp_Object Qread_char, Qget_file_char, Qstandard_input, Qcurrent_load_list;
 Lisp_Object Qvariable_documentation, Vvalues, Vstandard_input, Vafter_load_alist;
-Lisp_Object Qascii_character;
+Lisp_Object Qascii_character, Qload;
 
 extern Lisp_Object Qevent_symbol_element_mask;
 
@@ -318,10 +318,25 @@
   Lisp_Object found;
   /* 1 means inhibit the message at the beginning.  */
   int nomessage1 = 0;
+  Lisp_Object handler;
 
   CHECK_STRING (str, 0);
   str = Fsubstitute_in_file_name (str);
 
+  /* If file name is magic, call the handler.  */
+  handler = Ffind_file_name_handler (str);
+  if (!NILP (handler))
+    {
+      Lisp_Object args[6];
+      args[0] = handler;
+      args[1] = Qload;
+      args[2] = str;
+      args[3] = noerror;
+      args[4] = nomessage;
+      args[5] = nosuffix;
+      return Ffuncall (6, args);
+    }
+
   /* Avoid weird lossage with null string as arg,
      since it would try to load a directory as a Lisp file */
   if (XSTRING (str)->size > 0)
@@ -1893,4 +1908,7 @@
 
   Qascii_character = intern ("ascii-character");
   staticpro (&Qascii_character);
+
+  Qload = intern ("load");
+  staticpro (&Qload);
 }