From fdd132b103b3b62e51d0bda64eb60d4c3d9fcfa1 Mon Sep 17 00:00:00 2001 From: Damien Elmes Date: Thu, 8 Jun 2006 09:40:00 +0000 Subject: update modeline when changing browsing method darcs-hash:20060608094037-4e3e3-941aa4374482cf0cbac1c4ea09f4aad83704a6e3.gz --- emms-browser.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/emms-browser.el b/emms-browser.el index 630873d..181ec6a 100644 --- a/emms-browser.el +++ b/emms-browser.el @@ -137,10 +137,13 @@ The default is to compare case-insensitively." (defun emms-browser (&optional name) "Launch or switch to the EMMS Browser." (interactive) - (when (or (null emms-browser-buffer) + (if (or (null emms-browser-buffer) (not (buffer-live-p emms-browser-buffer))) - (setq emms-browser-buffer (emms-browser-new-buffer name)) - (funcall emms-browser-default-browsing-function)) + (progn + (setq emms-browser-buffer (emms-browser-new-buffer name)) + (funcall emms-browser-default-browsing-function)) + (when name + (rename-buffer name))) ;; if the buffer is displayed, switch the window instead (let ((wind (get-buffer-window emms-browser-buffer))) (if wind -- cgit v1.2.3