emms sources now switch add/play behavior when a prefix argument is supplied.

darcs-hash:20060607150502-2189f-111d096517e1b849d49e7f196852e51937a31b58.gz

1 files changed, 8 insertions, 2 deletions

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