From e423fd8515cf1f515f5f36bef0d6e4dfa0f6d769 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 4 Feb 2005 03:27:50 +0000 Subject: [PATCH] * riece-server.el (riece-close-server-process): Switch to process buffer when running riece-after-close-hook. --- lisp/ChangeLog | 3 +++ lisp/riece-server.el | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6b42402..cd0b04e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2005-02-04 Daiki Ueno + * riece-server.el (riece-close-server-process): Switch to process + buffer when running riece-after-close-hook. + * COMPILE (riece-icons): Add riece-command-quit and riece-submit-bug-report. diff --git a/lisp/riece-server.el b/lisp/riece-server.el index 34c6e3d..39c1610 100644 --- a/lisp/riece-server.el +++ b/lisp/riece-server.el @@ -266,7 +266,8 @@ the `riece-server-keyword-map' variable." (erase-buffer))) (defun riece-close-server-process (process) - (run-hooks 'riece-after-close-hook) + (with-current-buffer (process-buffer process) + (run-hooks 'riece-after-close-hook)) (kill-buffer (process-buffer process)) (setq riece-server-process-alist (delq (rassq process riece-server-process-alist) -- 1.7.10.4