From 80620c34ca40fc1546d36a49572914adec4cc7f9 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 6 May 2024 20:00:23 +0300 Subject: [PATCH] * lisp/emacs-lisp/warnings.el (display-warning): Add guardrails for window. 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). (cherry picked from commit 446031722546513ace2dc6f3ee86999bb7e17b39) --- lisp/emacs-lisp/warnings.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el index 8c1e43934ff..68db33bfa68 100644 --- a/lisp/emacs-lisp/warnings.el +++ b/lisp/emacs-lisp/warnings.el @@ -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) -- 2.39.5