Re: `last-message' variable ?

[Bastien]

Magnus Henoch <mange@freemail.hu> writes:

> I have worked around it like this:
>
> (defun last-message ()
>   "Display last message from *Messages* buffer."
>   (interactive)
>   (with-current-buffer "*Messages*"
>     (save-excursion
>       (goto-char (point-max))
>       (previous-line)
>       (message "%s" (buffer-substring (point) (1- (point-max)))))))

Thanks.  I would preferably call this function `repeat-last-message'
and make `last-message' a variable storing the result.

(defvar last-message nil
 "The last message from *Message* buffer.")

(defun repeat-last-message ()
  "Display last message from *Messages* buffer.
Store it in `last-message'."
  (interactive)
  (with-current-buffer "*Messages*"
    (save-excursion
      (goto-char (point-max))
      (previous-line)
      (message (setq last-message
         (buffer-substring (point) (1- (point-max))))))))

(Of course, the *real* last message is a repeat of the `last-message'
value, which might first seem awkward.)

I think Emacs could implement this i a more elegant way - like a
message/warnings ring.

-- 
Bastien