Commit 90557512 authored by Chong Yidong's avatar Chong Yidong
Browse files

2006-06-13 Martin J. Reed <mjreed@essex.ac.uk> (tiny change)

	* net/ldap.el (ldap-ldapsearch-args): Default to SASL search.
	(ldap-search-internal): Keep error messages, and a regexp fix.
parent c7484981
2006-06-13 Martin J. Reed <mjreed@essex.ac.uk> (tiny change)
* net/ldap.el (ldap-ldapsearch-args): Default to SASL search.
(ldap-search-internal): Keep error messages, and a regexp fix.
2006-06-12 Thien-Thi Nguyen <ttn@gnu.org>
 
* files.el (hack-local-variables-confirm):
......
......@@ -154,7 +154,7 @@ Valid properties include:
:type '(string :tag "`ldapsearch' Program")
:group 'ldap)
(defcustom ldap-ldapsearch-args '("-LL" "-tt" "-x")
(defcustom ldap-ldapsearch-args '("-LL" "-tt")
"*A list of additional arguments to pass to `ldapsearch'."
:type '(repeat :tag "`ldapsearch' Arguments"
(string :tag "Argument"))
......@@ -555,7 +555,7 @@ an alist of attribute/value pairs."
(setq arglist (nconc arglist (list (format "-z%s" sizelimit)))))
(eval `(call-process ldap-ldapsearch-prog
nil
`(,buf nil)
buf
nil
,@arglist
,@ldap-ldapsearch-args
......@@ -580,7 +580,7 @@ an alist of attribute/value pairs."
(end-of-line)
(point))))
(forward-line 1)
(while (looking-at "^\\(\\w*\\)\\(;\\w*\\)?[=:\t ]+\\(<[\t ]*file://\\)?\\(.*\\)$")
(while (looking-at "^\\(\\w*\\)\\(;\\w*\\)?[=:\t ]+\\(<[\t ]*file://\\)\\(.*\\)$")
(setq name (match-string 1)
value (match-string 4))
;; Need to handle file:///D:/... as generated by OpenLDAP
......
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