From 0420b26e57fc6a2290c49c66466421c6b3246374 Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 25 Nov 2004 07:12:47 +0000 Subject: [PATCH] * riece-server.el (riece-server-properties): New function. --- lisp/ChangeLog | 4 ++++ lisp/riece-server.el | 9 +++++++++ 2 files changed, 13 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8317d16..fffb718 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-11-25 Daiki Ueno + + * riece-server.el (riece-server-properties): New function. + 2004-11-22 Daiki Ueno * riece-display.el (riece-update-status-indicators): Format diff --git a/lisp/riece-server.el b/lisp/riece-server.el index 7512ae4..04ab199 100644 --- a/lisp/riece-server.el +++ b/lisp/riece-server.el @@ -286,6 +286,15 @@ the `riece-server-keyword-map' variable." (throw 'found t)) (setq alist (cdr alist))))))) +(defun riece-server-properties (server-name) + "Return a list of properties associated with SERVER-NAME." + (if (equal server-name "") + riece-server + (let ((entry (assoc server-name riece-server-alist))) + (unless entry + (error "No such server")) + (cdr entry)))) + (provide 'riece-server) ;;; riece-server.el ends here -- 1.7.10.4