X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fapel.git;a=blobdiff_plain;f=poe.el;h=91447c1fad62f0e074c254cb0eb2a5ff53658a57;hp=e3c52316cda6a6b0abbc5f8382928ec19edc5aa6;hb=542d32c1759bc4ad48f2f14b2e6fa2c1a5f9f257;hpb=eed8569f8e65f3edefac4f59fc13f7d6f6bf2156

diff --git a/poe.el b/poe.el
index e3c5231..91447c1 100644
--- a/poe.el
+++ b/poe.el
@@ -1780,10 +1780,10 @@ the echo area while this function is waiting for an event."
   ((and (fboundp 'read-event)
 	(subrp (symbol-function 'read-event)))
    ;; Emacs 19, 20.1 and 20.2.
-   (if prompt (message prompt))
+   (if prompt (message "%s" prompt))
    (read-event))
   (t
-   (if prompt (message prompt))
+   (if prompt (message "%s" prompt))
    (read-char)))