branch: master
commit 3d0a12e0de844c9a3899d32a709e3dc1e0c3d219
Author: Michael Heerdegen <[email protected]>
Commit: Michael Heerdegen <[email protected]>
Fix el-search--ensure-sexp-start error at bob
---
packages/el-search/el-search.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 71b07ec..de219de 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/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))
