Fix point adjustment in recreated *Messages* buffers

* lisp/startup.el (normal-top-level): Move setting of
'window-point-insertion-type' from here...
* lisp/simple.el (messages-buffer-mode): ...to here.  This is so
any *Messages* buffers we create instead of the original one, if
it's killed, will have the same type of the window-point marker.
(Bug#57466)

diff --git a/lisp/simple.el b/lisp/simple.el
index daacf697ff3e100a46f179d819a4a8120e48f8a9..2512397b2405630b285c2d09136e7387407ace6f 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -10431,7 +10431,9 @@ and setting it to nil."
     map))
 
 (define-derived-mode messages-buffer-mode special-mode "Messages"
-  "Major mode used in the \"*Messages*\" buffer.")
+  "Major mode used in the \"*Messages*\" buffer."
+  ;; Make it easy to do like "tail -f".
+  (setq-local window-point-insertion-type t))
 
 (defun messages-buffer ()
   "Return the \"*Messages*\" buffer.

diff --git a/lisp/startup.el b/lisp/startup.el
index b0fbf7a34cd48dcd807eda20ffab250df19ab7d2..50a8f491d8eb8391c30ac9b9efa34bb137617524 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -718,8 +718,6 @@ It is the default value of the variable `top-level'."
     (let ((dir default-directory))
       (with-current-buffer "*Messages*"
         (messages-buffer-mode)
-        ;; Make it easy to do like "tail -f".
-        (setq-local window-point-insertion-type t)
         ;; Give *Messages* the same default-directory as *scratch*,
         ;; just to keep things predictable.
        (setq default-directory (or dir (expand-file-name "~/")))))