diff options
| author | Yoni Rabkin <yonirabkin@member.fsf.org> | 2014-08-20 15:51:38 -0400 |
|---|---|---|
| committer | Yoni Rabkin <yonirabkin@member.fsf.org> | 2014-08-20 15:51:38 -0400 |
| commit | 22ca956b821e44802446d1ee8e412d6790ce17f4 (patch) | |
| tree | 88cc0d803f8db1a53129891a27aee01bbecd6b4a /lisp/emms-source-playlist.el | |
| parent | 96c9802e97742be2e44482f2ea16123436b35fd6 (diff) | |
Add thing-at-point to interactive input.
Patch by Daimrod <daimrod@gmail.com>. Change too small for copyright
papers.
Diffstat (limited to 'lisp/emms-source-playlist.el')
| -rw-r--r-- | lisp/emms-source-playlist.el | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/lisp/emms-source-playlist.el b/lisp/emms-source-playlist.el index 0bcc548..0054f43 100644 --- a/lisp/emms-source-playlist.el +++ b/lisp/emms-source-playlist.el @@ -174,7 +174,8 @@ 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))) + t + (thing-at-point 'filename)))) (mapc #'emms-playlist-insert-track (with-temp-buffer (emms-insert-file-contents file) @@ -231,7 +232,8 @@ 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))) + t + (thing-at-point 'filename)))) (mapc #'emms-playlist-insert-track (with-temp-buffer (emms-insert-file-contents file) @@ -304,7 +306,8 @@ 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))) + t + (thing-at-point 'filename)))) (mapc #'emms-playlist-insert-track (with-temp-buffer (emms-insert-file-contents file) @@ -389,7 +392,8 @@ 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))) + t + (thing-at-point 'filename)))) (mapc #'emms-playlist-insert-track (with-temp-buffer (emms-insert-file-contents file) @@ -437,7 +441,8 @@ 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))) + t + (thing-at-point 'filename)))) (emms-playlist-insert-track (emms-track 'playlist (expand-file-name file)))) |