master aaf4bb1: Restore some of the previous behaviour in whitespace-display-window

[Lars Ingebrigtsen]

branch: master
commit aaf4bb1f07c4d98e6390f90636848c5d46aa6162
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Restore some of the previous behaviour in whitespace-display-window
    
    * lisp/whitespace.el (whitespace-display-window): Emulate previous
    behaviour (bug#50716).  Code from martin rudalics <rudalics@gmx.at>.
---
 lisp/whitespace.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index adf5539..59d3249 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -1836,12 +1836,13 @@ cleaning up these problems."
 
 
 (defun whitespace-display-window (buffer)
-  "Display BUFFER in a new window."
   (goto-char (point-min))
   (set-buffer-modified-p nil)
-  (pop-to-buffer buffer)
-  (shrink-window-if-larger-than-buffer))
-
+  (let ((window (display-buffer
+                buffer
+                `((display-buffer-reuse-window
+                   display-buffer-below-selected)))))
+    (shrink-window-if-larger-than-buffer window)))
 
 (defun whitespace-kill-buffer (buffer-name)
   "Kill buffer BUFFER-NAME and windows related with it."