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-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~1621 X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=446031722546513ace2dc6f3ee86999bb7e17b39;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). --- 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)