From d052ee5ba57b9dd7460ea0b3cae914f095401532 Mon Sep 17 00:00:00 2001 From: John Paul Wallington 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 + + * xdisp.c (message_with_string): Error if STRING is not a string. + 2002-10-25 Kenichi Handa * 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