From 9f9b56b7da323bc91cdde0bcc1e1863c523e7ee3 Mon Sep 17 00:00:00 2001 From: "Charles A. Roelli" Date: Tue, 26 Dec 2017 12:46:39 +0100 Subject: [PATCH] Fix highlighting in query-replace with non-nil replace-char-fold * lisp/replace.el (replace-highlight): Bind 'isearch-regexp-function' in the same way that function 'replace-search' does, so as to respect the value of 'replace-char-fold'. (Bug#24356) --- lisp/replace.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/replace.el b/lisp/replace.el index 80e584517ce..396428f6f28 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -2212,7 +2212,10 @@ It is called with three arguments, as if it were (if query-replace-lazy-highlight (let ((isearch-string search-string) (isearch-regexp regexp-flag) - (isearch-regexp-function delimited-flag) + (isearch-regexp-function (or delimited-flag + (and replace-char-fold + (not regexp-flag) + #'char-fold-to-regexp))) (isearch-lax-whitespace replace-lax-whitespace) (isearch-regexp-lax-whitespace -- 2.39.2