Re: [emms-help] Ability to turn off use of `thing-at-point'

[Jordan Wilson]

Hi,

Oops, just rediscovered this thread. The replies must have got stuck
somewhere on my end.

Anyway, the attached patch, which replicates your change here[1] but
for emms-source-playlist.el, fixes the annoyances I was having.

Thanks for your work on EMMS. It's got me in the pleasant habit of
listening to music while working!

--- emms-source-playlist.el1    2019-01-31 00:47:32.000000000 +0000
+++ emms-source-playlist.el2    2019-01-31 00:48:44.981736000 +0000
@@ -174,8 +174,7 @@
   (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 @@
   (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 @@
   (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 @@
   (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 @@
   (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))))
 

Footnotes: 
[1]  
http://git.savannah.gnu.org/cgit/emms.git/commit/?id=728114cc41bf56fe7f442df48366a66e209e5528

-- 
Jordan Wilson
    Sent from Gnus v5.13, GNU Emacs 26.1