[elpa] externals/el-search 125d653 084/332: Fix el-search--ensure-sexp-start error at bob

[Stefan Monnier]

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

    Fix el-search--ensure-sexp-start error at bob
---
 el-search.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/el-search.el b/el-search.el
index 71b07ec..de219de 100644
--- a/el-search.el
+++ b/el-search.el
@@ -356,9 +356,10 @@ and return it."
     (while not-done
       (let ((stop-here nil)
             (looking-at-from-back (lambda (regexp n)
-                                    (save-excursion
-                                      (backward-char n)
-                                      (looking-at regexp)))))
+                                    (and (> (point) n)
+                                         (save-excursion
+                                           (backward-char n)
+                                           (looking-at regexp))))))
         (while (not stop-here)
           (cond
            ((eobp) (signal 'end-of-buffer nil))