diff options
author | Juri Linkov <juri@linkov.net> | 2024-05-06 20:00:23 +0300 |
---|---|---|
committer | Juri Linkov <juri@linkov.net> | 2024-05-06 20:00:23 +0300 |
commit | 446031722546513ace2dc6f3ee86999bb7e17b39 (patch) | |
tree | 41cb1fad754bb8fe68404dcdd851ee5736aa641a | |
parent | 6e835dfaca2655a9ba1cfac2d3d3e236fd59674f (diff) | |
download | emacs-446031722546513ace2dc6f3ee86999bb7e17b39.tar.gz |
* 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).
-rw-r--r-- | lisp/emacs-lisp/warnings.el | 4 |
1 files 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) |