andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Restore some of the previous behaviour in whitespace-display-window

Browse source 
* lisp/whitespace.el (whitespace-display-window): Emulate previous
behaviour (bug#50716).  Code from martin rudalics <rudalics@gmx.at>.
This commit is contained in:
Lars Ingebrigtsen 2021-09-21 18:54:41 +02:00
parent 6f360c5aad
commit aaf4bb1f07
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/whitespace.el
View file

@ -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."