From 5fc5770b112d289c0e1319a1dcc48aafa003aee2 Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 27 Aug 2005 05:25:55 +0000 Subject: [PATCH] Support re-insinuate. --- lisp/riece-xface.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/riece-xface.el b/lisp/riece-xface.el index b94b006..7e4bb78 100644 --- a/lisp/riece-xface.el +++ b/lisp/riece-xface.el @@ -68,15 +68,19 @@ 'riece-xface-update-user-list-buffer t t)) (defun riece-xface-insinuate () + (if riece-user-list-buffer + (with-current-buffer riece-user-list-buffer + (riece-xface-user-list-mode-hook))) (add-hook 'riece-user-list-mode-hook 'riece-xface-user-list-mode-hook)) (defun riece-xface-uninstall () + (if riece-user-list-buffer + (with-current-buffer riece-user-list-buffer + (remove-hook 'riece-update-buffer-functions + 'riece-xface-update-user-list-buffer t))) (remove-hook 'riece-user-list-mode-hook - 'riece-xface-user-list-mode-hook) - (with-current-buffer riece-user-list-buffer - (remove-hook 'riece-update-buffer-functions - 'riece-xface-update-user-list-buffer t))) + 'riece-xface-user-list-mode-hook)) (defun riece-xface-enable () (setq riece-xface-enabled t) -- 1.7.10.4