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-ogg.el | |
| parent | da7d1d0ebae7e4b6d8027a7fec3eef0c3816f2b6 (diff) | |
Fix a variety of compilation errors and warnings.
darcs-hash:20060401232610-1bfb2-5fe5e4892c94e29a59738bf0d27e7e91ad68f2ed.gz
Diffstat (limited to 'emms-info-ogg.el')
| -rw-r--r-- | emms-info-ogg.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/emms-info-ogg.el b/emms-info-ogg.el index 7d5ce02..6178415 100644 --- a/emms-info-ogg.el +++ b/emms-info-ogg.el @@ -61,13 +61,14 @@ ogg-comments.el" (when (and (eq 'file (emms-track-type track)) (string-match "\\.[Oo][Gg][Gg]\\'" (emms-track-name track))) (let ((info (oggc-read-header (emms-track-name track))) - (file (emms-track-get track 'name))) + (file (emms-track-get track 'name)) + ptime-total ptime-min ptime-sec) (with-temp-buffer (call-process "ogginfo" nil t nil file) (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)))) + (let ((minutes (string-to-number (match-string 1))) + (seconds (string-to-number (match-string 2)))) (setq ptime-total (+ (* minutes 60) seconds) ptime-min minutes ptime-sec seconds))) |