From 3a77b8856e8c761876facfa1dea2f3534d944b6c Mon Sep 17 00:00:00 2001 From: 0x60df <0x60df@gmail.com> Date: Mon, 16 Jun 2025 00:09:40 +0900 Subject: [PATCH 1/2] Fix prefix of isearch message when migemo is not used --- migemo.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/migemo.el b/migemo.el index 1c34507..90157b4 100644 --- a/migemo.el +++ b/migemo.el @@ -623,9 +623,10 @@ into the migemo's regexp pattern." (defun migemo--isearch-message-prefix (orig-val) (let ((str "[MIGEMO]")) - (when (and migemo-isearch-enable-p - (not (or isearch-regexp (migemo--isearch-regexp-function)))) - (concat str " " orig-val)))) + (if (and migemo-isearch-enable-p + (not (or isearch-regexp (migemo--isearch-regexp-function)))) + (concat str " " orig-val) + orig-val))) (advice-add 'isearch-message-prefix :filter-return #'migemo--isearch-message-prefix) (defun migemo--isearch-lazy-highlight-new-loop (orig-fun &rest args) From 7b13390d1a0a3aa841506e7504325af5db88d746 Mon Sep 17 00:00:00 2001 From: 0x60df <0x60df@gmail.com> Date: Mon, 16 Jun 2025 00:21:50 +0900 Subject: [PATCH 2/2] Improve appearance of isearch message prefix of migemo --- migemo.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/migemo.el b/migemo.el index 90157b4..b9bfc74 100644 --- a/migemo.el +++ b/migemo.el @@ -622,7 +622,7 @@ into the migemo's regexp pattern." :type 'face) (defun migemo--isearch-message-prefix (orig-val) - (let ((str "[MIGEMO]")) + (let ((str (propertize "[MIGEMO]" 'face migemo-message-prefix-face))) (if (and migemo-isearch-enable-p (not (or isearch-regexp (migemo--isearch-regexp-function)))) (concat str " " orig-val)