diff options
| author | jao <jao@gnu.org> | 2020-10-14 04:27:45 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2020-10-14 04:27:45 +0100 |
| commit | f3f859a5328e35094e183a24235034464c81c96e (patch) | |
| tree | fd5a2d1ed25fa91f3a15a9cd4b32d541efee4b3b | |
| parent | 43129ccf04b230bf4620c666b75c1bafba219090 (diff) | |
| download | elibs-f3f859a5328e35094e183a24235034464c81c96e.tar.gz elibs-f3f859a5328e35094e183a24235034464c81c96e.tar.bz2 | |
jao-maildir: group for new face
| -rw-r--r-- | net/jao-maildir.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/net/jao-maildir.el b/net/jao-maildir.el index 41b5ecc..ee064a1 100644 --- a/net/jao-maildir.el +++ b/net/jao-maildir.el @@ -61,7 +61,8 @@ :group 'faces) (defface jao-maildir-emph '((t :inherit font-lock-keyword-face)) - "Face used to highlihgt non-boring tracked maildirs") + "Face used to highlihgt non-boring tracked maildirs" + :group 'jao-maildir-faces) (defun jao-maildir--update-mode-line-string () (let ((total 0) @@ -76,7 +77,8 @@ (am (when a (format "%s%s" an n))) (am (when am (if ab am (propertize am 'face 'jao-maildir-emph))))) (when (null a) (setq total (+ n total))) - (when a (if ab (push am counts) (nconc counts (list am))))))) + (when a + (if ab (push am counts) (setq counts (nconc counts (list am)))))))) (let* ((total (if (> total 0) (format " %d " total) " ")) (s (mapconcat 'identity counts " ")) (s (if (string-empty-p s) s (concat s " ")))) |