browser: collapse before expanding (expand-to-level-2, etc)

darcs-hash:20060616110612-4e3e3-4c3668a61018c2478c42a1ceeeaa38e19e1cc292.gz

1 files changed, 3 insertions, 0 deletions

diff --git a/emms-browser.el b/emms-browser.el
index f1b7a25..c8ee617 100644
--- a/emms-browser.el
+++ b/emms-browser.el
@@ -783,16 +783,19 @@ LEVEL is used to control indentation."
 (defun emms-browser-expand-to-level-2 ()
   "Expand all top level items one level."
   (interactive)
+  (emms-browser-collapse-all)
   (emms-browser-expand-to-level 2))
 
 (defun emms-browser-expand-to-level-3 ()
   "Expand all top level items two levels."
   (interactive)
+  (emms-browser-collapse-all)
   (emms-browser-expand-to-level 3))
 
 (defun emms-browser-expand-to-level-4 ()
   "Expand all top level items three levels."
   (interactive)
+  (emms-browser-collapse-all)
   (emms-browser-expand-to-level 4))
 
 (defun emms-browser-expand-to-level (level)