diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-08-23 15:56:32 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-08-23 15:57:20 +0200 |
| commit | 1a4a12a2a8dbc45bf64fbbd6e19385424d06437d (patch) | |
| tree | 9ac0753f03395c351dfa9fd011b577e565e15cd4 /lisp | |
| parent | 1f990d1cf95930a584a7f70f002f284e273b6fd6 (diff) | |
| download | emacs-1a4a12a2a8dbc45bf64fbbd6e19385424d06437d.tar.gz emacs-1a4a12a2a8dbc45bf64fbbd6e19385424d06437d.tar.bz2 emacs-1a4a12a2a8dbc45bf64fbbd6e19385424d06437d.zip | |
Make Emacs 20 compat alias obsolete in eudcb-ldap.el
* lisp/net/eudcb-ldap.el (eudc-ldap-get-host-parameter): Make
Emacs 20 compat alias obsolete.
Diffstat (limited to 'lisp')
| -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 |