mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/warnings.el (display-warning): Add guardrails for window.

Browse source 
Check for non-nil 'window' returned from 'display-buffer' for the case when
users decide to use 'allow-no-window' in 'display-buffer-alist' (#70795).
This commit is contained in:
Juri Linkov 2024-05-06 20:00:23 +03:00
parent 6e835dfaca
commit 4460317225
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/warnings.el
View file

@ -377,10 +377,10 @@ entirely by setting `warning-suppress-types' or
(window-height . (lambda (window)
(fit-window-to-buffer window 10)))
(category . warning))))))
(when (and (markerp warning-series)
(when (and window (markerp warning-series)
(eq (marker-buffer warning-series) buffer))
(set-window-start window warning-series))
(when warning-display-at-bottom
(when (and window warning-display-at-bottom)
(with-selected-window window
(goto-char (point-max))
(forward-line -1)