From aaf4bb1f07c4d98e6390f90636848c5d46aa6162 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 21 Sep 2021 18:54:41 +0200 Subject: [PATCH] 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 . --- lisp/whitespace.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/whitespace.el b/lisp/whitespace.el index adf553938e4..59d3249c5de 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." -- 2.39.5