diff options
Diffstat (limited to 'lisp/net/eudcb-ldap.el')
| -rw-r--r-- | lisp/net/eudcb-ldap.el | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lisp/net/eudcb-ldap.el b/lisp/net/eudcb-ldap.el index 1201c84f2d3..86fe99f9e76 100644 --- a/lisp/net/eudcb-ldap.el +++ b/lisp/net/eudcb-ldap.el @@ -38,14 +38,6 @@ ;;{{{ Internal cooking -(defalias 'eudc-ldap-get-host-parameter - (if (fboundp 'ldap-get-host-parameter) - #'ldap-get-host-parameter - (lambda (host parameter) - "Get the value of PARAMETER for HOST in `ldap-host-parameters-alist'." - (plist-get (cdr (assoc host ldap-host-parameters-alist)) - parameter)))) - (defvar eudc-ldap-attributes-translation-alist '((name . sn) (firstname . givenname) @@ -209,7 +201,7 @@ attribute names are returned. Default to `person'." (defun eudc-ldap-check-base () "Check if the current LDAP server has a configured search base." - (unless (or (eudc-ldap-get-host-parameter eudc-server 'base) + (unless (or (ldap-get-host-parameter eudc-server 'base) ldap-default-base (null (y-or-n-p "No search base defined. Configure it now?"))) ;; If the server is not in ldap-host-parameters-alist we add it for the @@ -224,6 +216,8 @@ attribute names are returned. Default to `person'." (eudc-register-protocol 'ldap) +(define-obsolete-function-alias 'eudc-ldap-get-host-parameter #'ldap-get-host-parameter "29.1") + (provide 'eudcb-ldap) ;;; eudcb-ldap.el ends here |