From fbff34707386c6d2b0f3a3d37c5392894cd5e96e Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Wed, 4 Aug 2021 16:07:04 +1000 Subject: Adding defaulting url to url at point to emms-add-url --- emms-source-file.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/emms-source-file.el b/emms-source-file.el index 9678b41..56755af 100644 --- a/emms-source-file.el +++ b/emms-source-file.el @@ -293,7 +293,8 @@ files) can play." ;;;###autoload (autoload 'emms-add-url "emms-source-file" nil t) (define-emms-source url (url) "An EMMS source for an URL - for example, for streaming." - (interactive "sPlay URL: ") + (interactive (list + (read-string "Play URL: " (thing-at-point-url-at-point)))) (emms-playlist-insert-track (emms-track 'url url))) ;;;###autoload (autoload 'emms-play-streamlist "emms-source-file" nil t) -- cgit v1.2.3