Fix bug #9924 with long display of system-configuration-options in emacsbug.el.

 lisp/mail/emacsbug.el (report-emacs-bug): Fill the potentially long
 line that displays system-configuration-options.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e6c2b4ca2263bcb832c67116552b2bbb360a648d..14133949c7db4939fdd4482c7c4689d601b62a30 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-01-28  Eli Zaretskii  <eliz@gnu.org>
+
+       * mail/emacsbug.el (report-emacs-bug): Fill the potentially long
+       line that displays system-configuration-options.  (Bug#9924)
+
 2012-01-28  Drew Adams  <drew.adams@oracle.com>
 
        * descr-text.el (describe-char): Show information about POS, in

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 0e30727d48307d8e9d77ebf12678c6d2cfcc3975..29ce1881f5d333d3a21e975739ea34d122cbaf75 100644 (file)
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -231,10 +231,11 @@ usually do not have translators for other languages.\n\n")))
                     "', 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 "
-               system-configuration-options "'\n\n"))
+    (when (and system-configuration-options
+              (not (equal system-configuration-options "")))
+      (insert "Configured using:\n `configure "
+             system-configuration-options "'\n\n")
+      (fill-region (line-beginning-position -1) (point)))
     (insert "Important settings:\n")
     (mapc
      (lambda (var)