diff options
| author | Yoni Rabkin <yoni@rabkins.net> | 2019-02-04 11:31:20 -0500 |
|---|---|---|
| committer | Yoni Rabkin <yoni@rabkins.net> | 2019-02-04 11:31:20 -0500 |
| commit | 58666af620067dfcef2dd491dfd8f08c8decbe0e (patch) | |
| tree | f6363951681d944a26be2c5ac0089d3bf5680356 /lisp/emms-source-playlist.el | |
| parent | e5763d23106177de1ab75a51400de312bce4d7c8 (diff) | |
* lisp/emms-source-playlist.el: thing-at-point fix
Jordan Wilson <jordan.t.wilson@gmx.com>'s thing-at-point fixes.
Diffstat (limited to 'lisp/emms-source-playlist.el')
| -rw-r--r-- | lisp/emms-source-playlist.el | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/lisp/emms-source-playlist.el b/lisp/emms-source-playlist.el index eadd4b7..9536937 100644 --- a/lisp/emms-source-playlist.el +++ b/lisp/emms-source-playlist.el @@ -174,8 +174,7 @@ See `emms-source-playlist-formats' for a list of supported formats." (interactive (list (read-file-name "Playlist file: " emms-source-file-default-directory emms-source-file-default-directory - t - (thing-at-point 'filename)))) + t))) (mapc #'emms-playlist-insert-track (with-temp-buffer (emms-insert-file-contents file) @@ -232,8 +231,7 @@ OUT should be the buffer where tracks are stored in the native EMMS format." (interactive (list (read-file-name "Playlist file: " emms-source-file-default-directory emms-source-file-default-directory - t - (thing-at-point 'filename)))) + t))) (mapc #'emms-playlist-insert-track (with-temp-buffer (emms-insert-file-contents file) @@ -306,8 +304,7 @@ OUT should be the buffer where tracks are stored in m3u format." (interactive (list (read-file-name "Playlist file: " emms-source-file-default-directory emms-source-file-default-directory - t - (thing-at-point 'filename)))) + t))) (mapc #'emms-playlist-insert-track (with-temp-buffer (emms-insert-file-contents file) @@ -392,8 +389,7 @@ OUT should be the buffer where tracks are stored in pls format." (interactive (list (read-file-name "Playlist file: " emms-source-file-default-directory emms-source-file-default-directory - t - (thing-at-point 'filename)))) + t))) (mapc #'emms-playlist-insert-track (with-temp-buffer (emms-insert-file-contents file) @@ -441,8 +437,7 @@ See `emms-source-playlist-formats' for a list of supported formats." (interactive (list (read-file-name "Playlist file: " emms-source-file-default-directory emms-source-file-default-directory - t - (thing-at-point 'filename)))) + t))) (emms-playlist-insert-track (emms-track 'playlist (expand-file-name file)))) |