From da460ff374c75b28ea37c6be3345fd3af0275444 Mon Sep 17 00:00:00 2001
From: jsalmon3 <>
Date: Tue, 29 Apr 2003 04:07:08 +0000
Subject: [PATCH] Renamed CclSetMessage to CclAddMessage
---
src/ui/script_ui.cpp | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/ui/script_ui.cpp b/src/ui/script_ui.cpp
index 634bb2bc7..578d16fe8 100644
--- a/src/ui/script_ui.cpp
+++ b/src/ui/script_ui.cpp
@@ -3591,12 +3591,12 @@ local SCM CclSetShowOrders(SCM flag)
**
** @param message Message to display.
*/
-global SCM CclSetMessage(SCM message)
+local SCM CclAddMessage(SCM message)
{
const char *str;
str = get_c_string(message);
- SetMessage(str);
+ SetMessage("%s", str);
return SCM_UNSPECIFIED;
}
@@ -3671,7 +3671,7 @@ local SCM CclAddKeystrokeHelp(SCM list)
global void UserInterfaceCclRegister(void)
{
- gh_new_procedure1_0("add-message", CclSetMessage);
+ gh_new_procedure1_0("add-message", CclAddMessage);
gh_new_procedure1_0("set-color-cycle-all!",CclSetColorCycleAll);
gh_new_procedure1_0("set-reverse-map-move!",CclSetReverseMapMove);