Mercurial > emacs
comparison lisp/mail/emacsbug.el @ 64555:8a35276b0990
(report-emacs-bug): Request that backtraces are
included when reporting an emacs crash, and tell about the DEBUG file.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Thu, 21 Jul 2005 08:56:04 +0000 |
parents | 18a818a2ee7c |
children | fafd692d1e40 187d6a1f84f7 |
comparison
equal
deleted
inserted
replaced
64554:c5775f02760e | 64555:8a35276b0990 |
---|---|
123 (setq report-emacs-bug-text-prompt | 123 (setq report-emacs-bug-text-prompt |
124 (buffer-substring prompt-beg-point (point))) | 124 (buffer-substring prompt-beg-point (point))) |
125 | 125 |
126 (insert "\n\n") | 126 (insert "\n\n") |
127 (setq user-point (point)) | 127 (setq user-point (point)) |
128 (insert "\n\n\n") | 128 (insert "\n\n") |
129 | 129 |
130 (insert "In " (emacs-version) "\n") | 130 (insert "If emacs crashed, and you have the emacs process in the gdb debugger,\n" |
131 "please include the output from the following gdb commands:\n" | |
132 " `bt full' and `xbacktrace'.\n") | |
133 | |
134 (let ((debug-file (expand-file-name "DEBUG" data-directory))) | |
135 (if (file-readable-p debug-file) | |
136 (insert "If you would like to further debug the crash, please read the file\n" | |
137 debug-file " for instructions.\n"))) | |
138 | |
139 (insert "\n\nIn " (emacs-version) "\n") | |
131 (if (fboundp 'x-server-vendor) | 140 (if (fboundp 'x-server-vendor) |
132 (condition-case nil | 141 (condition-case nil |
133 (insert "X server distributor `" (x-server-vendor) "', version " | 142 (insert "X server distributor `" (x-server-vendor) "', version " |
134 (mapconcat 'number-to-string (x-server-version) ".") "\n") | 143 (mapconcat 'number-to-string (x-server-version) ".") "\n") |
135 (error t))) | 144 (error t))) |