[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emms-patches] [COMMIT] (emms-player-vlc-start): Around-advice it with `
From: |
William Xu |
Subject: |
[Emms-patches] [COMMIT] (emms-player-vlc-start): Around-advice it with `quit-vlc-after-finish' to resolve "function redefined" compile warnings. |
Date: |
Sat, 1 Aug 2009 10:40:20 +0800 |
---
lisp/emms-player-vlc.el | 5 ++---
1 files changed, 2 insertions(+), 3 deletions(-)
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))
--
debian.1.5.6.1.19.ge6b2
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emms-patches] [COMMIT] (emms-player-vlc-start): Around-advice it with `quit-vlc-after-finish' to resolve "function redefined" compile warnings.,
William Xu <=