(defvar eldoc-prev-message nil)
	(defun eldoc-store-last-message ()
		"Save a copy of eldoc-last-message before it gets cleared, so that it can be inspected later."
    (setq eldoc-prev-message eldoc-last-message))
	(advice-add 'eldoc-pre-command-refresh-echo-area :before #'eldoc-store-last-message)
	(defun eldoc-show-prev-message ()
		"Show the most recent eldoc message in a help buffer."
		(interactive)
		(with-help-window "*eldoc*"
			(set-buffer "*eldoc*")                   ;; 1
			(erase-buffer)                           ;; 2
			(insert eldoc-prev-message)              ;; 3
			;; (symbol-value eldoc-prev-message)     ;; 4
			;; (ansi-color-apply eldoc-prev-message) ;; 5
			))
	)