mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(ldap-search): Use list*.

Browse source
This commit is contained in:
Stefan Monnier 2004-04-12 04:12:02 +00:00
parent 016da1c19d
commit 4a8da016ca
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/net/ldap.el
View file

@ -1,6 +1,6 @@
;;; 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 Janík <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))))