aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/net/ldap.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el
index ccad8c4edb1..de553468b1c 100644
--- a/lisp/net/ldap.el
+++ b/lisp/net/ldap.el
@@ -156,7 +156,7 @@ Valid properties include:
156 "The name of the ldapsearch command line program." 156 "The name of the ldapsearch command line program."
157 :type '(string :tag "`ldapsearch' Program")) 157 :type '(string :tag "`ldapsearch' Program"))
158 158
159(defcustom ldap-ldapsearch-args '("-LLL" "-tt") 159(defcustom ldap-ldapsearch-args nil
160 "A list of additional arguments to pass to `ldapsearch'." 160 "A list of additional arguments to pass to `ldapsearch'."
161 :type '(repeat :tag "`ldapsearch' Arguments" 161 :type '(repeat :tag "`ldapsearch' Arguments"
162 (string :tag "Argument"))) 162 (string :tag "Argument")))
@@ -609,7 +609,8 @@ an alist of attribute/value pairs."
609 (sizelimit (plist-get search-plist 'sizelimit)) 609 (sizelimit (plist-get search-plist 'sizelimit))
610 (withdn (plist-get search-plist 'withdn)) 610 (withdn (plist-get search-plist 'withdn))
611 (numres 0) 611 (numres 0)
612 arglist dn name value record result) 612 (arglist (list "-LLL" "-tt"))
613 dn name value record result)
613 (if (or (null filter) 614 (if (or (null filter)
614 (equal "" filter)) 615 (equal "" filter))
615 (error "No search filter")) 616 (error "No search filter"))