Mercurial > emacs

comparison lisp/net/eudc-vars.el @ 35355:581e16bc15c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(eudc-server, eudc-protocol): Fix :type.
author Dave Love <fx@gnu.org>
date Wed, 17 Jan 2001 11:41:05 +0000
parents 108b464ba713
children 7a94f1c588c4
comparison
equal deleted inserted replaced
35354:79fc57d014ca 35355:581e16bc15c7
39 (defcustom eudc-server nil 39 (defcustom eudc-server nil
40 "*The name or IP address of the directory server. 40 "*The name or IP address of the directory server.
41 A port number may be specified by appending a colon and a 41 A port number may be specified by appending a colon and a
42 number to the name of the server. Use `localhost' if the directory 42 number to the name of the server. Use `localhost' if the directory
43 server resides on your computer (BBDB backend)." 43 server resides on your computer (BBDB backend)."
44 :type '(string :tag "Server") 44 :type '(choice (string :tag "Server") (const :tag "None" nil))
45 :group 'eudc) 45 :group 'eudc)
46 46
47 ;; Known protocols (used in completion) 47 ;; Known protocols (used in completion)
48 ;; Not to be mistaken with `eudc-supported-protocols' 48 ;; Not to be mistaken with `eudc-supported-protocols'
49 (defvar eudc-known-protocols '(bbdb ph ldap)) 49 (defvar eudc-known-protocols '(bbdb ph ldap))
57 "*The directory protocol to use to query the server. 57 "*The directory protocol to use to query the server.
58 Supported protocols are specified by `eudc-supported-protocols'." 58 Supported protocols are specified by `eudc-supported-protocols'."
59 :type `(choice :menu-tag "Protocol" 59 :type `(choice :menu-tag "Protocol"
60 ,@(mapcar (lambda (s) 60 ,@(mapcar (lambda (s)
61 (list 'const ':tag (symbol-name s) s)) 61 (list 'const ':tag (symbol-name s) s))
62 eudc-known-protocols)) 62 eudc-known-protocols)
63 (const :tag "None" nil))
63 :group 'eudc) 64 :group 'eudc)
64 65
65 66
66 (defcustom eudc-strict-return-matches t 67 (defcustom eudc-strict-return-matches t
67 "*Ignore or allow entries not containing all requested return attributes. 68 "*Ignore or allow entries not containing all requested return attributes.