# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1023144271 0
# Node ID c6e4c52881d7a7e5ad91173f2c6a40abf72944e0
# Parent  6adda7388fcc488dccdd941511e8d672424babea
(message_with_string): Error if STRING is not a string.

diff -r 6adda7388fcc -r c6e4c52881d7 src/xdisp.c
--- a/src/xdisp.c	Mon Jun 03 22:37:15 2002 +0000
+++ b/src/xdisp.c	Mon Jun 03 22:44:31 2002 +0000
@@ -6053,6 +6053,8 @@
      Lisp_Object string;
      int log;
 {
+  CHECK_STRING (string);
+
   if (noninteractive)
     {
       if (m)