diff options
| author | Eli Zaretskii | 2012-01-28 12:49:17 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2012-01-28 12:49:17 +0200 |
| commit | 4d4ec1f815374dbb14907029cbfdf0c80148a032 (patch) | |
| tree | fedba973ecaf63b329edc0241410981477e0c2a2 | |
| parent | 7c188927ac3d28dfa2fa79e9dd25de85627b505b (diff) | |
| download | emacs-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/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2012-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 | |||
| 1 | 2012-01-28 Drew Adams <drew.adams@oracle.com> | 6 | 2012-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) |