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 ()