* riece-doctor.el (riece-doctor-after-privmsg-hook): Suppress

byte-compile warnings; `save-excursion' defeated by `set-buffer'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c3272bb..b21996d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-04  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * riece-doctor.el (riece-doctor-after-privmsg-hook): Suppress
+       byte-compile warnings; `save-excursion' defeated by `set-buffer'.
+
 2010-09-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * riece-debug.el (riece-debug-1)

diff --git a/lisp/riece-doctor.el b/lisp/riece-doctor.el
index ee7068b..0c75ace 100644 (file)
--- a/lisp/riece-doctor.el
+++ b/lisp/riece-doctor.el
@@ -81,9 +81,8 @@
                (riece-doctor-reply
                 (car targets)
                 (format "%s: You are already talking with me." user))
-             (save-excursion
-               (set-buffer (get-buffer-create
-                            (riece-doctor-buffer-name user)))
+             (with-current-buffer (get-buffer-create
+                                   (riece-doctor-buffer-name user))
                (erase-buffer)
                (doctor-mode))
              (setq riece-doctor-patients (cons user riece-doctor-patients))
@@ -105,8 +104,7 @@ Please, describe your problems."
                   (format "%s: Good bye." user))))
            (if (riece-identity-member user riece-doctor-patients t)
                (let (string)
-                 (save-excursion
-                   (set-buffer (get-buffer (riece-doctor-buffer-name user)))
+                 (with-current-buffer (riece-doctor-buffer-name user)
                    (goto-char (point-max))
                    (insert message "\n")
                    (let ((point (point)))