[Emacs-diffs] /srv/bzr/emacs/trunk r106976: Fix bug #9924 with long display of system-configuration-options in emacsbug.el.

[Eli Zaretskii]

------------------------------------------------------------
revno: 106976
fixes bug(s): http://debbugs.gnu.org/9924
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Sat 2012-01-28 12:49:17 +0200
message:
  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.
modified:
  lisp/ChangeLog
  lisp/mail/emacsbug.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-01-28 10:27:28 +0000
+++ b/lisp/ChangeLog    2012-01-28 10:49:17 +0000
@@ -1,3 +1,8 @@
+2012-01-28  Eli Zaretskii  <address@hidden>
+
+       * mail/emacsbug.el (report-emacs-bug): Fill the potentially long
+       line that displays system-configuration-options.  (Bug#9924)
+
 2012-01-28  Drew Adams  <address@hidden>
 
        * descr-text.el (describe-char): Show information about POS, in

=== modified file 'lisp/mail/emacsbug.el'
--- a/lisp/mail/emacsbug.el     2012-01-19 07:21:25 +0000
+++ b/lisp/mail/emacsbug.el     2012-01-28 10:49:17 +0000
@@ -231,10 +231,11 @@
                     "', 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)