From 37853487955cb1eb28220448e48d96f9125c3685 Mon Sep 17 00:00:00 2001
From: forcer <forcer>
Date: Wed, 7 Jun 2006 15:05:00 +0000
Subject: emms sources now switch add/play behavior when a prefix argument is
 supplied.

darcs-hash:20060607150502-2189f-111d096517e1b849d49e7f196852e51937a31b58.gz
---
 emms.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'emms.el')

diff --git a/emms.el b/emms.el
index cdc8a5d..28ece74 100644
--- a/emms.el
+++ b/emms.el
@@ -1088,11 +1088,17 @@ See emms-source-file.el for some examples."
        (defun ,source-play ,arglist
          ,docstring
          ,interactive
-         (emms-source-play ',source-name ,@call-args))
+         (if current-prefix-arg
+             (let ((current-prefix-arg nil))
+               (emms-source-add ',source-name ,@call-args))
+           (emms-source-play ',source-name ,@call-args)))
        (defun ,source-add ,arglist
          ,docstring
          ,interactive
-         (emms-source-add ',source-name ,@call-args))
+         (if current-prefix-arg
+             (let ((current-prefix-arg nil))
+               (emms-source-play ',source-name ,@call-args))
+           (emms-source-add ',source-name ,@call-args)))
        (defun ,source-insert ,arglist
          ,docstring
          ,interactive
-- 
cgit v1.2.3