From b1db216e7ebeb8f52138a0ec201b3aba6c6c5c31 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Thu, 12 Dec 2019 13:18:40 +0100 Subject: [PATCH] Cleaned up centering behaviour. --- emus.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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))) -- 2.20.1