From 22ca956b821e44802446d1ee8e412d6790ce17f4 Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Wed, 20 Aug 2014 15:51:38 -0400 Subject: Add thing-at-point to interactive input. Patch by Daimrod . Change too small for copyright papers. --- lisp/emms-source-file.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/emms-source-file.el') 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 -- cgit v1.2.3