[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 3459015 03/22: allow search wrapping
From: |
Michael Heerdegen |
Subject: |
[elpa] master 3459015 03/22: allow search wrapping |
Date: |
Sat, 31 Oct 2015 18:41:35 +0000 |
branch: master
commit 3459015a0097b2066e8f1f0be567111cedb410b7
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
allow search wrapping
---
packages/el-search/el-search.el | 10 ++++++----
1 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index e3826f2..4fc0a40 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -430,8 +430,7 @@ return nil (no error)."
;;;###autoload
(defun el-search-pattern (pattern)
"Do incremental elisp search forward."
- (interactive (list (if (and (eq this-command last-command)
- el-search-success)
+ (interactive (list (if (eq this-command last-command)
el-search-current-pattern
(let ((pattern
(el-search--read-pattern "Find pcase pattern: "
@@ -447,8 +446,11 @@ return nil (no error)."
(setq this-command 'el-search-pattern) ;in case we come from isearch
(setq el-search-current-pattern pattern)
(let ((opoint (point)))
- (when (and (eq this-command last-command) el-search-success)
- (el-search--skip-expression nil t))
+ (when (eq this-command last-command)
+ (if el-search-success
+ (el-search--skip-expression nil t)
+ ;; wrap search
+ (goto-char (point-min))))
(setq el-search-success nil)
(when (condition-case nil
(el-search--search-pattern pattern)
- [elpa] master updated (7507951 -> a91ed2f), Michael Heerdegen, 2015/10/31
- [elpa] master 65369d8 02/22: arrange we can use `call-interactively' when coming from isearch, Michael Heerdegen, 2015/10/31
- [elpa] master 723bb57 08/22: fix el-search--repair-replacement-layout: don't move when replacing, Michael Heerdegen, 2015/10/31
- [elpa] master f7207e1 01/22: call syntax functions less often for better efficiency, Michael Heerdegen, 2015/10/31
- [elpa] master 0da07c0 06/22: some doc tweaks, Michael Heerdegen, 2015/10/31
- [elpa] master a621d16 04/22: remove not so useful message of how to repeat search, Michael Heerdegen, 2015/10/31
- [elpa] master 3459015 03/22: allow search wrapping,
Michael Heerdegen <=
- [elpa] master ef3e3a0 07/22: rename a local variable, Michael Heerdegen, 2015/10/31
- [elpa] master d020482 05/22: change a TODO entry; no code change, Michael Heerdegen, 2015/10/31
- [elpa] master 113e0fd 11/22: fix whitespace, Michael Heerdegen, 2015/10/31
- [elpa] master 7d645e6 18/22: fix whitespace, Michael Heerdegen, 2015/10/31
- [elpa] master 61c3b71 13/22: require cl-lib only at compile time, Michael Heerdegen, 2015/10/31
- [elpa] master 1a1a49d 17/22: spelling fixes, Michael Heerdegen, 2015/10/31
- [elpa] master c546111 14/22: on-screen: bump version, Michael Heerdegen, 2015/10/31
- [elpa] master 18683a6 09/22: fix el-search-hl-post-command-fun auto-removal, Michael Heerdegen, 2015/10/31
- [elpa] master 7371526 10/22: document el-search--do-subsexps, Michael Heerdegen, 2015/10/31
- [elpa] master 96959c6 19/22: improve docs; new: el-search-defpattern; add some pattern types, Michael Heerdegen, 2015/10/31