From 97344c85a0657e479177620daa5b3bdc956e31fb Mon Sep 17 00:00:00 2001 From: William Xu Date: Sat, 1 Aug 2009 10:40:20 +0800 Subject: (emms-player-vlc-start): Around-advice it with `quit-vlc-after-finish' to resolve "function redefined" compile warnings. --- lisp/emms-player-vlc.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'lisp') diff --git a/lisp/emms-player-vlc.el b/lisp/emms-player-vlc.el index 9a42434..34ddd25 100644 --- a/lisp/emms-player-vlc.el +++ b/lisp/emms-player-vlc.el @@ -45,15 +45,14 @@ ;; track, so the player sentinel has no way of telling that the next ;; track should be played. Therefore I redefine this low-level ;; function and add a "quit" track which is invisible to Emms. -(defun emms-player-vlc-start (track) - "Cause vlc to play TRACK." +(defadvice emms-player-vlc-start (around quit-vlc-after-finish activate) (let ((process (apply 'start-process emms-player-simple-process-name nil "vlc" ;; splice in params here (append '("vlc" "--intf" "rc") - (list (emms-track-name track)) + (list (emms-track-name (ad-get-arg 0))) '("vlc://quit"))))) ;; add a sentinel for signaling termination (set-process-sentinel process 'emms-player-simple-sentinel)) -- cgit v1.2.3