]> git.eshelyaron.com Git - emacs.git/commitdiff
; Avoid byte-compiler warning in mpc.el
authorEli Zaretskii <eliz@gnu.org>
Sun, 20 Oct 2024 05:03:08 +0000 (08:03 +0300)
committerEshel Yaron <me@eshelyaron.com>
Tue, 22 Oct 2024 19:00:24 +0000 (21:00 +0200)
* 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

index 6c6ca4574f9bd60e9b6c358c114ce4fcfcfba1c8..0d097a6c1386678458b237c261096a09e731888a 100644 (file)
@@ -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))