diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emms-info.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/emms-info.el b/lisp/emms-info.el index 9b0ffa8..2d089ac 100644 --- a/lisp/emms-info.el +++ b/lisp/emms-info.el @@ -124,12 +124,15 @@ Return nil otherwise." nil)) (defun emms-info-track-description (track) - "Return a description of the current track." + "Return a description of TRACK." (let ((artist (emms-track-get track 'info-artist)) - (title (emms-track-get track 'info-title))) - (if (and artist title) - (format "%s - %s" artist title) - (emms-track-simple-description track)))) + (title (emms-track-get track 'info-title))) + (cond + ((and artist title) + (concat artist " - " title)) + (title + title) + (emms-track-simple-description track)))) (provide 'emms-info) ;;; emms-info.el ends here |