Add riece-debug-standard-output-buffer to riece-buffer-list.
authorDaiki Ueno <ueno@unixuser.org>
Wed, 2 Feb 2005 05:01:46 +0000 (05:01 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Wed, 2 Feb 2005 05:01:46 +0000 (05:01 +0000)
lisp/riece-debug.el

index fb422a5..5473d1f 100644 (file)
 
 ;;; Code:
 
 
 ;;; 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
 (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)
   (save-excursion
     (set-buffer riece-debug-standard-output-buffer)
     (buffer-disable-undo)