From c00142b182f2499eafaaa14026fe520cb82d0422 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 6 May 2006 14:50:58 +0000 Subject: [PATCH] * riece-commands.el (riece-command-close-server): Cause error on non-existent server process. --- lisp/ChangeLog | 5 +++++ lisp/riece-commands.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a251752..28c61e0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-05-06 Yoichi NAKAYAMA + + * riece-commands.el (riece-command-close-server): Cause error + on non-existent server process. + 2006-04-26 Daiki Ueno * riece-skk-kakutei.el: Declare some variables and autoload diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el index dcc97b1..9aaec0b 100644 --- a/lisp/riece-commands.el +++ b/lisp/riece-commands.el @@ -722,7 +722,10 @@ If prefix argument ARG is non-nil, toggle frozen status." (if current-prefix-arg (read-string "Message: ") riece-quit-message))) - (riece-quit-server-process (riece-server-process server-name) message)) + (let ((process (riece-server-process server-name))) + (unless process + (error "%s is not opened" server-name)) + (riece-quit-server-process process message))) (defun riece-command-universal-server-name-argument () (interactive) -- 1.7.10.4