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

[elisp/riece.git] / lisp / riece-options.el

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)
+                                        integer
                                         string))
                           (list :inline t :tag "Nickname"
                                 :format "%{%t%}: %v"