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

:service.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6053dfd..e2d074c 100644 (file)
--- 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.
 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 (file)
--- 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)
                                 :format "%{%t%}: %v"
                                 (const :tag "" :value :service)
                                 (choice (const :tag "Default" 6667)

+                                        integer

                                         string))
                           (list :inline t :tag "Nickname"
                                 :format "%{%t%}: %v"
                                         string))
                           (list :inline t :tag "Nickname"
                                 :format "%{%t%}: %v"