From 122215ea485bb61d4863085815b799dd707f3a56 Mon Sep 17 00:00:00 2001 From: Michael Heerdegen Date: Sun, 10 Jan 2016 06:34:45 +0100 Subject: [PATCH 1/1] Go to isearch left end when starting replace with el-search from isearch This partially reverts "When coming from isearch, don't move to other end". --- packages/el-search/el-search.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el index f6c8c48e0..2f69f5f87 100644 --- a/packages/el-search/el-search.el +++ b/packages/el-search/el-search.el @@ -952,8 +952,13 @@ Hit any key to proceed." (barf-if-buffer-read-only) (el-search-search-and-replace-pattern from to mapping)) -(defun el-search--take-over-from-isearch () - (prog1 isearch-string (isearch-exit))) +(defun el-search--take-over-from-isearch (&optional goto-left-end) + (let ((other-end (and goto-left-end isearch-other-end)) + (input isearch-string)) + (isearch-exit) + (when (and other-end (< other-end (point))) + (goto-char other-end)) + input)) ;;;###autoload (defun el-search-search-from-isearch () @@ -968,7 +973,7 @@ Hit any key to proceed." ;;;###autoload (defun el-search-replace-from-isearch () (interactive) - (let ((el-search--initial-mb-contents (concat "'" (el-search--take-over-from-isearch)))) + (let ((el-search--initial-mb-contents (concat "'" (el-search--take-over-from-isearch t)))) (call-interactively #'el-search-query-replace))) -- 2.39.2