fix a condition in el-search--do-subsexps

[gnu-emacs-elpa] / packages / el-search / el-search.el

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 84f98e46c5fe3b21d2d7e927702808ae8d526c13..dd0f2ce2d4c8255b6761e6b0003729bbfe2b8d10 100644 (file)
--- 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))