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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3f0f8e8527149940c7db1e50220f20c3dd2bc47e..2ba9a86ea80e0ef20d970eb00a22f490468a4234 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-01-08  Eric Hanchrow  <eric.hanchrow@gmail.com>
+
+       * net/ldap.el (ldap-search-internal): Discard stderr output.
+
 2011-01-07  Eli Zaretskii  <eliz@gnu.org>
 
        * files.el (directory-abbrev-alist): Doc fix.  (Bug#7777)

diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el
index afdb0fe3e13b1e7b80b9a82c635411d6b2c5639e..f1cc534ae85e6b323d1e51b86cb6d6adf01f2104 100644 (file)
--- 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