From: Juri Linkov <juri@linkov.net>
Date: Thu, 2 May 2024 06:53:06 +0000 (+0300)
Subject: * lisp/emacs-lisp/warnings.el: Fix 'warning-display-at-bottom'.
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~1690
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=592873a52d00fa46bcf63b0dd38073f038ecb935;p=emacs.git

* lisp/emacs-lisp/warnings.el: Fix 'warning-display-at-bottom'.

(display-warning): Move point to the beginning of the last line
instead of its end for 'warning-display-at-bottom' (bug#69983).
---

diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el
index 6a1187fdb0f..8c1e43934ff 100644
--- a/lisp/emacs-lisp/warnings.el
+++ b/lisp/emacs-lisp/warnings.el
@@ -383,7 +383,7 @@ entirely by setting `warning-suppress-types' or
 		       (when warning-display-at-bottom
 			 (with-selected-window window
 			   (goto-char (point-max))
-			   (set-window-point window (1- (point-max)))
+			   (forward-line -1)
 			   (recenter -1)))
 		       (sit-for 0)))))))))