125 |
|
|
126 |
(insert "\n\n") |
(insert "\n\n") |
127 |
(setq user-point (point)) |
(setq user-point (point)) |
128 |
(insert "\n\n\n") |
(insert "\n\n") |
129 |
|
|
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 "In " (emacs-version) "\n") |
(insert "\n\nIn " (emacs-version) "\n") |
140 |
(if (fboundp 'x-server-vendor) |
(if (fboundp 'x-server-vendor) |
141 |
(condition-case nil |
(condition-case nil |
142 |
(insert "X server distributor `" (x-server-vendor) "', version " |
(insert "X server distributor `" (x-server-vendor) "', version " |