From 372efa6a4143561b093dcc49d5f1b7eb0c443131 Mon Sep 17 00:00:00 2001 From: Drew Adams Date: Sat, 6 Jul 2019 16:47:08 +0200 Subject: [PATCH] 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). --- lisp/help.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index 42ff3755650..039d0c44e4f 100644 --- 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." -- 2.39.2