Mercurial > hg > xemacs-beta

comparison lisp/ldap.el @ 388:aabb7f5b1c81 r21-2-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-9
author cvs
date Mon, 13 Aug 2007 11:09:42 +0200
parents bbff43aa5eb7
children 74fd4e045ea6
comparison
equal deleted inserted replaced
387:f892a9d0bb8d 388:aabb7f5b1c81
3 ;; Copyright (C) 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
4 4
5 ;; Author: Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch> 5 ;; Author: Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch>
6 ;; Maintainer: Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch> 6 ;; Maintainer: Oscar Figueiredo <Oscar.Figueiredo@di.epfl.ch>
7 ;; Created: Jan 1998 7 ;; Created: Jan 1998
8 ;; Version: $Revision: 1.7.2.2 $ 8 ;; Version: $Revision: 1.7.2.3 $
9 ;; Keywords: help comm 9 ;; Keywords: help comm
10 10
11 ;; This file is part of XEmacs 11 ;; This file is part of XEmacs
12 12
13 ;; XEmacs is free software; you can redistribute it and/or modify it 13 ;; XEmacs is free software; you can redistribute it and/or modify it
32 ;;; Installation: 32 ;;; Installation:
33 ;; LDAP support must have been built into XEmacs. 33 ;; LDAP support must have been built into XEmacs.
34 34
35 35
36 ;;; Code: 36 ;;; Code:
37
38 (require 'ldap)
39 (require 'custom)
40 37
41 (defgroup ldap nil 38 (defgroup ldap nil
42 "Lightweight Directory Access Protocol" 39 "Lightweight Directory Access Protocol"
43 :group 'comm) 40 :group 'comm)
44 41
168 (prog1 (ldap-search-internal ldap filter 165 (prog1 (ldap-search-internal ldap filter
169 (plist-get host-plist 'base) 166 (plist-get host-plist 'base)
170 (plist-get host-plist 'scope) 167 (plist-get host-plist 'scope)
171 attributes attrsonly) 168 attributes attrsonly)
172 (ldap-close ldap)))) 169 (ldap-close ldap))))
170
171 (provide 'ldap)
173 172
174 ;;; ldap.el ends here 173 ;;; ldap.el ends here