branch: elpa/isl
commit 1cd57d2e529e97db9980b87ae0e391f54cbf0b76
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Add basic infos to mode-line
---
isearch-light.el | 24 ++++++++++++++----------
1 file changed, 14 insertions(+), 10 deletions(-)
diff --git a/isearch-light.el b/isearch-light.el
index f4004939b19..d403923656f 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -202,16 +202,20 @@
(cond ((string= isl-pattern "")
(default-value 'mode-line-format))
((zerop isl-number-results)
- (format " No results found for `%s' [%s]"
- (propertize isl-pattern
- 'face 'isl-on)
- style))
- (t (format " [%s] results(s) found for `%s' [%s]"
- (propertize (number-to-string isl-number-results)
- 'face 'isl-number)
- (propertize isl-pattern
- 'face 'isl-string)
- style))))))
+ `(" " mode-line-buffer-identification " "
+ (:eval ,(format "No results found for `%s' [%s]"
+ (propertize isl-pattern
+ 'face 'isl-on)
+ style))
+ " " mode-line-position))
+ (t `(" " mode-line-buffer-identification " "
+ (:eval ,(format "[%s] results(s) found for `%s' [%s]"
+ (propertize (number-to-string
isl-number-results)
+ 'face 'isl-number)
+ (propertize isl-pattern
+ 'face 'isl-string)
+ style))
+ " " mode-line-position))))))
(defun isl-closest-overlay (pos overlays)
"Return closest overlay from POS in OVERLAYS list."
