Tweak point movement in view-echo-area-messages

* lisp/help.el (view-echo-area-messages): Move the point to the
end of the *Messages* buffer even if it's already displayed
(bug#36343).

diff --git a/lisp/help.el b/lisp/help.el
index 42ff37556500252ebaf3144832a05466d0051732..039d0c44e4f562979c1d4ed1863c1a90f3289f7a 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -417,12 +417,16 @@ With argument, display info only for the selected version."
 
 (defun view-echo-area-messages ()
   "View the log of recent echo-area messages: the `*Messages*' buffer.
-The number of messages retained in that buffer
-is specified by the variable `message-log-max'."
+The number of messages retained in that buffer is specified by
+the variable `message-log-max'."
   (interactive)
   (with-current-buffer (messages-buffer)
     (goto-char (point-max))
-    (display-buffer (current-buffer))))
+    (let ((win (display-buffer (current-buffer))))
+      ;; If the buffer is already displayed, we need to forcibly set
+      ;; the window point to scroll to the end of the buffer.
+      (set-window-point win (point))
+      win)))
 
 (defun view-order-manuals ()
   "Display information on how to buy printed copies of Emacs manuals."