From ebf6b1bc525738877fc3b67f32631843190c58eb Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 1 Jun 2004 09:30:31 +0000 Subject: [PATCH] * riece-button.el (riece-button-disable): On XEmacs, BUFFER arg of widget-map-buttons is ignored. --- lisp/ChangeLog | 5 +++++ lisp/riece-button.el | 16 +++++++++------- 2 files changed, 14 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b937469..b454ec3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2004-06-01 Daiki Ueno + * riece-button.el (riece-button-disable): On XEmacs, BUFFER arg of + widget-map-buttons is ignored. + +2004-06-01 Daiki Ueno + * riece-unread.el (riece-modeline-unread-face): New face; setup the properties are inherited from 'modeline. * riece-history.el (riece-modeline-history-face): New face; diff --git a/lisp/riece-button.el b/lisp/riece-button.el index f92eeb7..a3b915c 100644 --- a/lisp/riece-button.el +++ b/lisp/riece-button.el @@ -241,13 +241,15 @@ This function is used as a callback for a channel button." (defun riece-button-disable () (setq riece-button-enabled nil) - (let ((pointer riece-buffer-list)) - (while pointer - (widget-map-buttons - (lambda (widget maparg) - (widget-leave-text widget)) - (car pointer)) - (setq pointer (cdr pointer))))) + (save-excursion + (let ((pointer riece-buffer-list)) + (while pointer + ;; On XEmacs, BUFFER arg of widget-map-buttons is ignored. + (set-buffer (car pointer)) + (widget-map-buttons + (lambda (widget maparg) + (widget-leave-text widget))) + (setq pointer (cdr pointer)))))) (provide 'riece-button) -- 1.7.10.4