emacs 31main

1 files changed, 4 insertions, 4 deletions

diff --git a/lib/media/jao-mpc.el b/lib/media/jao-mpc.el
index 5228787..3c6aa85 100644
--- a/lib/media/jao-mpc.el
+++ b/lib/media/jao-mpc.el
@@ -1,6 +1,6 @@
 ;;; jao-mpc.el --- Using mpc to interact with mpd   -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2021, 2022, 2024, 2025  jao
+;; Copyright (C) 2021, 2022, 2024, 2025, 2026  jao
 
 ;; Author: jao <mail@jao.io>
 ;; Keywords: convenience
@@ -128,7 +128,7 @@
 (defvar jao-mpc--idle-procs nil)
 
 (defun jao-mpc--idle-loop (&optional port)
-  (when-let (proc (alist-get port jao-mpc--idle-procs))
+  (when-let* ((proc (alist-get port jao-mpc--idle-procs)))
     (ignore-errors (kill-process proc)))
   (setf (alist-get port jao-mpc--idle-procs nil t)
         (make-process :name (format "jao-mpc-idleloop (%s)" port)
@@ -151,7 +151,7 @@
   (read-only-mode 1))
 
 (defun jao-mpc--album-buffer ()
-  (if-let (b (get-buffer jao-mpc--albums))
+  (if-let* ((b (get-buffer jao-mpc--albums)))
       b
     (with-current-buffer (get-buffer-create jao-mpc--albums)
       (jao-mpc-albums-mode)
@@ -355,7 +355,7 @@
                          (jao-mpc--cmd jao-mpc--simple-albums-cmd port)
                        albums-str))
          (albums (split-string albums-str "\n" t)))
-    (when-let (album (completing-read "Play album: " albums nil t))
+    (when-let* ((album (completing-read "Play album: " albums nil t)))
       (jao-mpc--add-and-play (car (split-string album "-" t " ")) port))))
 
 (provide 'jao-mpc)