* lisp/net/ldap.el (ldap-search-internal): Add missing setq.

diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el
index 75fc7d622115d62e8eeb81a91b396b843b8e5e6e..a109f28db5317cdd99ee0b3093222eec80478dde 100644 (file)
--- a/lisp/net/ldap.el
+++ b/lisp/net/ldap.el
@@ -727,7 +727,7 @@ an alist of attribute/value pairs."
          (setq record nil)
          (skip-chars-forward " \t\n")
          (message "Parsing results... %d" numres)
-         (1+ numres))
+         (setq numres (1+ numres)))
        (message "Parsing results... done")
        (nreverse result)))))