procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/warnings.el (warning-display-at-bottom): New defcustom.

Browse source 
(display-warning): Use 'warning-display-at-bottom' to display
the warning buffer at the bottom of the screen and to scroll
to the last warning message (bug#69983).
This commit is contained in:
Juri Linkov 2024-04-22 09:50:45 +03:00
parent d51b0d2ebe
commit 086608876a
1 changed files with 20 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -120,6 +120,14 @@ so only the element (FOO) will match it.
See also `warning-suppress-log-types'."
:type '(repeat (repeat symbol))
:version "22.1")
(defcustom warning-display-at-bottom t
"Display the warning buffer at the bottom of the screen.
The output window will be scrolled to the bottom of the buffer
to show the last warning message."
:type 'boolean
:version "30.1")
;; The autoload cookie is so that programs can bind this variable
;; safely, testing the existing value, before they call one of the
@ -362,10 +370,21 @@ entirely by setting `warning-suppress-types' or
(or (< (warning-numeric-level level)
(warning-numeric-level warning-minimum-level))
(warning-suppress-p type warning-suppress-types)
(let ((window (display-buffer buffer)))
(let ((window (display-buffer
buffer
(when warning-display-at-bottom
'(display-buffer--maybe-at-bottom
(window-height . (lambda (window)
(fit-window-to-buffer window 10)))
(category . warning))))))
(when (and (markerp warning-series)
(eq (marker-buffer warning-series) buffer))
(set-window-start window warning-series))
(when warning-display-at-bottom
(with-selected-window window
(goto-char (point-max))
(set-window-point window (1- (point-max)))
(recenter -1)))
(sit-for 0)))))))))
;; Use \\<special-mode-map> so that help-enable-autoload can do its thing.