el-search--ensure-sexp-start: don't assume point-min==1

[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 d267be11e135bf87f0383ca0b52216fe8a4805a6..3536f4981ac6cc13c113a1ae0a40986eb33f1a56 100644 (file)
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -389,7 +389,7 @@ and return it."
     (while not-done
       (let ((stop-here nil)
             (looking-at-from-back (lambda (regexp n)
-                                    (and (> (point) n)
+                                    (and (<= n (- (point) (point-min)))
                                          (save-excursion
                                            (backward-char n)
                                            (looking-at regexp))))))