el-search--ensure-sexp-start: don't assume point-min==1
authorMichael Heerdegen <michael_heerdegen@web.de>
Sat, 21 May 2016 14:19:00 +0000 (16:19 +0200)
committerMichael Heerdegen <michael_heerdegen@web.de>
Sat, 21 May 2016 14:20:18 +0000 (16:20 +0200)
Thanks Stefan.

packages/el-search/el-search.el

index d267be1..3536f49 100644 (file)
@@ -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))))))