diff options
Diffstat (limited to 'lisp/mail/emacsbug.el')
| -rw-r--r-- | lisp/mail/emacsbug.el | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 8e28973c43f..ef5e86a6c8b 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -162,6 +162,14 @@ Prompts for bug subject. Leaves you in a mail buffer." (setq message-end-point (with-current-buffer (messages-buffer) (point-max-marker))) + (condition-case nil + ;; For the novice user make sure there's always enough space for + ;; the mail and the warnings buffer on this frame (Bug#10873). + (unless report-emacs-bug-no-explanations + (delete-other-windows) + (set-window-dedicated-p nil nil) + (set-frame-parameter nil 'unsplittable nil)) + (error nil)) (compose-mail report-emacs-bug-address topic) ;; The rest of this does not execute if the user was asked to ;; confirm and said no. @@ -234,7 +242,11 @@ usually do not have translators for other languages.\n\n"))) (let ((txt (delete-and-extract-region (1+ user-point) (point)))) (insert (propertize "\n" 'display txt))) - (insert "\n\nIn " (emacs-version) "\n") + (insert "\n\nIn " (emacs-version)) + (if emacs-build-system + (insert " built on " emacs-build-system)) + (insert "\n") + (if (stringp emacs-repository-version) (insert "Repository revision: " emacs-repository-version "\n")) (if (fboundp 'x-server-vendor) |