diff options
| author | Michael Albinus | 2020-04-01 12:09:29 +0200 |
|---|---|---|
| committer | Michael Albinus | 2020-04-01 12:09:29 +0200 |
| commit | e2165eef3d6f37aca83ea592e928fdb1cac5b569 (patch) | |
| tree | d0a4b8dcd0b83b2e4da1c4a6f7aea6158b57bfde | |
| parent | 319a2a742759e5a6738a554918e2030bed6f8188 (diff) | |
| download | emacs-e2165eef3d6f37aca83ea592e928fdb1cac5b569.tar.gz emacs-e2165eef3d6f37aca83ea592e928fdb1cac5b569.zip | |
Avoid error messages loading trampver.el
* lisp/net/trampver.el (tramp-repository-branch)
(tramp-repository-version): Bind `debug-on-error' to nil.
| -rw-r--r-- | lisp/net/trampver.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el index 0a92e0d3202..8d21133b3b1 100644 --- a/lisp/net/trampver.el +++ b/lisp/net/trampver.el | |||
| @@ -48,6 +48,7 @@ | |||
| 48 | ;; Suppress message from `emacs-repository-get-branch'. We must | 48 | ;; Suppress message from `emacs-repository-get-branch'. We must |
| 49 | ;; also handle out-of-tree builds. | 49 | ;; also handle out-of-tree builds. |
| 50 | (let ((inhibit-message t) | 50 | (let ((inhibit-message t) |
| 51 | (debug-on-error nil) | ||
| 51 | (dir (or (locate-dominating-file (locate-library "tramp") ".git") | 52 | (dir (or (locate-dominating-file (locate-library "tramp") ".git") |
| 52 | source-directory))) | 53 | source-directory))) |
| 53 | ;; `emacs-repository-get-branch' has been introduced with Emacs 27.1. | 54 | ;; `emacs-repository-get-branch' has been introduced with Emacs 27.1. |
| @@ -61,6 +62,7 @@ | |||
| 61 | ;; Suppress message from `emacs-repository-get-version'. We must | 62 | ;; Suppress message from `emacs-repository-get-version'. We must |
| 62 | ;; also handle out-of-tree builds. | 63 | ;; also handle out-of-tree builds. |
| 63 | (let ((inhibit-message t) | 64 | (let ((inhibit-message t) |
| 65 | (debug-on-error nil) | ||
| 64 | (dir (or (locate-dominating-file (locate-library "tramp") ".git") | 66 | (dir (or (locate-dominating-file (locate-library "tramp") ".git") |
| 65 | source-directory))) | 67 | source-directory))) |
| 66 | (and (stringp dir) (file-directory-p dir) | 68 | (and (stringp dir) (file-directory-p dir) |