2010-09-12 TAKAHASHI Kaoru <kaoru@kaisei.org>
+ * riece-button.el (riece-identity-button-popup-menu)
+ (riece-identity-button-click): Suppress byte-compile warnings;
+ `save-excursion' defeated by `set-buffer'.
+
* riece-async.el (riece-async-open-network-stream): Suppress
byte-compile warnings; `save-excursion' defeated by `set-buffer'.
(point (point))
window)
(unwind-protect
- (save-excursion
- (set-buffer (riece-event-buffer event))
+ (with-current-buffer (riece-event-buffer event)
(goto-char (riece-event-point event))
(widget-button-click event))
;; riece-button-switch-to-identity changes window-configuration
(defun riece-identity-button-popup-menu (event)
"Popup the menu for identity buttons."
(interactive "e")
- (save-excursion
- (set-buffer (riece-event-buffer event))
+ (with-current-buffer (riece-event-buffer event)
(goto-char (riece-event-point event))
(riece-popup-menu-popup
(if (riece-channel-p (riece-identity-prefix