diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2022-11-04 15:39:58 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2022-11-04 15:39:58 +0100 |
| commit | 5d6e919a90bc3ad3c73f9c6b20b25837d283af0e (patch) | |
| tree | e3de87e2cf669ed09a89a3631bd430ed87c79444 /src/lread.c | |
| parent | f0f960050b1d3931331bf0ce42d2e106f8c7832b (diff) | |
| download | emacs-5d6e919a90bc3ad3c73f9c6b20b25837d283af0e.tar.gz emacs-5d6e919a90bc3ad3c73f9c6b20b25837d283af0e.tar.bz2 emacs-5d6e919a90bc3ad3c73f9c6b20b25837d283af0e.zip | |
Fix calling file name handler for `load'.
* lisp/net/ange-ftp.el (ange-ftp-load): Add MUST-SUFFIX argument.
* lisp/net/tramp.el (tramp-handle-load): Adapt MUST_SUFFIX test.
* src/lread.c (Fload): Call handler with must_suffix.
* test/lisp/net/tramp-tests.el (tramp-test27-load): Extend test.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index dfa4d9afb51..957bc6895ef 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1236,7 +1236,8 @@ Return t if the file exists and loads successfully. */) /* If file name is magic, call the handler. */ handler = Ffind_file_name_handler (file, Qload); if (!NILP (handler)) - return call5 (handler, Qload, file, noerror, nomessage, nosuffix); + return + call6 (handler, Qload, file, noerror, nomessage, nosuffix, must_suffix); /* The presence of this call is the result of a historical accident: it used to be in every file-operation and when it got removed |