diff options
author | Yoni Rabkin <yrk@gnu.org> | 2015-03-29 22:44:14 -0400 |
---|---|---|
committer | Yoni Rabkin <yrk@gnu.org> | 2015-03-29 22:44:14 -0400 |
commit | 4088cda083823455512369a66a82769ff7eae9ed (patch) | |
tree | 3fb8a92804052b93ce819cd30fbcdd92b94c8f71 /lisp/emms-source-playlist.el | |
parent | 1ca398268d28644bb955560612ed881d783078d0 (diff) |
Add https as a recognizable connection option.
Note that not all backends know how to play through an https connection.
Diffstat (limited to 'lisp/emms-source-playlist.el')
-rw-r--r-- | lisp/emms-source-playlist.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emms-source-playlist.el b/lisp/emms-source-playlist.el index 0054f43..eadd4b7 100644 --- a/lisp/emms-source-playlist.el +++ b/lisp/emms-source-playlist.el @@ -271,7 +271,7 @@ Files will be relative to the directory of PLAYLIST-FILE, unless they have absolute paths." (let ((dir (file-name-directory playlist-file))) (mapcar (lambda (file) - (if (string-match "\\`\\(http\\|mms\\)://" file) + (if (string-match "\\`\\(http[s]?\\|mms\\)://" file) (emms-track 'url file) (emms-track 'file (expand-file-name file dir)))) (emms-source-playlist-m3u-files)))) @@ -343,7 +343,7 @@ Files will be relative to the directory of PLAYLIST-FILE, unless they have absolute paths." (let ((dir (file-name-directory playlist-file))) (mapcar (lambda (file) - (if (string-match "\\`\\(http\\|mms\\)://" file) + (if (string-match "\\`\\(http[s]?\\|mms\\)://" file) (emms-track 'url file) (if (string-match "\\`file://" file) ;; handle file:// uris (let ((file (url-unhex-string (substring file 7)))) |