From 8d8d198f468e46ab630b34eb9b65d012937fd296 Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 12 Mar 2005 23:41:15 +0000 Subject: [PATCH] * riece.el (riece-submit-bug-report): Insert content of riece-debug-buffer. --- lisp/ChangeLog | 2 ++ lisp/riece.el | 4 ++++ 2 files changed, 6 insertions(+) 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 * 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") -- 1.7.10.4