[elpa] master 5dd08f2 05/12: fix a condition in el-search--do-subsexps

[Michael Heerdegen]

branch: master
commit 5dd08f2ed24319b73f61d49703faf48b0e0ab2f5
Author: Michael Heerdegen <michael_heerde...@web.de>
Commit: Michael Heerdegen <michael_heerde...@web.de>

    fix a condition in el-search--do-subsexps
---
 packages/el-search/el-search.el |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 84f98e4..dd0f2ce 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/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))