aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2012-01-28 12:49:17 +0200
committerEli Zaretskii2012-01-28 12:49:17 +0200
commit4d4ec1f815374dbb14907029cbfdf0c80148a032 (patch)
treefedba973ecaf63b329edc0241410981477e0c2a2
parent7c188927ac3d28dfa2fa79e9dd25de85627b505b (diff)
downloademacs-4d4ec1f815374dbb14907029cbfdf0c80148a032.tar.gz
emacs-4d4ec1f815374dbb14907029cbfdf0c80148a032.zip
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.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/mail/emacsbug.el9
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 @@
12012-01-28 Eli Zaretskii <eliz@gnu.org>
2
3 * mail/emacsbug.el (report-emacs-bug): Fill the potentially long
4 line that displays system-configuration-options. (Bug#9924)
5
12012-01-28 Drew Adams <drew.adams@oracle.com> 62012-01-28 Drew Adams <drew.adams@oracle.com>
2 7
3 * descr-text.el (describe-char): Show information about POS, in 8 * 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")))
231 "', version " 231 "', version "
232 (mapconcat 'number-to-string (x-server-version) ".") "\n") 232 (mapconcat 'number-to-string (x-server-version) ".") "\n")
233 (error t))) 233 (error t)))
234 (if (and system-configuration-options 234 (when (and system-configuration-options
235 (not (equal system-configuration-options ""))) 235 (not (equal system-configuration-options "")))
236 (insert "configured using `configure " 236 (insert "Configured using:\n `configure "
237 system-configuration-options "'\n\n")) 237 system-configuration-options "'\n\n")
238 (fill-region (line-beginning-position -1) (point)))
238 (insert "Important settings:\n") 239 (insert "Important settings:\n")
239 (mapc 240 (mapc
240 (lambda (var) 241 (lambda (var)