From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 3 Jun 2002 22:44:31 +0000 (+0000)
Subject: (message_with_string): Error if STRING is not a string.
X-Git-Tag: ttn-vms-21-2-B4~14778
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5b6d51b6e89cf9f35cef15e2c30f66a4a19b6fd4;p=emacs.git

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

diff --git a/src/xdisp.c b/src/xdisp.c
index a6870316e0c..155602e2b4a 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -6053,6 +6053,8 @@ message_with_string (m, string, log)
      Lisp_Object string;
      int log;
 {
+  CHECK_STRING (string);
+
   if (noninteractive)
     {
       if (m)