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

[riece] / lisp / riece-options.el

diff --git a/lisp/riece-options.el b/lisp/riece-options.el
index 9e7b113..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"
@@ -195,23 +196,23 @@ specifying the coding systems for decoding and encoding respectively."
                                         string))
                           (list :inline t :tag "Username"
                                 :format "%{%t%}: %v"
-                                (const :tag "" :value :host)
+                                (const :tag "" :value :username)
                                 (choice (const :tag "Default" riece-username)
                                         string))
                           (list :inline t :tag "Password"
                                 :format "%{%t%}: %v"
-                                (const :tag "" :value :host)
+                                (const :tag "" :value :password)
                                 string)
                           (list :inline t :tag "Function"
                                 :format "%{%t%}: %v"
-                                (const :tag "" :value :host)
+                                (const :tag "" :value :function)
                                 (choice
                                  (const :tag "Default"
                                         riece-default-open-connection-function)
                                  function))
                           (list :inline t :tag "Coding system"
                                 :format "%{%t%}: %v"
-                                (const :tag "" :value :host)
+                                (const :tag "" :value :coding)
                                 (choice
                                  (const :tag "Default"
                                         riece-default-coding-system)