aboutsummaryrefslogtreecommitdiff
path: root/lisp/emms-source-file.el
diff options
context:
space:
mode:
authorYoni Rabkin <yonirabkin@member.fsf.org>2014-08-20 15:51:38 -0400
committerYoni Rabkin <yonirabkin@member.fsf.org>2014-08-20 15:51:38 -0400
commit22ca956b821e44802446d1ee8e412d6790ce17f4 (patch)
tree88cc0d803f8db1a53129891a27aee01bbecd6b4a /lisp/emms-source-file.el
parent96c9802e97742be2e44482f2ea16123436b35fd6 (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-file.el')
-rw-r--r--lisp/emms-source-file.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emms-source-file.el b/lisp/emms-source-file.el
index 97b7a39..660cbd5 100644
--- a/lisp/emms-source-file.el
+++ b/lisp/emms-source-file.el
@@ -104,7 +104,8 @@ user."
(interactive (list (read-file-name "Play file: "
emms-source-file-default-directory
emms-source-file-default-directory
- t)))
+ t
+ (thing-at-point 'filename))))
(if (file-directory-p file)
(emms-source-directory file)
(emms-playlist-insert-track