[emms-help] Some bugs due to new features

[Lucas Bonnet]

Hello !

I use (emms-setup 'cvs) (of course !), and I noticed a few bugs since
the introduction of new features (lyrics & playing-time).

First bug, I don't get total time for .ogg files. If there's no easy way
to get it, wouldn't it be simpler to just deactivate it ? Same for
streams :)

Second bug, apparently triggered when I play the first track of my EMMS
session :

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  1+(nil)
  (substring time-string (1+ semi-pos) (1- (length time-string)))
  (string-to-number (substring time-string (1+ semi-pos) (1- ...)))
  (+ (* (string-to-number ...) 60) (string-to-number (substring time-string ... 
...)))
  (setq time (+ (* ... 60) (string-to-number ...)))
  (let* ((time-string ...) (semi-pos ...)) (setq time (+ ... ...)) (setq 
lyric-string (substring lyric-string ...)) (setq emms-lyric-alist (append 
emms-lyric-alist ...)) (setq time 0))
  (while (string-match "\\[[0-9:.]+\\]" lyric-string) (let* (... ...) (setq 
time ...) (setq lyric-string ...) (setq emms-lyric-alist ...) (setq time 0)))
  (let ((lyric-string ...) (time 0) (lyric "")) (setq lyric 
(replace-regexp-in-string ".*\\]" "" lyric-string)) (while (string-match 
"\\[[0-9:.]+\\]" lyric-string) (let* ... ... ... ... ...)))
  (while (search-forward-regexp "\\[[0-9:.]+\\].*" nil t) (let (... ... ...) 
(setq lyric ...) (while ... ...)))
  (save-current-buffer (set-buffer temp-buffer) (insert-file-contents file) 
(while (search-forward-regexp "\\[[0-9:.]+\\].*" nil t) (let ... ... ...)) t)
  (with-current-buffer temp-buffer (insert-file-contents file) (while 
(search-forward-regexp "\\[[0-9:.]+\\].*" nil t) (let ... ... ...)) t)
  (unwind-protect (with-current-buffer temp-buffer (insert-file-contents file) 
(while ... ...) t) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... 
... t) (and ... ...)))
  (with-temp-buffer (insert-file-contents file) (while (search-forward-regexp 
"\\[[0-9:.]+\\].*" nil t) (let ... ... ...)) t)
  (progn (with-temp-buffer (insert-file-contents file) (while ... ...) t))
  (if (and file (not ...) (file-exists-p file)) (progn (with-temp-buffer ... 
... t)))
  (when (and file (not ...) (file-exists-p file)) (with-temp-buffer 
(insert-file-contents file) (while ... ...) t))
  (progn (unless (file-exists-p file) (setq file ...)) (when (and file ... ...) 
(with-temp-buffer ... ... t)))
  (if emms-lyric-display-p (progn (unless ... ...) (when ... ...)))
  (when emms-lyric-display-p (unless (file-exists-p file) (setq file ...)) 
(when (and file ... ...) (with-temp-buffer ... ... t)))
  emms-lyric-read-file("/zic/Albums/EST - Seven days of falling/03 - Mingle In 
The Mincing-Machine.ogg")
  (and emms-lyric-display-p (emms-lyric-read-file (replace-regexp-in-string 
"\\.mp3$" ".lrc" ...)))
  (if (and emms-lyric-display-p (emms-lyric-read-file ...)) (progn 
(emms-lyric-set-timer)))
  (when (and emms-lyric-display-p (emms-lyric-read-file ...)) 
(emms-lyric-set-timer))
  emms-lyric-start()
  run-hooks(emms-player-started-hook)
  (if (not player) (error "Don't know how to play track: %s" track) (funcall 
(emms-player-get player ...) track) (setq emms-player-playing-p player) 
(run-hooks (quote emms-player-started-hook)))
  (let ((player ...)) (if (not player) (error "Don't know how to play track: 
%s" track) (funcall ... track) (setq emms-player-playing-p player) (run-hooks 
...)))
  (if emms-player-playing-p (error "A player is already playing") (let (...) 
(if ... ... ... ... ...)))
  emms-player-start((*track* (type . file) (name . "/zic/Albums/EST - Seven 
days of falling/03 - Mingle In The Mincing-Machine.ogg") (metadata)))
  (if emms-player-playing-p nil (emms-player-start 
(emms-playlist-current-track)))
  (unless emms-player-playing-p (emms-player-start 
(emms-playlist-current-track)))
  emms-start()
  (let ((new ...)) (when (zerop ...) (error "No tracks found")) (emms-stop) 
(emms-playlist-set-playlist new) (emms-playlist-set-current 0) (emms-start))
  emms-source-play(((*track* (type . file) (name . "/zic/Albums/EST - Seven 
days of falling/03 - Mingle In The Mincing-Machine.ogg") (metadata))))
  emms-play-file("/zic/Albums/EST - Seven days of falling/03 - Mingle In The 
Mincing-Machine.ogg")
  emms-pwim("/zic/Albums/EST - Seven days of falling/03 - Mingle In The 
Mincing-Machine.ogg" t)
  call-interactively(emms-pwim)


--
Lucas