1 files changed, 5 insertions, 0 deletions
diff --git a/emms.el b/emms.el
index e2f2fa3..0bcc686 100644
--- a/emms.el
+++ b/emms.el
@@ -504,6 +504,11 @@ whenever possible."
     (run-hook-with-args 'emms-track-initialize-functions track)
     track))
 
+(defun emms-track-p (obj)
+  "True if OBJ is an emms track."
+  (and (listp obj)
+       (eq (car obj) '*track*)))
+
 (defun emms-track-type (track)
   "Return the type of TRACK."
   (emms-track-get track 'type))