diff options
-rw-r--r-- | emms-lyrics.el | 4 | ||||
-rw-r--r-- | emms-player-mplayer.el | 8 |
2 files changed, 7 insertions, 5 deletions
diff --git a/emms-lyrics.el b/emms-lyrics.el index 8cb437b..a9ed2fd 100644 --- a/emms-lyrics.el +++ b/emms-lyrics.el @@ -444,7 +444,9 @@ e.g., (emms-lyrics-find-lyric \"abc.lrc\")" (lyric-under-curr-dir (concat (file-name-directory (emms-track-get track 'name)) file))) - (or (and (file-exists-p lyric-under-curr-dir) lyric-under-curr-dir) + (or (and (eq (emms-track-type track) 'file) + (file-exists-p lyric-under-curr-dir) + lyric-under-curr-dir) (car (funcall emms-source-file-directory-tree-function emms-lyrics-dir file))))) diff --git a/emms-player-mplayer.el b/emms-player-mplayer.el index 5f22a94..fb6777a 100644 --- a/emms-player-mplayer.el +++ b/emms-player-mplayer.el @@ -83,12 +83,12 @@ (defun emms-player-mplayer-subtitle-checker () (let* ((track (emms-playlist-current-selected-track)) - (name (emms-replace-regexp-in-string - "/" "_" - (emms-track-name track))) + (name (emms-track-name track)) (ext (file-name-extension name)) (choices - (emms-remove-if-not 'file-exists-p + (emms-remove-if-not (lambda (i) + (and (eq (emms-track-type track) 'file) + (file-exists-p i))) (mapcar (lambda (el) (emms-replace-regexp-in-string (concat ext "$") el name)) |