diff options
Diffstat (limited to 'lisp/net/ldap.el')
| -rw-r--r-- | lisp/net/ldap.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el index f4910b1dc77..d5303387663 100644 --- a/lisp/net/ldap.el +++ b/lisp/net/ldap.el @@ -470,18 +470,17 @@ Additional search parameters can be specified through (or host (setq host ldap-default-host) (error "No LDAP host specified")) - (let ((host-plist (cdr (assoc host ldap-host-parameters-alist))) - result) - (setq result (ldap-search-internal `(host ,host + (let* ((host-plist (cdr (assoc host ldap-host-parameters-alist))) + (result (ldap-search-internal `(host ,host filter ,filter attributes ,attributes attrsonly ,attrsonly withdn ,withdn - ,@host-plist))) + ,@host-plist)))) (if ldap-ignore-attribute-codings result (mapcar (lambda (record) - (mapcar 'ldap-decode-attribute record)) + (mapcar #'ldap-decode-attribute record)) result)))) (defun ldap-password-read (host) |