Mercurial > emacs
comparison lisp/net/eudc-vars.el @ 35355:581e16bc15c7
(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. |