[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 68122d9 1/2: When coming from isearch, don't move to other
From: |
Michael Heerdegen |
Subject: |
[elpa] master 68122d9 1/2: When coming from isearch, don't move to other end |
Date: |
Thu, 31 Dec 2015 22:10:04 +0000 |
branch: master
commit 68122d9b556d682332b1b3a64c67e78f0bf8f8d3
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
When coming from isearch, don't move to other end
when at match end
---
packages/el-search/el-search.el | 7 +------
1 files changed, 1 insertions(+), 6 deletions(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index ff24166..0481fef 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -848,12 +848,7 @@ Hit any key to proceed."
(el-search-search-and-replace-pattern from to mapping))
(defun el-search--take-over-from-isearch ()
- (let ((other-end isearch-other-end)
- (input isearch-string))
- (isearch-exit)
- (when (and other-end (< other-end (point)))
- (goto-char other-end))
- input))
+ (prog1 isearch-string (isearch-exit)))
;;;###autoload
(defun el-search-search-from-isearch ()