Skip to content

Use pop-to-buffer-same-window not switch-to-buffer in some places #59

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
spwhitton wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Use pop-to-buffer-same-window not switch-to-buffer in some places #59

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
10 changes: 5 additions & 5 deletions bongo.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -8023,7 +8023,7 @@ That is, when `bongo-seek-electric-mode' is non-nil.")
(if (and (fboundp 'face-attr-construct)
(plist-get (face-attr-construct 'modeline) :box))
-3 -2)))
(switch-to-buffer bongo-seek-buffer)))
(pop-to-buffer-same-window bongo-seek-buffer)))
((not (eq (current-buffer) bongo-seek-buffer))
(select-window (get-buffer-window bongo-seek-buffer))))
(bongo-seek-mode)
Expand Down Expand Up @@ -10822,14 +10822,14 @@ the new buffer will be the value of `bongo-default-library-buffer-name'."
"Switch to a Bongo playlist buffer.
See the function `bongo-playlist-buffer'."
(interactive)
(switch-to-buffer (bongo-playlist-buffer)))
(pop-to-buffer-same-window (bongo-playlist-buffer)))

;;;###autoload
(defun bongo-library ()
"Switch to a Bongo library buffer.
See the function `bongo-library-buffer'."
(interactive)
(switch-to-buffer (bongo-library-buffer)))
(pop-to-buffer-same-window (bongo-library-buffer)))

(defun bongo-quit ()
"Quit Bongo by deleting all windows and selecting a non-Bongo buffer."
Expand Down Expand Up @@ -10883,15 +10883,15 @@ With prefix argument PROMPT, prompt for the buffer to switch to."
'((predicate . (bongo-buffer-p))) nil nil
'(("Playlists" (predicate . (bongo-playlist-buffer-p)))
("Libraries" (predicate . (bongo-library-buffer-p)))))
(switch-to-buffer (list-buffers-noselect nil (bongo-buffers)))))
(pop-to-buffer-same-window (list-buffers-noselect nil (bongo-buffers)))))

;;;###autoload
(defun bongo ()
"Switch to a Bongo buffer.
See the function `bongo-buffer'."
(interactive)
(unless (bongo-buffer-p)
(switch-to-buffer (bongo-buffer))))
(pop-to-buffer-same-window (bongo-buffer))))

(custom-reevaluate-setting 'bongo-header-line-mode)
(custom-reevaluate-setting 'bongo-mode-line-indicator-mode)
Expand Down