{if,when}-let deprecation in emacs 31

1 files changed, 3 insertions, 3 deletions

diff --git a/lib/media/jao-mpc.el b/lib/media/jao-mpc.el
index 0f000da..52fdfbf 100644
--- a/lib/media/jao-mpc.el
+++ b/lib/media/jao-mpc.el
@@ -125,7 +125,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)
@@ -146,7 +146,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)
@@ -332,7 +332,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)