X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=emus.git;a=blobdiff_plain;f=emus.el;fp=emus.el;h=e5296978cf703384622228d51b9241019c8365bc;hp=12c57f1d2f3077314b621d63c4bd6807fe92bcb8;hb=b1db216e7ebeb8f52138a0ec201b3aba6c6c5c31;hpb=55bcbadba437769330aec82fe1ea4fcb1aacfe28 diff --git a/emus.el b/emus.el index 12c57f1..e529697 100644 --- a/emus.el +++ b/emus.el @@ -511,16 +511,16 @@ Used to update browser display when `emus-current-track' and/or `emus-state' cha (defun emus-centre-current () "Centre the current track in the browser buffer, if available." (interactive) - (when (get-buffer "*emus*") - (when emus-current-track + (when (and (eq (current-buffer) (get-buffer "*emus*")) + emus-current-track) (goto-char (emus-track-browser-pos emus-current-track)) - (recenter)))) + (recenter))) (defun emus-browse () "Switch to *emus* audio library browser." (interactive) (emus--with-library - (switch-to-buffer "*emus*") + (pop-to-buffer "*emus*") (emus-browser-mode) (emus--render-tracks) (emus-centre-current)))