From: Juri Linkov Date: Mon, 6 May 2024 17:00:23 +0000 (+0300) Subject: * lisp/emacs-lisp/warnings.el (display-warning): Add guardrails for window. X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=80620c34ca40fc1546d36a49572914adec4cc7f9;p=emacs.git * 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) --- 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)