From 68bf7c8740c1c8371b71a613b57d00bc6a114f00 Mon Sep 17 00:00:00 2001 From: Damien Elmes Date: Fri, 30 Jun 2006 12:40:00 +0000 Subject: browser: d for dired (missing half) darcs-hash:20060630124050-4e3e3-19caf3a3694a8e8cbba8d2a6cfc6ac60f08bc3ca.gz --- emms-browser.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/emms-browser.el b/emms-browser.el index 9527246..f153873 100644 --- a/emms-browser.el +++ b/emms-browser.el @@ -193,6 +193,7 @@ Use nil for no sorting." (define-key map (kbd "C-j") 'emms-browser-add-tracks-and-play) (define-key map (kbd "") 'emms-browser-next-non-track) (define-key map (kbd "") 'emms-browser-prev-non-track) + (define-key map (kbd "d") 'emms-browser-view-in-dired) (define-key map (kbd "E") 'emms-browser-expand-all) (define-key map (kbd "1") 'emms-browser-collapse-all) (define-key map (kbd "2") 'emms-browser-expand-to-level-2) @@ -1018,8 +1019,10 @@ After expanding, jump to the currently marked entry." (if bdata (if (eq (emms-browser-bdata-type bdata) 'info-title) (let* ((track (car (emms-browser-bdata-data bdata))) - (path (emms-track-get track 'name)))) - (emms-browser-view-in-dired (emms-browser-bdata-data bdata))) + (path (emms-track-get track 'name)) + (dir (file-name-directory path))) + (find-file dir)) + (emms-browser-view-in-dired (car (emms-browser-bdata-data bdata)))) (emms-browser-view-in-dired (emms-browser-bdata-at-point)))) ;; -------------------------------------------------- -- cgit v1.2.3