* riece-debug.el (riece-debug-standard-output-buffer): Use

riece-temp-buffer.
* riece.el: Add riece-temp-buffer.
* riece-globals.el (riece-temp-buffer): New variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3f8c2f1..5e88cc8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2005-02-02  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-debug.el (riece-debug-standard-output-buffer): Use
+       riece-temp-buffer.
+       * riece.el: Add riece-temp-buffer.
+       * riece-globals.el (riece-temp-buffer): New variable.
+

 2005-02-02  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-signal.el (riece-emit-signal): Use riece-ignore-errors.
 2005-02-02  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-signal.el (riece-emit-signal): Use riece-ignore-errors.

diff --git a/lisp/riece-debug.el b/lisp/riece-debug.el
index 2a301a4..805d3f7 100644 (file)
--- a/lisp/riece-debug.el
+++ b/lisp/riece-debug.el
@@ -26,16 +26,13 @@
 
 (require 'riece-globals)
 
 
 (require 'riece-globals)
 

-(defvar riece-debug-standard-output-buffer nil)
+(defvar riece-debug-standard-output-buffer riece-temp-buffer)

 
 (defun riece-debug-reset-standard-output ()
 
 (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*")))

   (save-excursion
     (set-buffer riece-debug-standard-output-buffer)
     (buffer-disable-undo)
   (save-excursion
     (set-buffer riece-debug-standard-output-buffer)
     (buffer-disable-undo)

-    (erase-buffer)))
+    (erase-buffer))

 
 (defmacro riece-debug-with-backtrace (&rest body)
   `(unwind-protect
 
 (defmacro riece-debug-with-backtrace (&rest body)
   `(unwind-protect

diff --git a/lisp/riece-globals.el b/lisp/riece-globals.el
index 676daca..a4addfa 100644 (file)
--- a/lisp/riece-globals.el
+++ b/lisp/riece-globals.el
@@ -172,9 +172,10 @@ user's status on the current channel.")
   "Buffer for channel list.")
 (defvar riece-user-list-buffer nil
   "Buffer for user list.")
   "Buffer for channel list.")
 (defvar riece-user-list-buffer nil
   "Buffer for user list.")

-

 (defvar riece-channel-buffer nil
   "Buffer for messages arrived in the current channel.")
 (defvar riece-channel-buffer nil
   "Buffer for messages arrived in the current channel.")

+(defvar riece-temp-buffer nil
+  "Buffer for temporally use.")

 
 (defvar riece-buffer-list nil)
 (defvar riece-overriding-server-name nil)
 
 (defvar riece-buffer-list nil)
 (defvar riece-overriding-server-name nil)

diff --git a/lisp/riece.el b/lisp/riece.el
index aece645..3addde5 100644 (file)
--- a/lisp/riece.el
+++ b/lisp/riece.el
@@ -58,7 +58,8 @@
     (riece-dialogue-buffer "*Dialogue*" riece-dialogue-mode)
     (riece-others-buffer "*Others*" riece-others-mode)
     (riece-channel-list-buffer "*Channels*" riece-channel-list-mode)
     (riece-dialogue-buffer "*Dialogue*" riece-dialogue-mode)
     (riece-others-buffer "*Others*" riece-others-mode)
     (riece-channel-list-buffer "*Channels*" riece-channel-list-mode)

-    (riece-user-list-buffer " *Users*" riece-user-list-mode)))
+    (riece-user-list-buffer " *Users*" riece-user-list-mode)
+    (riece-temp-buffer " *Temp*"))

 
 (defvar riece-shrink-buffer-idle-timer nil
   "Timer object to periodically shrink channel buffers.")
 
 (defvar riece-shrink-buffer-idle-timer nil
   "Timer object to periodically shrink channel buffers.")