[PATCH] (ldap-search-internal): Ignore stderr from ldap-ldapsearch-prog

[Eric Hanchrow]

 lisp/net/ldap.el |   15 ++++++++-------
 1 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el
index 4676aba..8d77f34 100644
--- a/lisp/net/ldap.el
+++ b/lisp/net/ldap.el
@@ -555,13 +555,14 @@ an alist of attribute/value pairs."
          (setq arglist (nconc arglist (list (format "-l%s" timelimit)))))
       (if (and sizelimit
               (not (equal "" sizelimit)))
-         (setq arglist (nconc arglist (list (format "-z%s" sizelimit)))))
-      (eval `(call-process ldap-ldapsearch-prog
-                          nil
-                          buf
-                          nil
-                          ,@arglist
-                          ,@ldap-ldapsearch-args
+        (setq arglist (nconc arglist (list (format "-z%s" sizelimit)))))
+     (eval `(call-process ldap-ldapsearch-prog
+                         nil
+                           ;; Ignore stderr, which can corrupt results
+                          (list buf nil)
+                         nil
+                         ,@arglist
+                         ,@ldap-ldapsearch-args
                           ,@filter))
       (insert "\n")
       (goto-char (point-min))
-- 
1.7.3.2