From 4d1e27fe8ac70af258aea42d44b0f0fa6cece605 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 19 Oct 2003 07:34:13 +0000 Subject: [PATCH] * riece-server.el (riece-server-process-opened): Return t. --- lisp/ChangeLog | 2 ++ lisp/riece-server.el | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d05b1d3..7563db3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2003-10-19 Daiki Ueno + * riece-server.el (riece-server-process-opened): Return t. + * riece.el (riece-dialogue-mode-map): Bind "p" to riece-command-enter-message-to-user. diff --git a/lisp/riece-server.el b/lisp/riece-server.el index 27b40e8..921a6cd 100644 --- a/lisp/riece-server.el +++ b/lisp/riece-server.el @@ -205,7 +205,7 @@ the `riece-server-keyword-map' variable." riece-server-process-alist))) (defun riece-server-process-opened (process) - (memq (process-status process) '(open run))) + (not (null (memq (process-status process) '(open run))))) (defun riece-server-opened (&optional server-name) (if server-name -- 1.7.10.4