From: Daiki Ueno <ueno@unixuser.org>
Date: Fri, 6 Jun 2008 20:14:42 +0000 (+0000)
Subject: (riece-server-alist): Accept an integer for
X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=db2c2ce905fe99cf7a8771d3c13996574112f2a3;hp=9a92e39b701143b6039faa303099ebc05006c514

(riece-server-alist): Accept an integer for
:service.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6053dfd..e2d074c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-06-07  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-options.el (riece-server-alist): Accept an integer for
+	:service.
+
 2008-06-06  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-compat.el (riece-make-local-hook): New alias.
diff --git a/lisp/riece-options.el b/lisp/riece-options.el
index 0d761c5..69d22ca 100644
--- a/lisp/riece-options.el
+++ b/lisp/riece-options.el
@@ -182,6 +182,7 @@ specifying the coding systems for decoding and encoding respectively."
 				 :format "%{%t%}: %v"
 				 (const :tag "" :value :service)
 				 (choice (const :tag "Default" 6667)
+					 integer
 					 string))
 			   (list :inline t :tag "Nickname"
 				 :format "%{%t%}: %v"