/[emacs]/emacs/lisp/url/url-ldap.el
ViewVC logotype

Diff of /emacs/lisp/url/url-ldap.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by lute, Mon Jul 4 16:37:19 2005 UTC revision 1.8 by ttn, Sat Aug 6 15:55:38 2005 UTC
# Line 1  Line 1 
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    
# Line 189  URL can be a URL string, or a URL vector Line 190  URL can be a URL string, or a URL vector
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))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26