]> code.delx.au - gnu-emacs-elpa/blobdiff - packages/el-search/el-search.el
Merge commit '899a1f2bad8795a29c0df09c1bd28b3a3b7e48f8'
[gnu-emacs-elpa] / packages / el-search / el-search.el
index ff24166dd0b9daf2559bba6ed8b8371a9727cde0..22a20a4bd3262278a8b50249d0e9a1d110a762f6 100644 (file)
@@ -7,7 +7,7 @@
 ;; Created: 29 Jul 2015
 ;; Keywords: lisp
 ;; Compatibility: GNU Emacs 25
-;; Version: 0.1.2
+;; Version: 0.1.3
 ;; Package-Requires: ((emacs "25"))
 
 
@@ -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 ()