Commit 8a2c760a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fload): Use call5.

parent 15285f9f
......@@ -326,16 +326,7 @@ Return t if file exists.")
/* 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);
return call5 (handler, Qload, str, noerror, nomessage, nosuffix);
/* Avoid weird lossage with null string as arg,
since it would try to load a directory as a Lisp file */
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment