[Mp3player-bugs] bug

[Mario Domgörgen]

Music is played but i get this bug:

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  file-name-nondirectory(nil)
  file-name-extension(nil)
  (string-match "ogg" (file-name-extension file))
  (if (string-match "ogg" (file-name-extension file)) (call-process 
"vorbiscomment" nil t nil file) (call-process "mp3info" nil t nil "-p" 
"title=%t\nartist=%a\nalbum=%l\ndate=%y\ngenre=%G\ndescription=%c\n" file))
  (save-current-buffer (set-buffer temp-buffer) (if (string-match "ogg" ...) 
(call-process "vorbiscomment" nil t nil file) (call-process "mp3info" nil t nil 
"-p" "title=%t\nartist=%a\nalbum=%l\ndate=%y\ngenre=%G\ndescription=%c\n" 
file)) (flet (...) (make-id3 :song ... :artist ... :album ... :note ... :year 
... :genre ... :file file)))
  (with-current-buffer temp-buffer (if (string-match "ogg" ...) (call-process 
"vorbiscomment" nil t nil file) (call-process "mp3info" nil t nil "-p" 
"title=%t\nartist=%a\nalbum=%l\ndate=%y\ngenre=%G\ndescription=%c\n" file)) 
(flet (...) (make-id3 :song ... :artist ... :album ... :note ... :year ... 
:genre ... :file file)))
  (unwind-protect (with-current-buffer temp-buffer (if ... ... ...) (flet ... 
...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... 
...) (and ... ...)))
  (with-temp-buffer (if (string-match "ogg" ...) (call-process "vorbiscomment" 
nil t nil file) (call-process "mp3info" nil t nil "-p" 
"title=%t\nartist=%a\nalbum=%l\ndate=%y\ngenre=%G\ndescription=%c\n" file)) 
(flet (...) (make-id3 :song ... :artist ... :album ... :note ... :year ... 
:genre ... :file file)))
  mp3player-get-comments-from-file-external(nil)
  (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 ...) (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(nil)
  (let* ((file ...) (struct ...)) (if (string-match "\\(%[0-9]*[a-z]\\)" str) 
(let ... ... ...) str))
  mp3player-format-info-string(" [ %a - %s ] ")
  (setq mp3player-modeline-string (mp3player-format-info-string 
mp3player-modeline-info-format))
  (progn (setq mp3player-modeline-string (mp3player-format-info-string 
mp3player-modeline-info-format)) (force-mode-line-update))
  (if (and mp3player-modeline-info-format (get-process "mp3player-process")) 
(progn (setq mp3player-modeline-string ...) (force-mode-line-update)))
  (when (and mp3player-modeline-info-format (get-process "mp3player-process")) 
(setq mp3player-modeline-string (mp3player-format-info-string 
mp3player-modeline-info-format)) (force-mode-line-update))
  mp3player-alter-modeline()
  mp3player-alter()
  (let* ((program ...) (proc ...)) (set-process-sentinel proc (quote 
mp3player-play-sentinel)) proc (mp3player-alter))
  mp3player-start-playing-process("/Musik/Kill Bill OST/16 - Ironside Excerpt - 
Quincy Jones.mp3")
  (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("/Musik/Kill Bill OST/16 - Ironside Excerpt - Quincy 
Jones.mp3")
  (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 ...)) (run-hooks (quote 
mp3player-play-line-hook)))
  mp3player-play-line()
  call-interactively(mp3player-play-line)

Mario

-- 
You step in the stream,
but the water has moved on.
This page is not here.