Fall back to description property when showing description

1 files changed, 4 insertions, 2 deletions

diff --git a/emms.el b/emms.el
index 2186853..92ccea8 100644
--- a/emms.el
+++ b/emms.el
@@ -722,8 +722,10 @@ return the type and the name with a colon in between.
 Hex-encoded characters in URLs are replaced by the decoded
 character."
   (let ((type (emms-track-type track)))
-    (cond ((eq 'file type)
-           (emms-track-name track))
+    (cond ((emms-track-get track 'description)
+	   (emms-track-get track 'description))
+	  ((eq 'file type)
+	   (emms-track-name track))
           ((eq 'url type)
            (emms-format-url-track-name (emms-track-name track)))
           (t (concat (symbol-name type)