aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorYoni Rabkin <yoni@rabkins.net>2019-02-04 11:31:20 -0500
committerYoni Rabkin <yoni@rabkins.net>2019-02-04 11:31:20 -0500
commit58666af620067dfcef2dd491dfd8f08c8decbe0e (patch)
treef6363951681d944a26be2c5ac0089d3bf5680356 /lisp
parente5763d23106177de1ab75a51400de312bce4d7c8 (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')
-rw-r--r--lisp/emms-source-playlist.el15
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))))