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>.

diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index adf553938e4fd6ab442c277138220cd93c8fd7e8..59d3249c5deb1d2e9d1a32a2a574daf8d76ae84f 100644 (file)
--- 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."