From 852fb0cf86c71e00618890a8d04b321c908d9bf0 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 8 Oct 2003 19:20:29 +0000 Subject: [PATCH] * riece-server.el (riece-quit-server-process): Call riece-close-server-process instead of kill-process. --- lisp/ChangeLog | 5 +++++ lisp/riece-server.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7fabcd4..43daee8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-10-08 Daiki Ueno + + * riece-server.el (riece-quit-server-process): Call + riece-close-server-process instead of kill-process. + 2003-10-07 Daiki Ueno * riece-display.el (riece-channel-buffer-name): Check whether diff --git a/lisp/riece-server.el b/lisp/riece-server.el index 0182813..89e9237 100644 --- a/lisp/riece-server.el +++ b/lisp/riece-server.el @@ -211,7 +211,7 @@ the `riece-server-keyword-map' variable." (run-at-time riece-quit-timeout nil (lambda (process) (if (memq process riece-process-list) - (kill-process (process-buffer process)))) + (riece-close-server-process process))) process) (riece-process-send-string process (if message -- 1.7.10.4