[Mp3player-bugs] Bug in playlist

[Lucas]

>From a Mp3player search result, when hitting "+" to add a dir to
playlist :


Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  -(nil 128)
  (insert-file-contents-literally file nil (- size 128) size)
  (save-current-buffer (set-buffer temp-buffer) (insert-file-contents-literally 
file nil (- size 128) size) (goto-char (point-min)) (if (string-match "TAG" 
...) (progn ...)))
  (with-current-buffer temp-buffer (insert-file-contents-literally file nil (- 
size 128) size) (goto-char (point-min)) (if (string-match "TAG" ...) (progn 
...)))
  (unwind-protect (with-current-buffer temp-buffer 
(insert-file-contents-literally file nil ... size) (goto-char ...) (if ... 
...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... 
... ...) (and ... ...)))
  (with-temp-buffer (insert-file-contents-literally file nil (- size 128) size) 
(goto-char (point-min)) (if (string-match "TAG" ...) (progn ...)))
  (let ((size ...)) (with-temp-buffer (insert-file-contents-literally file nil 
... size) (goto-char ...) (if ... ...)))
  mp3player-get-comments-from-file-internal-mp3("/mnt/zic/== Musique 
==/Albums/Brassens/07 - Mourir pour des id\x8e9\ es/Georges Brassens - 14 - 
Ballade\xe0\xd3 la Lune.mp3")
  (cond ((string-match mp3player-ogg-file-regexp file) 
(mp3player-get-comments-from-file-internal-ogg file)) ((string-match 
mp3player-mp3-file-regexp file) (mp3player-get-comments-from-file-internal-mp3 
file)))
  mp3player-get-comments-from-file-internal("/mnt/zic/== Musique 
==/Albums/Brassens/07 - Mourir pour des id\x8e9\ es/Georges Brassens - 14 - 
Ballade\xe0\xd3 la Lune.mp3")
  (if (equal mp3player-get-tag-method (quote internal)) 
(mp3player-get-comments-from-file-internal file) 
(mp3player-get-comments-from-file-external file))
  (or (and (not force) (gethash file mp3player-comments-hash)) (if (equal 
mp3player-get-tag-method ...) (mp3player-get-comments-from-file-internal file) 
(mp3player-get-comments-from-file-external file)))
  mp3player-get-comments-from-file("/mnt/zic/== Musique ==/Albums/Brassens/07 - 
Mourir pour des id\x8e9\ es/Georges Brassens - 14 - Ballade\xe0\xd3 la 
Lune.mp3")
  (let* ((file ...) (struct ...)) (if (string-match "\\(%[0-9]*[a-z]\\)" str) 
(let ... ... ...) str))
  mp3player-format-info-string("%a - %s" "/mnt/zic/== Musique 
==/Albums/Brassens/07 - Mourir pour des id\x8e9\ es/Georges Brassens - 14 - 
Ballade\xe0\xd3 la Lune.mp3")
  (concat (mp3player-format-info-string mp3player-playlist-format elt) "\n")
  (insert (concat (mp3player-format-info-string mp3player-playlist-format elt) 
"\n"))
  (while --dolist-temp--70145 (setq elt (car --dolist-temp--70145)) (insert 
(concat ... "\n")) (add-text-properties (line-beginning-position 0) 
(line-end-position 0) (\` ...)) (setq --dolist-temp--70145 (cdr 
--dolist-temp--70145)))
  (let ((--dolist-temp--70145 ...) elt) (while --dolist-temp--70145 (setq elt 
...) (insert ...) (add-text-properties ... ... ...) (setq --dolist-temp--70145 
...)) nil)
  (catch (quote --cl-block-nil--) (let (... elt) (while --dolist-temp--70145 
... ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... elt) (while --dolist-temp--70145 ... ... ... ...) nil))
  (dolist (elt (mp3player-get-files list)) (insert (concat ... "\n")) 
(add-text-properties (line-beginning-position 0) (line-end-position 0) (\` 
...)))
  (let ((inhibit-read-only t)) (dolist (elt ...) (insert ...) 
(add-text-properties ... ... ...)))
  (lambda (list) "Subroutine for inserting LIST in Playlist buffer." (let (...) 
(dolist ... ... ...)))(("/mnt/zic/== Musique ==/Albums/Brassens"))
  apply((lambda (list) "Subroutine for inserting LIST in Playlist buffer." (let 
(...) (dolist ... ... ...))) ("/mnt/zic/== Musique ==/Albums/Brassens"))
  elp-wrapper(mp3player-insert-files nil (("/mnt/zic/== Musique 
==/Albums/Brassens")))
  mp3player-insert-files(("/mnt/zic/== Musique ==/Albums/Brassens"))
  (lambda (list) "Add LIST of files to playlist." (when (and ... ...) (insert 
"\n")) (mp3player-insert-files list) (when (eobp) (backward-delete-char 
1)))(("/mnt/zic/== Musique ==/Albums/Brassens"))
  apply((lambda (list) "Add LIST of files to playlist." (when (and ... ...) 
(insert "\n")) (mp3player-insert-files list) (when (eobp) (backward-delete-char 
1))) ("/mnt/zic/== Musique ==/Albums/Brassens"))
  elp-wrapper(mp3player-add-files-to-playlist nil (("/mnt/zic/== Musique 
==/Albums/Brassens")))
  mp3player-add-files-to-playlist(("/mnt/zic/== Musique ==/Albums/Brassens"))
  (let ((inhibit-read-only t)) (forward-line) (mp3player-add-files-to-playlist 
L) (mp3player-mode) (setq buffer-read-only t))
  (save-excursion (set-buffer (get-buffer-create "*Playlist*")) (let (...) 
(forward-line) (mp3player-add-files-to-playlist L) (mp3player-mode) (setq 
buffer-read-only t)))
  (let ((L ...) (inhibit-read-only t)) (save-excursion (set-buffer ...) (let 
... ... ... ... ...)))
  (lambda nil "Add all marked files from dired to Playlist." (interactive) (let 
(... ...) (save-excursion ... ...)))()
  call-interactively((lambda nil "Add all marked files from dired to Playlist." 
(interactive) (let (... ...) (save-excursion ... ...))))
  elp-wrapper(mp3player-add-files-from-dired t nil)
  mp3player-add-files-from-dired()
  call-interactively(mp3player-add-files-from-dired)

Have fun :)

-- 
Lucas