[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/el-search e81afef 054/332: factor out `el-search--searc
From: |
Stefan Monnier |
Subject: |
[elpa] externals/el-search e81afef 054/332: factor out `el-search--search-pattern-1' |
Date: |
Tue, 1 Dec 2020 15:48:10 -0500 (EST) |
branch: externals/el-search
commit e81afef3507f146a5761a9d287ee2149ec40c370
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>
factor out `el-search--search-pattern-1'
---
el-search.el | 16 +++++++++-------
1 file changed, 9 insertions(+), 7 deletions(-)
diff --git a/el-search.el b/el-search.el
index 8724071..ce37d91 100644
--- a/el-search.el
+++ b/el-search.el
@@ -409,13 +409,8 @@ of the definitions is limited to \"el-search\"."
(goto-char (match-end 0)))
(t (forward-char))))
-(defun el-search--search-pattern (pattern &optional noerror)
- "Search elisp buffer with `pcase' PATTERN.
-Set point to the beginning of the occurrence found and return
-point. Optional second argument, if non-nil, means if fail just
-return nil (no error)."
-
- (let ((matcher (el-search--matcher pattern)) (match-beg nil) (opoint
(point)) current-expr)
+(defun el-search--search-pattern-1 (matcher &optional noerror)
+ (let ((match-beg nil) (opoint (point)) current-expr)
;; when inside a string or comment, move past it
(let ((syntax-here (syntax-ppss)))
@@ -441,6 +436,13 @@ return nil (no error)."
(if noerror nil (signal 'end-of-buffer nil)))
match-beg))
+(defun el-search--search-pattern (pattern &optional noerror)
+ "Search elisp buffer with `pcase' PATTERN.
+Set point to the beginning of the occurrence found and return
+point. Optional second argument, if non-nil, means if fail just
+return nil (no error)."
+ (el-search--search-pattern-1 (el-search--matcher pattern) noerror))
+
(defun el-search--do-subsexps (pos do-fun &optional ret-fun bound)
;; In current buffer, for any expression start between POS and BOUND
;; or (point-max), in order, call two argument function DO-FUN with
- [elpa] externals/el-search 816e675 033/332: document el-search--do-subsexps, (continued)
- [elpa] externals/el-search 816e675 033/332: document el-search--do-subsexps, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 1bbf5d9 035/332: give feedback in the echo area again, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 93079f5 042/332: el-search: bump version to 0.1, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 112612e 041/332: simplify el-search-hl-post-command-fun, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search b4abe87 045/332: add a to do, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 20f670a 048/332: bump version to 0.1.1, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search bff759c 047/332: el-search-query-replace: add s (toggle splicing) and ? (help) keys, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 0e71413 049/332: el-search--matcher: refine when to warn or error, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search aa4bd02 051/332: el-search: new pattern type `append', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search d97f8fe 052/332: remove example using `message' in a guard, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search e81afef 054/332: factor out `el-search--search-pattern-1',
Stefan Monnier <=
- [elpa] externals/el-search 2b4c194 055/332: remove annoying message on how to repeat el-search, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 30fef15 056/332: use more newlines in `el-search--make-docstring', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search c090afe 057/332: el-search: new pattern type `contains', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 7e13746 058/332: When coming from isearch, don't move to other end, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 5837187 059/332: el-search: bump version to 0.1.3, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 108466e 061/332: Support highlighting of all visible matches, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 177d82e 063/332: use uninterned symbol in `el-search--matcher', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 5517384 065/332: Improve doc of el-search-this-expression-identifier., Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 1e97c09 069/332: Fix for non-interactive calls of el-search-pattern, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search c0efb8d 067/332: New user option: el-search-smart-case-fold-search, Stefan Monnier, 2020/12/01