* riece-debug.el: Suppress byte-compile warnings;

 `save-excursion' defeated by `set-buffer'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1efef88..c3272bb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2010-09-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * 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  <ueno@unixuser.org>
 
        * riece-globals.el (riece-mode-line-buffer-identification)

diff --git a/lisp/riece-debug.el b/lisp/riece-debug.el
index c2ba3c6..0cad7f4 100644 (file)
--- 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)))