diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2018-11-10 16:03:12 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2018-11-10 16:03:12 +0100 |
| commit | a062fc4137ff195fe269076cda07a61c2e1a8012 (patch) | |
| tree | c1ca66b9f322fd9db69baaa1e0c47444931527d7 /lisp/net/tramp-cmds.el | |
| parent | 55f3f21b39389263d707b091d7e1b45d295a149c (diff) | |
| download | emacs-a062fc4137ff195fe269076cda07a61c2e1a8012.tar.gz emacs-a062fc4137ff195fe269076cda07a61c2e1a8012.tar.bz2 emacs-a062fc4137ff195fe269076cda07a61c2e1a8012.zip | |
Provide branch information for both Emacs and Tramp (Bug#33328)
* doc/lispref/intro.texi (Version Info):
Document `emacs-repository-version' and `emacs-repository-branch'.
* etc/NEWS: Mention `emacs-repository-branch'.
* lisp/loadup.el: Initialize `emacs-repository-branch'.
* lisp/version.el (emacs-repository-branch): New variable.
(emacs-repository-branch-git, emacs-repository-get-branch):
New defuns.
* lisp/mail/emacsbug.el (report-emacs-bug):
Insert `emacs-repository-branch'.
* lisp/net/tramp.el (tramp-get-local-gid):
Use `group-name' if available.
(tramp-debug-message):
* lisp/net/tramp-cmds.el (tramp-bug): Report also
`tramp-repository-branch' and `tramp-repository-version'.
* lisp/net/trampver.el (tramp-repository-branch)
(tramp-repository-version): New defconst.
(tramp-repository-get-version): Remove.
Diffstat (limited to 'lisp/net/tramp-cmds.el')
| -rw-r--r-- | lisp/net/tramp-cmds.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el index 456300e7662..3c8f182ae97 100644 --- a/lisp/net/tramp-cmds.el +++ b/lisp/net/tramp-cmds.el @@ -198,8 +198,9 @@ This includes password cache, file cache, connection cache, buffers." ;; In rare cases, it could contain the password. So we make it nil. tramp-password-save-function) (reporter-submit-bug-report - tramp-bug-report-address ; to-address - (format "tramp (%s)" tramp-version) ; package name and version + tramp-bug-report-address ; to-address + (format "tramp (%s %s/%s)" ; package name and version + tramp-version tramp-repository-branch tramp-repository-version) (sort (delq nil (mapcar (lambda (x) |