From 4d4ec1f815374dbb14907029cbfdf0c80148a032 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 28 Jan 2012 12:49:17 +0200 Subject: [PATCH] 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. --- lisp/ChangeLog | 5 +++++ lisp/mail/emacsbug.el | 9 +++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e6c2b4ca226..14133949c7d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-01-28 Eli Zaretskii + + * mail/emacsbug.el (report-emacs-bug): Fill the potentially long + line that displays system-configuration-options. (Bug#9924) + 2012-01-28 Drew Adams * descr-text.el (describe-char): Show information about POS, in diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 0e30727d483..29ce1881f5d 100644 --- 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) -- 2.11.4.GIT