diff options
Diffstat (limited to 'lib/media/jao-mpc.el')
| -rw-r--r-- | lib/media/jao-mpc.el | 6 |
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) |