[mp3player-help] Another bug report for kanaldrache :)

[Lucas]

It seems to occur when i alter too much the playlist, and sometimes it
does even occur "by itself", when i do something else.


Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
  downcase(nil)
  (assoc (downcase (file-name-extension f)) mp3player-file-association)
  (cdr (assoc (downcase ...) mp3player-file-association))
  (assoc (cdr (assoc ... mp3player-file-association)) mp3player-programs-alist)
  (cdr (assoc (cdr ...) mp3player-programs-alist))
  (let* ((program ...) (proc ...)) (set-process-sentinel proc (quote 
mp3player-play-sentinel)) proc (mp3player-alter))
  mp3player-start-playing-process("/mnt/zic/== Musique ==/Singles Divers/En 
Cours 2")
  (progn (when (get-process "mp3player-process") (mp3player-stop)) 
(mp3player-start-playing-process file) (save-excursion (set-buffer ...) 
(goto-line ...) (add-text-properties ... ... ...)))
  (if (or (not mp3player-use-scoring) (mp3player-check-score file tag)) (progn 
(when ... ...) (mp3player-start-playing-process file) (save-excursion ... ... 
...)))
  (when (or (not mp3player-use-scoring) (mp3player-check-score file tag)) (when 
(get-process "mp3player-process") (mp3player-stop)) 
(mp3player-start-playing-process file) (save-excursion (set-buffer ...) 
(goto-line ...) (add-text-properties ... ... ...)))
  (let* ((file ...) (tag ...) (inhibit-read-only t)) (when (or ... ...) (when 
... ...) (mp3player-start-playing-process file) (save-excursion ... ... ...)))
  mp3player-play-file("/mnt/zic/== Musique ==/Singles Divers/En Cours 2")
  (if (file-exists-p (expand-file-name file)) (mp3player-play-file file) 
(message (mp3player-multilingual ... file)))
  (let ((file ...) (line ...) (inhibit-read-only t)) 
(mp3player-remove-now-playing-face) (setq mp3player-playlist 
(mp3player-get-playlist-buffer) mp3player-playlist-index line) (if 
(file-exists-p ...) (mp3player-play-file file) (message ...)))
  mp3player-play-line()
  call-interactively(mp3player-play-line)
  recursive-edit()
  byte-code("��        !� �\n!ˆƒB�ed\"\fVƒ6eb�\f�yˆ`db�\f�\fZyˆ
`|ˆ)�cˆeb���� \"� address@hidden"� ��!�������!ˆ� ˆ,ׇ" 
[unread-command-char debugger-buffer debugger-args noninteractive 
debugger-batch-max-lines middlestart -1 pop-to-buffer debugger-mode 
debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string 
kill-emacs debug backtrace-debug 3 t debugger-reenable "" nil recursive-edit 
buffer-read-only standard-output inhibit-trace] 3)
  debug(error (wrong-type-argument char-or-string-p nil))
  downcase(nil)
  (assoc (downcase (file-name-extension f)) mp3player-file-association)
  (cdr (assoc (downcase ...) mp3player-file-association))
  (assoc (cdr (assoc ... mp3player-file-association)) mp3player-programs-alist)
  (cdr (assoc (cdr ...) mp3player-programs-alist))
  (let* ((program ...) (proc ...)) (set-process-sentinel proc (quote 
mp3player-play-sentinel)) proc (mp3player-alter))
  mp3player-start-playing-process("/mnt/zic/== Musique ==/Singles Divers/En 
Cours 2")
  (progn (when (get-process "mp3player-process") (mp3player-stop)) 
(mp3player-start-playing-process file) (save-excursion (set-buffer ...) 
(goto-line ...) (add-text-properties ... ... ...)))
  (if (or (not mp3player-use-scoring) (mp3player-check-score file tag)) (progn 
(when ... ...) (mp3player-start-playing-process file) (save-excursion ... ... 
...)))
  (when (or (not mp3player-use-scoring) (mp3player-check-score file tag)) (when 
(get-process "mp3player-process") (mp3player-stop)) 
(mp3player-start-playing-process file) (save-excursion (set-buffer ...) 
(goto-line ...) (add-text-properties ... ... ...)))
  (let* ((file ...) (tag ...) (inhibit-read-only t)) (when (or ... ...) (when 
... ...) (mp3player-start-playing-process file) (save-excursion ... ... ...)))
  mp3player-play-file("/mnt/zic/== Musique ==/Singles Divers/En Cours 2")
  (if (file-exists-p (expand-file-name file)) (mp3player-play-file file) 
(message (mp3player-multilingual ... file)))
  (let ((file ...) (line ...) (inhibit-read-only t)) 
(mp3player-remove-now-playing-face) (setq mp3player-playlist 
(mp3player-get-playlist-buffer) mp3player-playlist-index line) (if 
(file-exists-p ...) (mp3player-play-file file) (message ...)))
  mp3player-play-line()
  call-interactively(mp3player-play-line)
  recursive-edit()
  byte-code("��        !� �\n!ˆƒB�ed\"\fVƒ6eb�\f�yˆ`db�\f�\fZyˆ
`|ˆ)�cˆeb���� \"� address@hidden"� ��!�������!ˆ� ˆ,ׇ" 
[unread-command-char debugger-buffer debugger-args noninteractive 
debugger-batch-max-lines middlestart -1 pop-to-buffer debugger-mode 
debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string 
kill-emacs debug backtrace-debug 3 t debugger-reenable "" nil recursive-edit 
buffer-read-only standard-output inhibit-trace] 3)
  debug(error (wrong-type-argument char-or-string-p nil))
  downcase(nil)
  (assoc (downcase (file-name-extension f)) mp3player-file-association)
  (cdr (assoc (downcase ...) mp3player-file-association))
  (assoc (cdr (assoc ... mp3player-file-association)) mp3player-programs-alist)
  (cdr (assoc (cdr ...) mp3player-programs-alist))
  (let* ((program ...) (proc ...)) (set-process-sentinel proc (quote 
mp3player-play-sentinel)) proc (mp3player-alter))
  mp3player-start-playing-process("/mnt/zic/== Musique ==/Singles Divers/En 
Cours 2")
  (progn (when (get-process "mp3player-process") (mp3player-stop)) 
(mp3player-start-playing-process file) (save-excursion (set-buffer ...) 
(goto-line ...) (add-text-properties ... ... ...)))
  (if (or (not mp3player-use-scoring) (mp3player-check-score file tag)) (progn 
(when ... ...) (mp3player-start-playing-process file) (save-excursion ... ... 
...)))
  (when (or (not mp3player-use-scoring) (mp3player-check-score file tag)) (when 
(get-process "mp3player-process") (mp3player-stop)) 
(mp3player-start-playing-process file) (save-excursion (set-buffer ...) 
(goto-line ...) (add-text-properties ... ... ...)))
  (let* ((file ...) (tag ...) (inhibit-read-only t)) (when (or ... ...) (when 
... ...) (mp3player-start-playing-process file) (save-excursion ... ... ...)))
  mp3player-play-file("/mnt/zic/== Musique ==/Singles Divers/En Cours 2")
  (if (file-exists-p (expand-file-name file)) (mp3player-play-file file) 
(message (mp3player-multilingual ... file)))
  (let ((file ...) (line ...) (inhibit-read-only t)) 
(mp3player-remove-now-playing-face) (setq mp3player-playlist 
(mp3player-get-playlist-buffer) mp3player-playlist-index line) (if 
(file-exists-p ...) (mp3player-play-file file) (message ...)))
  mp3player-play-line()
  call-interactively(mp3player-play-line)


Good luck :)
-- 
Lucas