1 |
;;; url-ldap.el --- LDAP Uniform Resource Locator retrieval code |
;;; url-ldap.el --- LDAP Uniform Resource Locator retrieval code |
2 |
;; Copyright (c) 1998, 1999, 2004, 2005 Free Software Foundation, Inc. |
|
3 |
|
;; Copyright (C) 1998, 1999, 2004, 2005 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Keywords: comm, data, processes |
;; Keywords: comm, data, processes |
6 |
|
|
190 |
|
|
191 |
(setq binddn (cdr-safe (or (assoc "bindname" extensions) |
(setq binddn (cdr-safe (or (assoc "bindname" extensions) |
192 |
(assoc "!bindname" extensions)))) |
(assoc "!bindname" extensions)))) |
193 |
|
|
194 |
;; Now, let's actually do something with it. |
;; Now, let's actually do something with it. |
195 |
(setq results (cdr (ldap-search-internal |
(setq results (cdr (ldap-search-internal |
196 |
(list 'host (concat host ":" (number-to-string port)) |
(list 'host (concat host ":" (number-to-string port)) |