From f3f859a5328e35094e183a24235034464c81c96e Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 14 Oct 2020 04:27:45 +0100 Subject: jao-maildir: group for new face --- net/jao-maildir.el | 6 ++++-- 1 file 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 " ")))) -- cgit v1.2.3