[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master aaf4bb1: Restore some of the previous behaviour in whitespace-dis
From: |
Lars Ingebrigtsen |
Subject: |
master aaf4bb1: Restore some of the previous behaviour in whitespace-display-window |
Date: |
Tue, 21 Sep 2021 12:54:56 -0400 (EDT) |
branch: master
commit aaf4bb1f07c4d98e6390f90636848c5d46aa6162
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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>.
---
lisp/whitespace.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index adf5539..59d3249 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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master aaf4bb1: Restore some of the previous behaviour in whitespace-display-window,
Lars Ingebrigtsen <=