From c09ad24a6711e4f1f3a0e25aca0548d5d5314e6b Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 2 Feb 2005 08:23:56 +0000 Subject: [PATCH] Fixed. --- lisp/riece-debug.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/riece-debug.el b/lisp/riece-debug.el index d11253a..9209bd9 100644 --- a/lisp/riece-debug.el +++ b/lisp/riece-debug.el @@ -26,11 +26,9 @@ (require 'riece-globals) -(defvar riece-debug-standard-output-buffer riece-temp-buffer) - (defun riece-debug-reset-standard-output () (save-excursion - (set-buffer riece-debug-standard-output-buffer) + (set-buffer riece-temp-buffer) (buffer-disable-undo) (erase-buffer))) @@ -38,7 +36,7 @@ `(unwind-protect (progn ,@body) (riece-debug-reset-standard-output) - (let ((standard-output riece-debug-standard-output-buffer)) + (let ((standard-output riece-temp-buffer)) (backtrace)))) (put 'riece-debug-with-backtrace 'lisp-indent-function 0) @@ -52,7 +50,7 @@ (error (if riece-debug (save-excursion - (set-buffer riece-debug-standard-output-buffer) + (set-buffer riece-temp-buffer) (if (re-search-forward "^ signal(" nil t) (delete-region (point-min) (match-beginning 0))) (message "Error in `%s': %S\n%s" ,location error (buffer-string)))) -- 1.7.10.4