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 /lisp/net/ange-ftp.el | |
parent | f0f960050b1d3931331bf0ce42d2e106f8c7832b (diff) | |
download | emacs-5d6e919a90bc3ad3c73f9c6b20b25837d283af0e.tar.gz |
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 'lisp/net/ange-ftp.el')
-rw-r--r-- | lisp/net/ange-ftp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 6ffa65a2dde..d6d0fb9a259 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -4242,7 +4242,7 @@ directory, so that Emacs will know its current contents." ((eq identification 'localname) localname) (t (ange-ftp-replace-name-component file "")))))) -(defun ange-ftp-load (file &optional noerror nomessage nosuffix) +(defun ange-ftp-load (file &optional noerror nomessage nosuffix must-suffix) (if (ange-ftp-ftp-name file) (let ((tryfiles (if nosuffix (list file) @@ -4264,7 +4264,7 @@ directory, so that Emacs will know its current contents." (or noerror (signal 'file-error (list "Cannot open load file" file))) nil)) - (ange-ftp-real-load file noerror nomessage nosuffix))) + (ange-ftp-real-load file noerror nomessage nosuffix must-suffix))) ;; Calculate default-unhandled-directory for a given ange-ftp buffer. (defun ange-ftp-unhandled-file-name-directory (_filename) |