diff options
| author | William Xu <william.xwl@gmail.com> | 2007-06-24 07:11:00 +0000 |
|---|---|---|
| committer | William Xu <william.xwl@gmail.com> | 2007-06-24 07:11:00 +0000 |
| commit | 33d0e31b3de4d20e8058c7cc0019ef7ddd9caa2f (patch) | |
| tree | daafc36fda9eabca83bfb0e903ba8770fa69325b | |
| parent | ac30913c6fade5126bb8c7bac92d85f6eaf58e58 (diff) | |
emms-player-mplayer.el: Load in all found subtitles instead of forcing
user to choose one.
darcs-hash:20070624071131-cfa61-936bb6479d5502f83dc0e3e1094259d681d96f60.gz
| -rw-r--r-- | emms-player-mplayer.el | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/emms-player-mplayer.el b/emms-player-mplayer.el index 8dc1d71..728ad03 100644 --- a/emms-player-mplayer.el +++ b/emms-player-mplayer.el @@ -91,14 +91,8 @@ (emms-replace-regexp-in-string (concat ext "$") el name)) emms-player-mplayer-subtitle-extensions))) - (subtitle nil)) - (cond ((> (length choices) 1) - (setq subtitle - (ido-completing-read "Select subtitles: " - choices))) - ((= (length choices) 1) - (setq subtitle (car choices)))) - (when subtitle + (subtitle (mapconcat (lambda (el) el) choices ","))) + (unless (string= subtitle "") (setq emms-player-mplayer-parameters (append emms-player-mplayer-parameters (list "-sub" subtitle)))))) |