summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn Paul Wallington <jpw@pobox.com>2002-10-30 00:40:31 +0000
committerJohn Paul Wallington <jpw@pobox.com>2002-10-30 00:40:31 +0000
commitd052ee5ba57b9dd7460ea0b3cae914f095401532 (patch)
tree433c3e93afb00da493c4da777ac60ad891e9aac0
parent0e5e6e4fe7f18194fbf6d1f3d409ede19298e56e (diff)
downloademacs-d052ee5ba57b9dd7460ea0b3cae914f095401532.tar.gz
(message_with_string): Error if STRING is not a string.
-rw-r--r--src/ChangeLog4
-rw-r--r--src/xdisp.c2
2 files changed, 6 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index ad9cfaa409f..4e6790ffae5 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2002-10-30 John Paul Wallington <jpw@shootybangbang.com>
+
+ * xdisp.c (message_with_string): Error if STRING is not a string.
+
2002-10-25 Kenichi Handa <handa@m17n.org>
* xfns.c (x_set_name): Encode by Qcompound_text unconditionally.
diff --git a/src/xdisp.c b/src/xdisp.c
index 5079daa30e0..70d590c30bf 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -6032,6 +6032,8 @@ message_with_string (m, string, log)
Lisp_Object string;
int log;
{
+ CHECK_STRING (string, 0);
+
if (noninteractive)
{
if (m)