From f2fb69f08ed7783406639de09747529c24416983 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 12 Oct 2020 22:56:35 +0300 Subject: [PATCH] * lisp/isearch.el (isearch-search): Set isearch-match-data in the right place. --- lisp/isearch.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index 1efd9b21304..0879f948cff 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -3451,10 +3451,10 @@ Optional third argument, if t, means if fail just return nil (no error). (match-beginning 0) (match-end 0))) (setq retry nil))) (setq isearch-just-started nil) - (setq isearch-match-data (match-data t)) - (if isearch-success - (setq isearch-other-end - (if isearch-forward (match-beginning 0) (match-end 0))))) + (when isearch-success + (setq isearch-other-end + (if isearch-forward (match-beginning 0) (match-end 0))) + (setq isearch-match-data (match-data t)))) (quit (isearch-unread ?\C-g) (setq isearch-success nil)) -- 2.39.5