From: ueno <ueno>
Date: Wed, 2 Feb 2005 05:01:46 +0000 (+0000)
Subject: Add riece-debug-standard-output-buffer to riece-buffer-list.
X-Git-Tag: riece-1_0_7~69
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dc28481aedbf1378bbb379b97322d44a034f894d;p=elisp%2Friece.git

Add riece-debug-standard-output-buffer to riece-buffer-list.
---

diff --git a/lisp/riece-debug.el b/lisp/riece-debug.el
index fb422a5..5473d1f 100644
--- a/lisp/riece-debug.el
+++ b/lisp/riece-debug.el
@@ -24,12 +24,17 @@
 
 ;;; Code:
 
+(require 'riece-globals)
+
 (defvar riece-debug-standard-output-buffer nil)
 
 (defun riece-debug-reset-standard-output ()
   (unless riece-debug-standard-output-buffer
     (setq riece-debug-standard-output-buffer
-	  (generate-new-buffer " *riece-debug-standard-output*")))
+	  (generate-new-buffer " *riece-debug-standard-output*")
+	  riece-buffer-list
+	  (cons riece-debug-standard-output-buffer
+		riece-buffer-list)))
   (save-excursion
     (set-buffer riece-debug-standard-output-buffer)
     (buffer-disable-undo)