From d052ee5ba57b9dd7460ea0b3cae914f095401532 Mon Sep 17 00:00:00 2001
From: John Paul Wallington <jpw@pobox.com>
Date: Wed, 30 Oct 2002 00:40:31 +0000
Subject: [PATCH] (message_with_string): Error if STRING is not a string.

---
 src/ChangeLog | 4 ++++
 src/xdisp.c   | 2 ++
 2 files changed, 6 insertions(+)

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