branch: elpa/isl
commit 23b31e6a60976aa69ad798cf34de51189f6f6b50
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Add a face fro case fold string in mode-line
---
isearch-light.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/isearch-light.el b/isearch-light.el
index f017dc8eb71..70cd8668caa 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -139,6 +139,10 @@ in pattern."
(defface isl-string
'((t :foreground "Lightgoldenrod1" :bold t))
"Face used to highlight pattern in mode-line.")
+
+(defface isl-case-fold
+ '((t :inherit isl-string))
+ "Face used to highlight case sensitivity string in mode-line.")
(defvar isl-map
(let ((map (make-sparse-keymap)))
@@ -533,7 +537,7 @@ symbol position."
(`smart "*")
(`t "1")
(`nil "0"))
- 'face 'isl-number)))
+ 'face 'isl-case-fold)))
" " mode-line-position))))))
(defun isl-closest-overlay (pos overlays)
