Re: Is there a way to get the last message?

[Stephen Berman]

On Sun, 28 May 2017 12:50:12 +0200 Marcin Borkowski <mbork@mbork.pl> wrote:

> Hi all,
>
> I know about (current-message).  However, this won't work:
>
> (defun get-last-message ()
>   "Try to get the last message."
>   (interactive)
>   (with-temp-buffer
>     (insert (or (current-message) ""))
>     (clipboard-kill-ring-save (point-min) (point-max))))
>
> M-x get-last-message puts the empty string into the clipboard and kill
> ring.
>
> Apparently `current-message' is cleared before this command has a chance
> to get it.  This makes sense, but there is no `previous-message' command.
>
> Is there any way to get the last thing displayed in the echo area (from
> `message' or possibly from `error', too)?  This would be quite useful:
> one could then paste it to a search engine to look up the internet for
> some hints about the error/message.

What about this:

(defun get-last-message ()
  "Try to get the last message."
  (interactive)
  (with-current-buffer "*Messages*"
    (goto-char (point-max))
    (forward-line -1)
    (clipboard-kill-ring-save (line-beginning-position) (line-end-position))))

(add-hook 'post-command-hook 'get-last-message)

Steve Berman