From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 21 Sep 2021 05:29:55 +0000 (+0200)
Subject: Fix whitespace-report window creation
X-Git-Tag: emacs-28.0.90~795
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f23c5c3e445385031d46ee56b89fcda1774a2108;p=emacs.git

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 08f809a5aad..adf553938e4 100644
--- 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)