aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorTim Landscheidt <tim@tim-landscheidt.de>2010-07-08 11:47:04 +0000
committerTim Landscheidt <tim@tim-landscheidt.de>2010-07-08 11:47:04 +0000
commitd5809a45b5f720b3518ad315741a711904e78599 (patch)
treef4e275d753b0a46f5b63f60e317808fb6a7970c7 /lisp
parent7121df96f2a8ad129de7ec105cd16dc314eee7bc (diff)
emms-info-track-description: Handle title-only tracks and fix documentation.
* lisp/emms-info.el: Handle tracks without artist, but with title information gracefully and fix documentation.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emms-info.el13
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