From: ueno <ueno>
Date: Sat, 12 Mar 2005 23:41:15 +0000 (+0000)
Subject: * riece.el (riece-submit-bug-report): Insert content of riece-debug-buffer.
X-Git-Tag: channel-coding-mergepoint~32
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8d8d198f468e46ab630b34eb9b65d012937fd296;p=elisp%2Friece.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8e0b422..ed51e1e 100644
--- 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.
+	(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.
diff --git a/lisp/riece.el b/lisp/riece.el
index a1d5302..5b0105f 100644
--- 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))))
+      (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")