Commit 4a8da016 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(ldap-search): Use list*.

parent 016da1c1
;;; ldap.el --- client interface to LDAP for Emacs
;; Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc.
;; Copyright (C) 1998, 1999, 2000, 02, 2004 Free Software Foundation, Inc.
;; Author: Oscar Figueiredo <oscar@cpe.fr>
;; Maintainer: Pavel Jank <Pavel@Janik.cz>
......@@ -36,6 +36,7 @@
;;; Code:
(require 'custom)
(eval-when-compile (require 'cl))
(defgroup ldap nil
"Lightweight Directory Access Protocol."
......@@ -464,17 +465,16 @@ Additional search parameters can be specified through
(error "No LDAP host specified"))
(let ((host-plist (cdr (assoc host ldap-host-parameters-alist)))
result)
(setq result (ldap-search-internal (append host-plist
(list 'host host
'filter filter
'attributes attributes
'attrsonly attrsonly
'withdn withdn))))
(setq result (ldap-search-internal (list* 'host host
'filter filter
'attributes attributes
'attrsonly attrsonly
'withdn withdn
host-plist)))
(if ldap-ignore-attribute-codings
result
(mapcar (function
(lambda (record)
(mapcar 'ldap-decode-attribute record)))
(mapcar (lambda (record)
(mapcar 'ldap-decode-attribute record))
result))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment