(pop-to-buffer (current-buffer)) displays buffer in the same window instead of another window

[bmag]

This value for prefer-other-window doesn't prefer another window when showing a buffer with the same purpose as the selected window. Perhaps I need purpose-display-reuse-window-buffer-other-window and purpose-display-reuse-window-purpose-other-window functions, like those prefer-other-frame uses.

(defvar purpose-action-sequences
  ;; ...
  (prefer-other-window . (purpose-display-reuse-window-buffer
                          purpose-display-reuse-window-purpose
                          purpose-display-maybe-other-window
                          purpose-display-maybe-pop-up-window
                          purpose-display-maybe-other-frame
                          purpose-display-maybe-pop-up-frame
                          purpose-display-maybe-same-window))
  ;; ...
  )