diff options
| author | Michael Albinus | 2024-07-27 10:25:52 +0200 |
|---|---|---|
| committer | Michael Albinus | 2024-07-27 10:25:52 +0200 |
| commit | 29d4ba56258be582e3f98f1ac1e2a8bb3fc6ae1e (patch) | |
| tree | ae0217735f35c6a648eddaea7a1e1ca5c9a1a4f5 | |
| parent | c1436ac64dc3b30af1ee3994ca346b9bb6984228 (diff) | |
| download | emacs-29d4ba56258be582e3f98f1ac1e2a8bb3fc6ae1e.tar.gz emacs-29d4ba56258be582e3f98f1ac1e2a8bb3fc6ae1e.zip | |
Improve Tramp startup time
* lisp/net/tramp-cmds.el (tramp-repository-branch)
(tramp-repository-version):
* lisp/net/tramp-message.el (tramp-repository-branch)
(tramp-repository-version): Declare.
* lisp/net/trampver.el (tramp-repository-branch)
(tramp-repository-version): Remove ;;;###tramp-autoload cookie.
| -rw-r--r-- | lisp/net/tramp-cmds.el | 2 | ||||
| -rw-r--r-- | lisp/net/tramp-message.el | 2 | ||||
| -rw-r--r-- | lisp/net/trampver.el | 2 |
3 files changed, 4 insertions, 2 deletions
diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el index 09c48db0562..866532041c5 100644 --- a/lisp/net/tramp-cmds.el +++ b/lisp/net/tramp-cmds.el | |||
| @@ -39,6 +39,8 @@ | |||
| 39 | (defvar mm-7bit-chars) | 39 | (defvar mm-7bit-chars) |
| 40 | (defvar reporter-eval-buffer) | 40 | (defvar reporter-eval-buffer) |
| 41 | (defvar reporter-prompt-for-summary-p) | 41 | (defvar reporter-prompt-for-summary-p) |
| 42 | (defvar tramp-repository-branch) | ||
| 43 | (defvar tramp-repository-version) | ||
| 42 | 44 | ||
| 43 | ;;;###tramp-autoload | 45 | ;;;###tramp-autoload |
| 44 | (defun tramp-change-syntax (&optional syntax) | 46 | (defun tramp-change-syntax (&optional syntax) |
diff --git a/lisp/net/tramp-message.el b/lisp/net/tramp-message.el index df3e9c2a616..5e1c9904aa7 100644 --- a/lisp/net/tramp-message.el +++ b/lisp/net/tramp-message.el | |||
| @@ -53,6 +53,8 @@ | |||
| 53 | (declare-function tramp-file-name-host-port "tramp") | 53 | (declare-function tramp-file-name-host-port "tramp") |
| 54 | (declare-function tramp-file-name-user-domain "tramp") | 54 | (declare-function tramp-file-name-user-domain "tramp") |
| 55 | (declare-function tramp-get-default-directory "tramp") | 55 | (declare-function tramp-get-default-directory "tramp") |
| 56 | (defvar tramp-repository-branch) | ||
| 57 | (defvar tramp-repository-version) | ||
| 56 | 58 | ||
| 57 | ;;;###tramp-autoload | 59 | ;;;###tramp-autoload |
| 58 | (defcustom tramp-verbose 3 | 60 | (defcustom tramp-verbose 3 |
diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el index 2ffea846ecb..894b05814af 100644 --- a/lisp/net/trampver.el +++ b/lisp/net/trampver.el | |||
| @@ -47,7 +47,6 @@ | |||
| 47 | (defconst tramp-bug-report-address "tramp-devel@gnu.org" | 47 | (defconst tramp-bug-report-address "tramp-devel@gnu.org" |
| 48 | "Email address to send bug reports to.") | 48 | "Email address to send bug reports to.") |
| 49 | 49 | ||
| 50 | ;;;###tramp-autoload | ||
| 51 | (defconst tramp-repository-branch | 50 | (defconst tramp-repository-branch |
| 52 | (ignore-errors | 51 | (ignore-errors |
| 53 | ;; Suppress message from `emacs-repository-get-branch'. We must | 52 | ;; Suppress message from `emacs-repository-get-branch'. We must |
| @@ -61,7 +60,6 @@ | |||
| 61 | (emacs-repository-get-branch dir)))) | 60 | (emacs-repository-get-branch dir)))) |
| 62 | "The repository branch of the Tramp sources.") | 61 | "The repository branch of the Tramp sources.") |
| 63 | 62 | ||
| 64 | ;;;###tramp-autoload | ||
| 65 | (defconst tramp-repository-version | 63 | (defconst tramp-repository-version |
| 66 | (ignore-errors | 64 | (ignore-errors |
| 67 | ;; Suppress message from `emacs-repository-get-version'. We must | 65 | ;; Suppress message from `emacs-repository-get-version'. We must |