diff options
author | Case Duckworth | 2022-02-08 14:15:03 -0600 |
---|---|---|
committer | Case Duckworth | 2022-02-08 14:15:03 -0600 |
commit | 269d8f687ee81149cc24430406898ce196815f4d (patch) | |
tree | 198299cafa838a1f73d0a5421462a4e60e7c43e0 | |
parent | Don't pass the buffer to PREDICATE in `+mapc-some-buffers' (diff) | |
download | emacs-269d8f687ee81149cc24430406898ce196815f4d.tar.gz emacs-269d8f687ee81149cc24430406898ce196815f4d.zip |
Make +tab-bar-{emms,bongo} work when those libraries aren't loaded
-rw-r--r-- | lisp/+tab-bar.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/+tab-bar.el b/lisp/+tab-bar.el index c5a93dc..169cb53 100644 --- a/lisp/+tab-bar.el +++ b/lisp/+tab-bar.el | |||
@@ -54,7 +54,7 @@ | |||
54 | 54 | ||
55 | (defun +tab-bar-emms () | 55 | (defun +tab-bar-emms () |
56 | "Display EMMS now playing information." | 56 | "Display EMMS now playing information." |
57 | (when (and emms-mode-line-mode | 57 | (when (and (bound-and-true-p emms-mode-line-mode) |
58 | emms-player-playing-p) | 58 | emms-player-playing-p) |
59 | (let ((now-playing (+string-truncate (emms-mode-line-playlist-current) | 59 | (let ((now-playing (+string-truncate (emms-mode-line-playlist-current) |
60 | (- +tab-bar-emms-max-length 2)))) | 60 | (- +tab-bar-emms-max-length 2)))) |
@@ -65,7 +65,7 @@ | |||
65 | 65 | ||
66 | (defun +tab-bar-bongo () | 66 | (defun +tab-bar-bongo () |
67 | "Display Bongo now playing information." | 67 | "Display Bongo now playing information." |
68 | (when-let ((modep bongo-mode-line-indicator-mode) | 68 | (when-let ((modep (bound-and-true-p bongo-mode-line-indicator-mode)) |
69 | (buf (cl-some (lambda (b) | 69 | (buf (cl-some (lambda (b) |
70 | (with-current-buffer b | 70 | (with-current-buffer b |
71 | (when-let* ((modep (derived-mode-p 'bongo-playlist-mode)) | 71 | (when-let* ((modep (derived-mode-p 'bongo-playlist-mode)) |