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-info-ogginfo.el | |
| parent | da7d1d0ebae7e4b6d8027a7fec3eef0c3816f2b6 (diff) | |
Fix a variety of compilation errors and warnings.
darcs-hash:20060401232610-1bfb2-5fe5e4892c94e29a59738bf0d27e7e91ad68f2ed.gz
Diffstat (limited to 'emms-info-ogginfo.el')
| -rw-r--r-- | emms-info-ogginfo.el | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/emms-info-ogginfo.el b/emms-info-ogginfo.el index b6d8414..b6f4a0e 100644 --- a/emms-info-ogginfo.el +++ b/emms-info-ogginfo.el @@ -25,6 +25,8 @@ ;;; Code: +(require 'emms-info) + (defgroup emms-info-ogginfo nil "An EMMS-info method for getting, using the external ogginfo program" @@ -54,15 +56,15 @@ This is a useful element for `emms-info-functions'." ;; play time, emms-info-ogg.el [U. Jensen] (goto-char (point-min)) (re-search-forward "Playback length: \\([0-9]*\\)m:\\([0-9]*\\)") - (let ((minutes (string-to-int (match-string 1))) - (seconds (string-to-int (match-string 2)))) - (setq ptime-total (+ (* minutes 60) seconds) - ptime-min minutes - ptime-sec seconds)) - (emms-track-set track 'info-playing-time ptime-total) - (emms-track-set track 'info-playing-time-min ptime-min) - (emms-track-set track 'info-playing-time-sec ptime-sec) - (emms-track-set track 'info-file (emms-track-name track)) + (let* ((minutes (string-to-number (match-string 1))) + (seconds (string-to-number (match-string 2))) + (ptime-total (+ (* minutes 60) seconds)) + (ptime-min minutes) + (ptime-sec seconds)) + (emms-track-set track 'info-playing-time ptime-total) + (emms-track-set track 'info-playing-time-min ptime-min) + (emms-track-set track 'info-playing-time-sec ptime-sec) + (emms-track-set track 'info-file (emms-track-name track))) ;; all the rest of the info available (goto-char (point-min)) |