using (current-message) bound to a key

[Nicolas Richard]

Hello,

I'm trying to access what's located in the echo area. I failed. Could
someone explain what I'm doing wrong ?

(defun show-current-message ()
  (interactive)
  (insert (format "%s" (current-message))))
(global-set-key (kbd "<f5>") 'show-current-message)

That doesn't work, e.g. if I write "'foo" and then hit the
keys: C-x e <f5>, I get "nil" inserted whereas I expected to have
"foo" inserted.

Perhaps the way C-x e works is getting in the way, so I try this:
(defun say-hi ()
  (interactive)
  (message "hi"))
(global-set-key (kbd "<f6>") 'say-hi)

then hitting succesively f6 and f5 inserts again "nil" instead of the
expected "hi".

On the other hand,
(progn
  (message "hi")
  (call-interactively 'show-current-message))
inserts "hi" as expected.

So there is something wrong with me binding show-current-message to a
key. How to work around this ?

Thanks

-- 
Nico.