* 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 d731c8a9daa8ec97e943330a4376e3fafc94fa45..072a498ed701472ca15cf7e6a29a2ef675fbc8b8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-10-28  Jan Dj\e,Ad\e(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.

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index e93f76c3042607fdc18a772e4fe683df5224b134..c5579b3c0db99946e2e5e149c98def01bf56e636 100644 (file)
--- 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 "