* riece.el (riece-submit-bug-report): Insert content of riece-debug-buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8e0b422..ed51e1e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,8 @@
 2005-03-12  Daiki Ueno  <ueno@unixuser.org>
 
        * riece.el (riece-buffer-alist): Init riece-debug-buffer.
 2005-03-12  Daiki Ueno  <ueno@unixuser.org>
 
        * riece.el (riece-buffer-alist): Init riece-debug-buffer.

+       (riece-submit-bug-report): Insert content of riece-debug-buffer.
+

        * riece-globals.el (riece-debug-buffer): New variable.
        * riece-filter.el (riece-sentinel): Use riece-debug.
        * riece-display.el (riece-channel-buffer-name): Use riece-debug.
        * riece-globals.el (riece-debug-buffer): New variable.
        * riece-filter.el (riece-sentinel): Use riece-debug.
        * riece-display.el (riece-channel-buffer-name): Use riece-debug.

diff --git a/lisp/riece.el b/lisp/riece.el
index a1d5302..5b0105f 100644 (file)
--- a/lisp/riece.el
+++ b/lisp/riece.el
@@ -623,6 +623,10 @@ are familiar with the debugger, to get a lisp back-trace.")
                        (buffer-substring (point) (point-max)))
                    "(closed server)"))
          (setq pointer (cdr pointer))))
                        (buffer-substring (point) (point-max)))
                    "(closed server)"))
          (setq pointer (cdr pointer))))

+      (insert "\n\nRecent debug messages:\n"
+             "-----------------------------------\n"
+             (with-current-buffer riece-debug-buffer
+               (buffer-string)))

       ;; Insert recent keystrokes.
       (insert "\n\nRecent keystrokes:\n"
              "-----------------\n\n")
       ;; Insert recent keystrokes.
       (insert "\n\nRecent keystrokes:\n"
              "-----------------\n\n")