* net/ldap.el (ldap-search-internal): Discard stderr output.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el
index afdb0fe3e13..f1cc534ae85 100644
--- a/lisp/net/ldap.el
+++ b/lisp/net/ldap.el
@@ -558,7 +558,8 @@ an alist of attribute/value pairs."
           (setq arglist (nconc arglist (list (format "-z%s" sizelimit)))))
       (eval `(call-process ldap-ldapsearch-prog
                            nil
-                           buf
+                           ;; Ignore stderr, which can corrupt results
+                           (list buf nil)
                            nil
                            ,@arglist
                            ,@ldap-ldapsearch-args