diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-09-21 07:29:55 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-09-21 07:29:55 +0200 |
commit | f23c5c3e445385031d46ee56b89fcda1774a2108 (patch) | |
tree | 35c529723ccce259ca19028f9c69d866c4844fc0 /lisp/whitespace.el | |
parent | 02a2fba7869db7ae23c65ab1ea47db7ba556ffac (diff) | |
download | emacs-f23c5c3e445385031d46ee56b89fcda1774a2108.tar.gz |
Fix whitespace-report window creation
* lisp/whitespace.el (whitespace-display-window): Avoid creating
many buffers if called many times (bug#50716).
Diffstat (limited to 'lisp/whitespace.el')
-rw-r--r-- | lisp/whitespace.el | 9 |
1 files changed, 2 insertions, 7 deletions
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) |