From: yoichi <yoichi>
Date: Tue, 13 May 2003 13:43:26 +0000 (+0000)
Subject: protect 1st argument of message
X-Git-Tag: apel-10_5~7
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fapel.git;a=commitdiff_plain;h=542d32c1759bc4ad48f2f14b2e6fa2c1a5f9f257;ds=sidebyside

protect 1st argument of message
---

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)))