diff options
| author | Richard M. Stallman | 1993-06-13 00:01:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-06-13 00:01:50 +0000 |
| commit | 8a2c760a0efb478880a3a198e9713a5fb69b5b8a (patch) | |
| tree | 11dd0a62cb127dbe56e37f041551591cc944e51f | |
| parent | 15285f9fa7d994583488ba5fbab32958af4175a7 (diff) | |
| download | emacs-8a2c760a0efb478880a3a198e9713a5fb69b5b8a.tar.gz emacs-8a2c760a0efb478880a3a198e9713a5fb69b5b8a.zip | |
(Fload): Use call5.
| -rw-r--r-- | src/lread.c | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/src/lread.c b/src/lread.c index 57410a71d78..385a73d5af6 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -326,16 +326,7 @@ Return t if file exists.") | |||
| 326 | /* If file name is magic, call the handler. */ | 326 | /* If file name is magic, call the handler. */ |
| 327 | handler = Ffind_file_name_handler (str); | 327 | handler = Ffind_file_name_handler (str); |
| 328 | if (!NILP (handler)) | 328 | if (!NILP (handler)) |
| 329 | { | 329 | return call5 (handler, Qload, str, noerror, nomessage, nosuffix); |
| 330 | Lisp_Object args[6]; | ||
| 331 | args[0] = handler; | ||
| 332 | args[1] = Qload; | ||
| 333 | args[2] = str; | ||
| 334 | args[3] = noerror; | ||
| 335 | args[4] = nomessage; | ||
| 336 | args[5] = nosuffix; | ||
| 337 | return Ffuncall (6, args); | ||
| 338 | } | ||
| 339 | 330 | ||
| 340 | /* Avoid weird lossage with null string as arg, | 331 | /* Avoid weird lossage with null string as arg, |
| 341 | since it would try to load a directory as a Lisp file */ | 332 | since it would try to load a directory as a Lisp file */ |