diff options
| author | Case Duckworth | 2022-04-02 13:58:17 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-04-02 13:58:17 -0500 |
| commit | f479cd9b30a8cd51042e7d4794bd8f86285c5130 (patch) | |
| tree | 9c0b2f11d27f1603e038905932fc30b40765f006 /lisp/+tab-bar.el | |
| parent | Experiment: remove most font-lock faces (diff) | |
| parent | Add +scratch-buffer (diff) | |
| download | emacs-f479cd9b30a8cd51042e7d4794bd8f86285c5130.tar.gz emacs-f479cd9b30a8cd51042e7d4794bd8f86285c5130.zip | |
Merge branch 'main' of tildegit.org:acdw/emacs
Diffstat (limited to 'lisp/+tab-bar.el')
| -rw-r--r-- | lisp/+tab-bar.el | 3 |
1 files changed, 2 insertions, 1 deletions
| diff --git a/lisp/+tab-bar.el b/lisp/+tab-bar.el index 5d018b5..1f4745d 100644 --- a/lisp/+tab-bar.el +++ b/lisp/+tab-bar.el | |||
| @@ -52,7 +52,8 @@ | |||
| 52 | 52 | ||
| 53 | (defun +tab-bar-notmuch-count () | 53 | (defun +tab-bar-notmuch-count () |
| 54 | "Display a notmuch count in the tab-bar." | 54 | "Display a notmuch count in the tab-bar." |
| 55 | (when (featurep 'notmuch) | 55 | (when (and (executable-find "notmuch") |
| 56 | (featurep 'notmuch)) | ||
| 56 | (let* ((counts (ignore-errors (notmuch-hello-query-counts notmuch-saved-searches))) | 57 | (let* ((counts (ignore-errors (notmuch-hello-query-counts notmuch-saved-searches))) |
| 57 | (next (cl-find "inbox" counts :key (lambda (l) (plist-get l :name)) :test 'equal)) | 58 | (next (cl-find "inbox" counts :key (lambda (l) (plist-get l :name)) :test 'equal)) |
| 58 | (next-count (plist-get next :count))) | 59 | (next-count (plist-get next :count))) |