Fix whitespace-report window creation

* lisp/whitespace.el (whitespace-display-window): Avoid creating
many buffers if called many times (bug#50716).

diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 08f809a5aad6e84f6177b7316d7b4c68d53e0c74..adf553938e4fd6ab442c277138220cd93c8fd7e8 100644 (file)
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -1839,13 +1839,8 @@ cleaning up these problems."
   "Display BUFFER in a new window."
   (goto-char (point-min))
   (set-buffer-modified-p nil)
-  (when (< (window-height) (* 2 window-min-height))
-    (kill-buffer buffer)
-    (error "Window height is too small; \
-can't split window to display whitespace toggle options"))
-  (let ((win (split-window)))
-    (set-window-buffer win buffer)
-    (shrink-window-if-larger-than-buffer win)))
+  (pop-to-buffer buffer)
+  (shrink-window-if-larger-than-buffer))
 
 
 (defun whitespace-kill-buffer (buffer-name)