using (current-message) bound to a key

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.

Re: using (current-message) bound to a key

[Peter Dyballa]

Am 11.07.2013 um 11:56 schrieb Nicolas Richard:

> I'm trying to access what's located in the echo area.

You can find it also in *Messages* buffer…

--
Greetings

  Pete

You can learn many things from children.  How much patience you have, for instance.
				– Franklin P. Jones

Re: using (current-message) bound to a key

[Nicolas Richard]

Peter Dyballa <Peter_Dyballa@Web.DE> writes:

> Am 11.07.2013 um 11:56 schrieb Nicolas Richard:
>
>> I'm trying to access what's located in the echo area.
>
> You can find it also in *Messages* buffer…

Yes, thank you, but while this is true most of the time, it is not
always true -- and sometimes the text is slightly different (usually: a
"user-error: " or "call-interactively: " can be prepended, or " [n
times]" can be appended).

I do admit that the following would be good enough in all cases I can
think of:

(with-current-buffer "*Messages*"
  (save-excursion
    (goto-char (point-max))
    (skip-chars-backward "\n")
    (buffer-substring-no-properties (point) 
                                    (progn
                                      (skip-chars-backward "^\n")
                                      (point)))))

-- 
Nicolas