changeset 35355:581e16bc15c7

(eudc-server, eudc-protocol): Fix :type.
author Dave Love <fx@gnu.org>
date Wed, 17 Jan 2001 11:41:05 +0000
parents 79fc57d014ca
children cb956e663075
files lisp/net/eudc-vars.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/eudc-vars.el	Wed Jan 17 11:11:53 2001 +0000
+++ b/lisp/net/eudc-vars.el	Wed Jan 17 11:41:05 2001 +0000
@@ -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 @@
   :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)