branch: elpa/isl
commit eb23c6c3436e257a2dcaf82bca2e3e139f9025ae
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>

    Improve changing direction message (mimic prompt)
---
 isearch-light.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/isearch-light.el b/isearch-light.el
index 9b89e23eab2..1d5a765aa92 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -47,7 +47,10 @@
   (when (eq isl-direction 'backward)
     (setq isl-direction 'forward)
     (isl--set-iterator)
-    (message "Searching forward"))
+    (message "%s%s"
+             (apply #'propertize "search (forward): "
+                    minibuffer-prompt-properties)
+             isl-pattern))
   (isl-goto-next-1))
 
 (defun isl-goto-prev ()
@@ -55,7 +58,10 @@
   (when (eq isl-direction 'forward)
     (setq isl-direction 'backward)
     (isl--set-iterator)
-    (message "Searching backward"))
+    (message "%s%s"
+             (apply #'propertize "search (backward): "
+                    minibuffer-prompt-properties)
+             isl-pattern))
   (isl-goto-next-1))
 
 (defun isl-exit-at-point ()

Reply via email to