summaryrefslogtreecommitdiff
path: root/lisp/net/eudc-vars.el
diff options
context:
space:
mode:
authorDave Love <fx@gnu.org>2001-01-17 11:41:05 +0000
committerDave Love <fx@gnu.org>2001-01-17 11:41:05 +0000
commitf1f06a697854c5ad3555d3b44c169a6ea26bf32f (patch)
treed2eff1c2a8fac713813f663e0920a3b0c039e849 /lisp/net/eudc-vars.el
parent9ad4f3e55659c2833d86e48d8ba0362b927ece52 (diff)
downloademacs-f1f06a697854c5ad3555d3b44c169a6ea26bf32f.tar.gz
(eudc-server, eudc-protocol): Fix :type.
Diffstat (limited to 'lisp/net/eudc-vars.el')
-rw-r--r--lisp/net/eudc-vars.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/net/eudc-vars.el b/lisp/net/eudc-vars.el
index d9c90010cd2..29a04b0db44 100644
--- a/lisp/net/eudc-vars.el
+++ b/lisp/net/eudc-vars.el
@@ -41,7 +41,7 @@
A port number may be specified by appending a colon and a
number to the name of the server. Use `localhost' if the directory
server resides on your computer (BBDB backend)."
- :type '(string :tag "Server")
+ :type '(choice (string :tag "Server") (const :tag "None" nil))
:group 'eudc)
;; Known protocols (used in completion)
@@ -59,7 +59,8 @@ Supported protocols are specified by `eudc-supported-protocols'."
:type `(choice :menu-tag "Protocol"
,@(mapcar (lambda (s)
(list 'const ':tag (symbol-name s) s))
- eudc-known-protocols))
+ eudc-known-protocols)
+ (const :tag "None" nil))
:group 'eudc)