Skip to content
Snippets Groups Projects
Commit e1fd95800dc2 authored by oscarf's avatar oscarf
Browse files

(eudc-ldap-protocol-locals): Removed in favour of

`eudc-protocol-set'
parent 33e7f78a1bfb
No related branches found
No related tags found
No related merge requests found
......@@ -51,16 +51,12 @@
(phone . telephonenumber))
"Alist mapping EUDC attribute names to LDAP names.")
(defconst eudc-ldap-protocol-locals
'((eudc-query-function . eudc-ldap-simple-query-internal)
(eudc-list-attributes-function . eudc-ldap-get-field-list)
(eudc-protocol-attributes-translation-alist . eudc-ldap-attributes-translation-alist)
(eudc-bbdb-conversion-alist . eudc-ldap-bbdb-conversion-alist)
(eudc-protocol-has-default-query-attributes . nil))
"LDAP protocol specific values of EUDC variables.
This should be an alist of the form (EUDC-VAR . LDAP-VAR) where
EUDC-VAR is the name of a EUDC variable and LDAP-VAR is
the corresponding LDAP-specific variable.")
(eudc-protocol-set 'eudc-query-function 'eudc-ldap-simple-query-internal 'ldap)
(eudc-protocol-set 'eudc-list-attributes-function 'eudc-ldap-get-field-list 'ldap)
(eudc-protocol-set 'eudc-protocol-attributes-translation-alist
'eudc-ldap-attributes-translation-alist 'ldap)
(eudc-protocol-set 'eudc-bbdb-conversion-alist 'eudc-ldap-bbdb-conversion-alist 'ldap)
(eudc-protocol-set 'eudc-protocol-has-default-query-attributes nil 'ldap)
(defun eudc-filter-$ (string)
(let ((res ""))
......@@ -143,7 +139,7 @@
;;;}}}
(eudc-register-protocol 'ldap eudc-ldap-protocol-locals)
(eudc-register-protocol 'ldap)
(provide 'eudc-ldap)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment