diff options
author | Drew Adams <drew.adams@oracle.com> | 2019-07-06 16:47:08 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-06 16:47:08 +0200 |
commit | 372efa6a4143561b093dcc49d5f1b7eb0c443131 (patch) | |
tree | 9a9e2de89353a21f23e700b7b59bb18391acf7cd | |
parent | 19294c45ba352554fc0deee2f0a1286746a39705 (diff) | |
download | emacs-372efa6a4143561b093dcc49d5f1b7eb0c443131.tar.gz |
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).
-rw-r--r-- | lisp/help.el | 10 |
1 files 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." |