diff options
| author | Dave Love <[email protected]> | 2001-01-17 11:41:05 +0000 |
|---|---|---|
| committer | Dave Love <[email protected]> | 2001-01-17 11:41:05 +0000 |
| commit | f1f06a697854c5ad3555d3b44c169a6ea26bf32f (patch) | |
| tree | d2eff1c2a8fac713813f663e0920a3b0c039e849 | |
| parent | 9ad4f3e55659c2833d86e48d8ba0362b927ece52 (diff) | |
(eudc-server, eudc-protocol): Fix :type.
| -rw-r--r-- | lisp/net/eudc-vars.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/net/eudc-vars.el b/lisp/net/eudc-vars.el index d9c90010cd..29a04b0db4 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) |