From: John Paul Wallington <jpw@pobox.com>
Date: Wed, 30 Oct 2002 00:40:31 +0000 (+0000)
Subject: (message_with_string): Error if STRING is not a string.
X-Git-Tag: emacs-pretest-21.2.93~38
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d052ee5ba57b9dd7460ea0b3cae914f095401532;p=emacs.git

(message_with_string): Error if STRING is not a string.
---

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)