How can I get the last message outputted?

How can I get the last message outputted?

[Emanuel Berg via Users list for the GNU Emacs text editor]

T2C - The Emacs Challenge Competition - round 4

How do I get the last message that was outputted?

How can I get the last message?

(defun get-last-message ()
  (interactive)
   (let ((msg-buffer (get-buffer "*Messages*")))
    (when msg-buffer
      (with-temp-buffer
        (insert-buffer-substring msg-buffer)
        (goto-char (point-max))
        (forward-line -1)
        (let ((beg (point-at-bol))
              (end (point-at-eol)) )
          (buffer-substring-no-properties beg end) )))))

;; (message "I was afraid you'd be trapped outside the city.")
;; (message "Hey, I wasn't worried for a microsecond!")
;; (message "Then you probably didn't understand the situation.")
;;
;; (get-last-message)


PS. Yes, tha were tArcee and Hot Rod. 1986 TF:TM <3

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal