diff options
author | Michael Olson <mwolson@gnu.org> | 2006-04-01 23:26:00 +0000 |
---|---|---|
committer | Michael Olson <mwolson@gnu.org> | 2006-04-01 23:26:00 +0000 |
commit | 438e7ec52497afc1aa5799f13d83156ccfda1f15 (patch) | |
tree | deae711aca2c4dd535d9f999c9c05059621bc5ed /emms-mode-line.el | |
parent | da7d1d0ebae7e4b6d8027a7fec3eef0c3816f2b6 (diff) |
Fix a variety of compilation errors and warnings.
darcs-hash:20060401232610-1bfb2-5fe5e4892c94e29a59738bf0d27e7e91ad68f2ed.gz
Diffstat (limited to 'emms-mode-line.el')
-rw-r--r-- | emms-mode-line.el | 16 |
1 files changed, 3 insertions, 13 deletions
diff --git a/emms-mode-line.el b/emms-mode-line.el index 83f1e67..4730393 100644 --- a/emms-mode-line.el +++ b/emms-mode-line.el @@ -53,22 +53,12 @@ (defun emms-mode-line-playlist-current () "Format the currently playing song" - (format - emms-mode-line-format - (let* ((track (emms-playlist-current-selected-track)) - (artist (emms-track-get track 'info-artist)) - (title (emms-track-get track 'info-title)) - (type (emms-track-type track))) - ;; when artist or title info cann't be achieved, show file name - ;; without directory. - (if (and (not (and artist title)) - (eq 'file type)) - (file-name-nondirectory (emms-track-name track)) - (emms-track-description - (emms-playlist-current-selected-track)))))) + (format emms-mode-line-format (emms-track-description + (emms-playlist-current-selected-track)))) (defvar emms-mode-line-active-p nil "If non-nil, emms mode line is active.") +(defvar emms-mode-line-string "") (defvar emms-mode-line-initial-titlebar frame-title-format) |