[elpa] externals/el-search fc6eca5 016/332: fix a condition in el-search--do-subsexps

[Stefan Monnier]

branch: externals/el-search
commit fc6eca531e1c203461fc2d56b7fc5bf30a42d89e
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>

    fix a condition in el-search--do-subsexps
---
 el-search.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/el-search.el b/el-search.el
index 84f98e4..dd0f2ce 100644
--- a/el-search.el
+++ b/el-search.el
@@ -337,7 +337,7 @@ return nil (no error)."
   (save-excursion
     (goto-char pos)
     (condition-case nil
-        (while (or (not bound) (< (point) bound))
+        (while (< (point) (or bound (point-max)))
           (let* ((this-sexp-end (save-excursion (thing-at-point--end-of-sexp) 
(point)))
                  (this-sexp (buffer-substring-no-properties (point) 
this-sexp-end)))
             (funcall do-fun this-sexp this-sexp-end))