* mail/emacsbug.el (report-emacs-bug): Catch error that x-server-vendor

  and x-server-version may throw.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e4708bedc53a759c42096c96bed2c0cc5e105bd6..532c066e2895492ee3cadd44d89d46b763372265 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-11-23  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
+
+       * mail/emacsbug.el (report-emacs-bug): Catch error that x-server-vendor
+       and x-server-version may throw.
+
 2004-11-23  Kim F. Storm  <storm@cua.dk>
 
        * subr.el (substitute-key-definition-key): Optimize.  Don't

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index c5579b3c0db99946e2e5e149c98def01bf56e636..5daa9a2d4aab2e98c4224422e222f1a6d10b4dad 100644 (file)
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -129,8 +129,10 @@ usually do not have translators to read other languages for them.\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"))
+       (condition-case nil
+           (insert "Distributor `" (x-server-vendor) "', version "
+                   (mapconcat 'number-to-string (x-server-version) ".") "\n")
+         (error t)))
     (if (and system-configuration-options
             (not (equal system-configuration-options "")))
        (insert "configured using `configure "