From 4ee9d93778dc0915f874b425ce405b19903a3e10 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 20 Oct 2024 08:03:08 +0300 Subject: [PATCH] ; Avoid byte-compiler warning in mpc.el * lisp/mpc.el (mpc-cmd-crossfade): Move after definition of 'mpc-crossfade-time', because the function uses it. (cherry picked from commit 80627a31c67b383393c53bd87dd21b7f0de3844e) --- lisp/mpc.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/mpc.el b/lisp/mpc.el index 6c6ca4574f9..0d097a6c138 100644 --- a/lisp/mpc.el +++ b/lisp/mpc.el @@ -872,11 +872,6 @@ If PLAYLIST is t or nil or missing, use the main playlist." (defun mpc-cmd-tagtypes () (mapcar #'cdr (mpc-proc-cmd-to-alist "tagtypes"))) -(defun mpc-cmd-crossfade (&optional arg) - "Set duration of crossfade to `mpc-crossfade-time' or ARG seconds." - (mpc-proc-cmd (list "crossfade" (or arg mpc-crossfade-time)) - #'mpc-status-refresh)) - ;; This was never integrated into MPD. ;; (defun mpc-cmd-download (file) ;; (with-current-buffer (generate-new-buffer " *mpc download*") @@ -917,6 +912,11 @@ If PLAYLIST is t or nil or missing, use the main playlist." :version "31.1" :type 'natnum) +(defun mpc-cmd-crossfade (&optional arg) + "Set duration of crossfade to `mpc-crossfade-time' or ARG seconds." + (mpc-proc-cmd (list "crossfade" (or arg mpc-crossfade-time)) + #'mpc-status-refresh)) + (defun mpc-data-directory () (unless (file-directory-p mpc-data-directory) (make-directory mpc-data-directory)) -- 2.39.5