diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2020-09-05 19:29:12 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2020-09-05 19:29:12 +0200 |
| commit | a04e76ac7d553b48bd35c1331b3e6720de3ec4cc (patch) | |
| tree | 14decf68f4ecb3dcf9a5ebfd07e7243e24544f0a /lisp/net/tramp-cmds.el | |
| parent | 82b695faa3c501fc59b1972c43284d7e02510d7f (diff) | |
| download | emacs-a04e76ac7d553b48bd35c1331b3e6720de3ec4cc.tar.gz | |
Minor improvements in Tramp error reporting
* lisp/net/tramp-cmds.el (tramp-bug):
Handle `tramp-suppress-trace' property.
(tramp-reporter-dump-variable): Improve variable dump.
* lisp/net/tramp.el (tramp--startup-hook, tramp-password-save-function):
Add `tramp-suppress-trace' property.
Diffstat (limited to 'lisp/net/tramp-cmds.el')
| -rw-r--r-- | lisp/net/tramp-cmds.el | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el index 52cc186ecf7..827d5f60a2b 100644 --- a/lisp/net/tramp-cmds.el +++ b/lisp/net/tramp-cmds.el @@ -482,9 +482,7 @@ For details, see `tramp-rename-files'." (defun tramp-bug () "Submit a bug report to the Tramp developers." (interactive) - (let ((reporter-prompt-for-summary-p t) - ;; In rare cases, it could contain the password. So we make it nil. - tramp-password-save-function) + (let ((reporter-prompt-for-summary-p t)) (reporter-submit-bug-report tramp-bug-report-address ; to-address (format "tramp (%s %s/%s)" ; package name and version @@ -492,10 +490,11 @@ For details, see `tramp-rename-files'." (sort (delq nil (mapcar (lambda (x) - (and x (boundp x) (cons x 'tramp-reporter-dump-variable))) + (and x (boundp x) (not (get x 'tramp-suppress-trace)) + (cons x 'tramp-reporter-dump-variable))) (append (mapcar #'intern (all-completions "tramp-" obarray #'boundp)) - ;; Non-tramp variables of interest. + ;; Non-Tramp variables of interest. '(shell-prompt-pattern backup-by-copying backup-by-copying-when-linked @@ -552,11 +551,11 @@ buffer in your bug report. (string-match-p (concat "[^" (bound-and-true-p mm-7bit-chars) "]") val)) (with-current-buffer reporter-eval-buffer - (set - varsym - (format - "(decode-coding-string (base64-decode-string \"%s\") 'raw-text)" - (base64-encode-string (encode-coding-string val 'raw-text))))))) + (set varsym + `(decode-coding-string + (base64-decode-string + ,(base64-encode-string (encode-coding-string val 'raw-text))) + 'raw-text))))) ;; Dump variable. (reporter-dump-variable varsym mailbuf) |