diff options
| author | Lars Ingebrigtsen | 2022-07-31 11:24:23 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-07-31 11:24:23 +0200 |
| commit | 0a0e1ed0e02431827dfd26014d9db9059f1ccc30 (patch) | |
| tree | 18b0c63e334938fe0abdf3284919e5241f4e59a7 | |
| parent | c5df73941efaca822cd04ad7a61cdc70eae2d547 (diff) | |
| download | emacs-0a0e1ed0e02431827dfd26014d9db9059f1ccc30.tar.gz emacs-0a0e1ed0e02431827dfd26014d9db9059f1ccc30.zip | |
tramp fixes for byte-compiling loaddefs.el
* lisp/net/tramp-archive.el (tramp-archive-file-name-handler):
Move to the main loaddefs file since it's referred to by functions
there.
* lisp/net/tramp.el (tramp-file-name-handler): Autoload to avoid
warning when byte-compiling loaddefs.el.
| -rw-r--r-- | lisp/net/tramp-archive.el | 2 | ||||
| -rw-r--r-- | lisp/net/tramp.el | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/tramp-archive.el b/lisp/net/tramp-archive.el index 4f106a6b593..b2244941102 100644 --- a/lisp/net/tramp-archive.el +++ b/lisp/net/tramp-archive.el | |||
| @@ -322,7 +322,7 @@ arguments to pass to the OPERATION." | |||
| 322 | (inhibit-file-name-operation operation)) | 322 | (inhibit-file-name-operation operation)) |
| 323 | (apply operation args)))) | 323 | (apply operation args)))) |
| 324 | 324 | ||
| 325 | ;;;###tramp-autoload | 325 | ;;;###autoload |
| 326 | (defun tramp-archive-file-name-handler (operation &rest args) | 326 | (defun tramp-archive-file-name-handler (operation &rest args) |
| 327 | "Invoke the file archive related OPERATION. | 327 | "Invoke the file archive related OPERATION. |
| 328 | First arg specifies the OPERATION, second arg ARGS is a list of | 328 | First arg specifies the OPERATION, second arg ARGS is a list of |
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index faf3182d4aa..a808c79dd98 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -2684,6 +2684,7 @@ Must be handled by the callers." | |||
| 2684 | res))) | 2684 | res))) |
| 2685 | 2685 | ||
| 2686 | ;; Main function. | 2686 | ;; Main function. |
| 2687 | ;;;###autoload | ||
| 2687 | (defun tramp-file-name-handler (operation &rest args) | 2688 | (defun tramp-file-name-handler (operation &rest args) |
| 2688 | "Invoke Tramp file name handler for OPERATION and ARGS. | 2689 | "Invoke Tramp file name handler for OPERATION and ARGS. |
| 2689 | Fall back to normal file name handler if no Tramp file name handler exists." | 2690 | Fall back to normal file name handler if no Tramp file name handler exists." |