changeset 57768:84cd4892a56e

* mail/emacsbug.el (report-emacs-bug): Insert x-server-vendor and x-server-version in bug report.
author Jan Djärv <jan.h.d@swipnet.se>
date Thu, 28 Oct 2004 07:37:02 +0000
parents 241be2c6b67a
children e663f6b659a6
files lisp/ChangeLog lisp/mail/emacsbug.el
diffstat 2 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Oct 28 06:47:35 2004 +0000
+++ b/lisp/ChangeLog	Thu Oct 28 07:37:02 2004 +0000
@@ -1,3 +1,8 @@
+2004-10-28  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
+
+	* mail/emacsbug.el (report-emacs-bug): Insert x-server-vendor
+	and x-server-version in bug report.
+
 2004-10-28  Daniel Pfeiffer  <occitan@esperanto.org>
 
 	* files.el (set-auto-mode-0): New function.
--- a/lisp/mail/emacsbug.el	Thu Oct 28 06:47:35 2004 +0000
+++ b/lisp/mail/emacsbug.el	Thu Oct 28 07:37:02 2004 +0000
@@ -128,6 +128,9 @@
     (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 "