From: Kim F. Storm <storm@cua.dk>
Date: Thu, 21 Jul 2005 08:56:04 +0000 (+0000)
Subject: (report-emacs-bug): Request that backtraces are
X-Git-Tag: emacs-pretest-22.0.90~7945
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3a7f4c189c171c9f72135b785cb3df6ce6e35024;p=emacs.git

(report-emacs-bug): Request that backtraces are
included when reporting an emacs crash, and tell about the DEBUG file.
---

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index bc6060f40c4..2eea86e7a4a 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -125,9 +125,18 @@ usually do not have translators to read other languages for them.\n\n")
 
     (insert "\n\n")
     (setq user-point (point))
-    (insert "\n\n\n")
+    (insert "\n\n")
+
+    (insert "If emacs crashed, and you have the emacs process in the gdb debugger,\n"
+	    "please include the output from the following gdb commands:\n"
+	    "    `bt full' and `xbacktrace'.\n")
+
+    (let ((debug-file (expand-file-name "DEBUG" data-directory)))
+      (if (file-readable-p debug-file)
+	(insert "If you would like to further debug the crash, please read the file\n"
+		debug-file " for instructions.\n")))
 
-    (insert "In " (emacs-version) "\n")
+    (insert "\n\nIn " (emacs-version) "\n")
     (if (fboundp 'x-server-vendor)
 	(condition-case nil
 	    (insert "X server distributor `" (x-server-vendor) "', version "