From 5d5475c6069037fb678fa68b33afa0d0c72901eb Mon Sep 17 00:00:00 2001 From: William Xu Date: Tue, 5 Jun 2007 08:57:00 +0000 Subject: emms-playlist-mode.el: (emms) `emms-add-file' actually understands both file and directories, so let's use `emms-add-file'. darcs-hash:20070605085746-cfa61-80bf6246e667746da96834c9d1559284b8d5a5b4.gz --- emms-playlist-mode.el | 11 +++++------ 1 file 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." -- cgit v1.2.3