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.

64554:c5775f02760e

    (setq report-emacs-bug-text-prompt
	  (buffer-substring prompt-beg-point (point)))

    (insert "\n\n")
    (setq user-point (point))
    (insert "\n\n\n")

    (insert "In " (emacs-version) "\n")
    (if (fboundp 'x-server-vendor)
	(condition-case nil
	    (insert "X server distributor `" (x-server-vendor) "', version "
		    (mapconcat 'number-to-string (x-server-version) ".") "\n")
	  (error t)))

64555:8a35276b0990

    (setq report-emacs-bug-text-prompt
	  (buffer-substring prompt-beg-point (point)))

    (insert "\n\n")
    (setq user-point (point))
    (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 "\n\nIn " (emacs-version) "\n")
    (if (fboundp 'x-server-vendor)
	(condition-case nil
	    (insert "X server distributor `" (x-server-vendor) "', version "
		    (mapconcat 'number-to-string (x-server-version) ".") "\n")
	  (error t)))