From c6fb432f3030ccf7c268fd59d74a55469791232e Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Sun, 19 Oct 2003 07:34:11 +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 -- 2.25.1