diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2021-05-22 17:51:07 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2021-05-22 17:51:07 +0200 |
| commit | 4db69b32b835a833168982b0f11a43d7f62ba8b2 (patch) | |
| tree | e419e64ea235d6b698974cd59d53f2db1e60dd29 /lisp/net/tramp-archive.el | |
| parent | 84e207c81187ff46fb94775ccb24d9b76b80db9c (diff) | |
| download | emacs-4db69b32b835a833168982b0f11a43d7f62ba8b2.tar.gz emacs-4db69b32b835a833168982b0f11a43d7f62ba8b2.tar.bz2 emacs-4db69b32b835a833168982b0f11a43d7f62ba8b2.zip | |
Fix bug#48476
* lisp/net/tramp-archive.el (tramp-archive-autoload-file-name-handler):
Add implementation.
* lisp/net/tramp-integration.el (tramp-rename-files)
(tramp-rename-these-files): Declare them.
* lisp/net/tramp.el (tramp-autoload-file-name-handler):
Load tramp-archive.el if needed. (Bug#48476)
* test/lisp/net/tramp-archive-tests.el (tramp-archive-test45-auto-load):
Extend test.
Use #' syntax for function symbols.
Diffstat (limited to 'lisp/net/tramp-archive.el')
| -rw-r--r-- | lisp/net/tramp-archive.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/net/tramp-archive.el b/lisp/net/tramp-archive.el index 61c40ffdea3..a37009402cf 100644 --- a/lisp/net/tramp-archive.el +++ b/lisp/net/tramp-archive.el @@ -345,8 +345,12 @@ arguments to pass to the OPERATION." (tramp-archive-run-real-handler operation args))))))) ;;;###autoload -(defalias - 'tramp-archive-autoload-file-name-handler #'tramp-autoload-file-name-handler) +(progn (defun tramp-archive-autoload-file-name-handler (operation &rest args) + "Load Tramp archive file name handler, and perform OPERATION." + (if tramp-archive-enabled + (let ((tramp-archive-autoload t)) + tramp-archive-autoload ; Silence byte compiler. + (apply #'tramp-autoload-file-name-handler operation args))))) ;;;###autoload (progn (defun tramp-register-archive-file-name-handler () |