projects
/
elisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Updated the flyspell face handling. No idea why I have to set them through a hook.
[elisp.git]
/
text-counters.el
diff --git
a/text-counters.el
b/text-counters.el
index
484bc94
..
fb24df7
100644
(file)
--- a/
text-counters.el
+++ b/
text-counters.el
@@
-18,6
+18,11
@@
;; Contact <francois@fleuret.org> for comments & bug reports ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Contact <francois@fleuret.org> for comments & bug reports ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(defface tc/modeline-face
+ '((((background light)) (:foreground "blue4"))
+ (((background dark)) (:foreground "cyan")))
+ "The face for the alarm-vc modeline message.")
+
;; Counts the number of words and characters between the previous and
;; the next line of '-' (with at least four '-' in each line)
;; Counts the number of words and characters between the previous and
;; the next line of '-' (with at least four '-' in each line)
@@
-30,7
+35,8
@@
(match-beginning 0)))))
(when (and a b)
(match-beginning 0)))))
(when (and a b)
- (format "%dw %dc " (count-words a b) (- b a))
+ (propertize (format "%dw %dc " (count-words a b) (- b a))
+ 'face 'tc/modeline-face)
)))
;; Add the said counters into the modeline
)))
;; Add the said counters into the modeline