From 826060119507d6fa0e22c4344863fb776759597f Mon Sep 17 00:00:00 2001 From: TAKAHASHI Kaoru Date: Wed, 1 Sep 2010 14:08:31 +0900 Subject: [PATCH] * riece-debug.el: Suppress byte-compile warnings; `save-excursion' defeated by `set-buffer'. --- lisp/ChangeLog | 6 ++++++ lisp/riece-debug.el | 9 +++------ 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1efef88..c3272bb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2010-09-01 TAKAHASHI Kaoru + + * riece-debug.el (riece-debug-1) + (riece-debug-reset-standard-output, riece-ignore-errors): Suppress + byte-compile warnings; `save-excursion' defeated by `set-buffer'. + 2010-05-28 Daiki Ueno * riece-globals.el (riece-mode-line-buffer-identification) diff --git a/lisp/riece-debug.el b/lisp/riece-debug.el index c2ba3c6..0cad7f4 100644 --- a/lisp/riece-debug.el +++ b/lisp/riece-debug.el @@ -29,8 +29,7 @@ (defun riece-debug-1 (message detail) (message "riece-debug: %s" message) - (save-excursion - (set-buffer riece-debug-buffer) + (with-current-buffer riece-debug-buffer (goto-char (point-max)) (let ((time (format-time-string "%Y-%m-%d:%H:%M:%S"))) (if detail @@ -45,8 +44,7 @@ If the optional 2nd argument DETAIL is specified, it is stored into (defun riece-debug-reset-standard-output () "Reset `riece-temp-buffer' to be used as `standard-output'." - (save-excursion - (set-buffer riece-temp-buffer) + (with-current-buffer riece-temp-buffer (buffer-disable-undo) (erase-buffer))) @@ -72,8 +70,7 @@ backtrace to standard-output." ,@body) (error (if riece-debug - (save-excursion - (set-buffer riece-temp-buffer) + (with-current-buffer riece-temp-buffer (goto-char (point-min)) (if (re-search-forward "^ signal(" nil t) (delete-region (point-min) (match-beginning 0))) -- 2.25.1