byte-compile warnings; `save-excursion' defeated by `set-buffer'.
+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)
(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))
(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)))