From: Jan Djärv Date: Thu, 28 Oct 2004 07:37:02 +0000 (+0000) Subject: * mail/emacsbug.el (report-emacs-bug): Insert x-server-vendor X-Git-Tag: ttn-vms-21-2-B4~4340 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f4982064348329e9d22e68ee7d057d58b99f10fb;p=emacs.git * mail/emacsbug.el (report-emacs-bug): Insert x-server-vendor and x-server-version in bug report. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d731c8a9daa..072a498ed70 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-10-28 Jan Dj,Ad(Brv + + * mail/emacsbug.el (report-emacs-bug): Insert x-server-vendor + and x-server-version in bug report. + 2004-10-28 Daniel Pfeiffer * files.el (set-auto-mode-0): New function. diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index e93f76c3042..c5579b3c0db 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -128,6 +128,9 @@ usually do not have translators to read other languages for them.\n\n") (insert "\n\n\n") (insert "In " (emacs-version) "\n") + (if (fboundp 'x-server-vendor) + (insert "Distributor `" (x-server-vendor) "', version " + (mapconcat 'number-to-string (x-server-version) ".") "\n")) (if (and system-configuration-options (not (equal system-configuration-options ""))) (insert "configured using `configure "