[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/el-search 00d6af1 040/332: remove search wrapping funct
From: |
Stefan Monnier |
Subject: |
[elpa] externals/el-search 00d6af1 040/332: remove search wrapping functionality |
Date: |
Tue, 1 Dec 2020 15:48:07 -0500 (EST) |
branch: externals/el-search
commit 00d6af1afb97cd4a79e1502d9518ceeed7012712
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>
remove search wrapping functionality
---
el-search.el | 13 +++++--------
1 file changed, 5 insertions(+), 8 deletions(-)
diff --git a/el-search.el b/el-search.el
index fa9c26d..bf545ae 100644
--- a/el-search.el
+++ b/el-search.el
@@ -600,7 +600,8 @@ Additional `pcase' pattern types to be used with this
command can
be defined with `el-search-defpattern'.
The following additional pattern types are currently defined:\n"
- (interactive (list (if (eq this-command last-command)
+ (interactive (list (if (and (eq this-command last-command)
+ el-search-success)
el-search-current-pattern
(let ((pattern
(el-search--read-pattern "Find pcase pattern: "
@@ -616,17 +617,13 @@ The following additional pattern types are currently
defined:\n"
(setq this-command 'el-search-pattern) ;in case we come from isearch
(setq el-search-current-pattern pattern)
(let ((opoint (point)))
- (when (eq this-command last-command)
- (if el-search-success
- (el-search--skip-expression nil t)
- ;; wrap search
- (goto-char (point-min))))
+ (when (and (eq this-command last-command) el-search-success)
+ (el-search--skip-expression nil t))
(setq el-search-success nil)
(message "%s" (substitute-command-keys "Type \\[el-search-pattern] to
repeat"))
(when (condition-case nil
(el-search--search-pattern pattern)
- (end-of-buffer (message "No match; %s"
- (substitute-command-keys "Type
\\[el-search-pattern] to wrap"))
+ (end-of-buffer (message "No match")
(goto-char opoint)
(el-search-hl-remove)
(ding)
- [elpa] externals/el-search 7c42a31 036/332: el-search--read-pattern: fix default(s), (continued)
- [elpa] externals/el-search 7c42a31 036/332: el-search--read-pattern: fix default(s), Stefan Monnier, 2020/12/01
- [elpa] externals/el-search f54c5f1 037/332: spelling fixes, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 192316b 006/332: el-search: fix two typos, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 92538ed 007/332: el-search: remove redundant package dependency on cl-lib, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 9ab546b 017/332: drop el-search-expression-contains-match-p, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 1694128 029/332: some doc tweaks, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 7886e33 031/332: fix el-search--repair-replacement-layout: don't move when replacing, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 672def6 034/332: fix whitespace, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search daa7f92 039/332: improve docs; new: el-search-defpattern; add some pattern types, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search e14236a 038/332: fix whitespace, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 00d6af1 040/332: remove search wrapping functionality,
Stefan Monnier <=
- [elpa] externals/el-search 3b5cce3 043/332: fix compiler errors and warnings, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 06af085 044/332: edit TODO list, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search ec0c3e8 053/332: el-search: new pattern type `not', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 0809f99 072/332: New user option: el-search-use-sloppy-strings, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search ba82854 022/332: rename a local variable, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 1222012 046/332: prerequisites to allow replace with multiple expressions, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 0af261a 050/332: el-search: some cleanup, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 3370594 060/332: el-search: New pattern type `l', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search b936a28 062/332: Go to isearch left end when starting replace, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 59c6139 064/332: Complete and document what a SYMBOL in `l' matches, Stefan Monnier, 2020/12/01