diff options
-rw-r--r-- | emms-playlist-mode.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/emms-playlist-mode.el b/emms-playlist-mode.el index 78912cc..34be4f9 100644 --- a/emms-playlist-mode.el +++ b/emms-playlist-mode.el @@ -489,14 +489,13 @@ When NO-NEWLINE is non-nil, do not insert a newline after the track." emms-playlist-mode and query for a directory tree to add to the playlist." (interactive) - (emms-playlist-mode-go) - (when (not (condition-case nil (emms-playlist-first) (error nil))) - (let ((dir (read-directory-name "Select a directory to add recursively: " - emms-source-file-default-directory nil t))) - (emms-add-directory-tree dir)))) + (if (or (null emms-playlist-buffer) + (not (buffer-live-p emms-playlist-buffer))) + (call-interactively 'emms-add-file)) + (emms-playlist-mode-go)) (defun emms-playlist-mode-go-popup (&optional window-width) - "Popup emms-playlist buffer as a side window. + "Popup emms-playlist buffer as a side window. Default value for WINDOW-WIDTH is `emms-playlist-mode-window-width'. WINDOW-WIDTH should be a positive integer." |