]> code.delx.au - gnu-emacs-elpa/commitdiff
delx.au / code / gnu-emacs-elpa / commitdiff
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 5712613)
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 patch | blob | history

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))))))