(Fminibuffer_message): Verify type of parameter.

diff --git a/src/ChangeLog b/src/ChangeLog
index 66f485e8de92469e572663675ce5873ae86dd66e..b7c833928bad9551e59c1b7b55252d7d8df31add 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-24  Andreas Schwab  <schwab@suse.de>
+
+       * minibuf.c (Fminibuffer_message): Verify type of parameter.
+
 2003-01-24  Jan D.  <jan.h.d@swipnet.se>
 
        * gtkutil.c (xg_initialize): Initialize id_to_widget here instead

diff --git a/src/minibuf.c b/src/minibuf.c
index 160b36188e701239ea198fe058b16ac0b2ccd9cf..ff4c21c3f03de984519801f3a16b8825e208dd7a 100644 (file)
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -1,6 +1,6 @@
 /* Minibuffer input and completion.
    Copyright (C) 1985, 1986, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
-   2000, 2001 Free Software Foundation, Inc.
+   2000, 2001, 2003 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -2431,6 +2431,7 @@ or until the next input event arrives, whichever comes first.  */)
      (string)
      Lisp_Object string;
 {
+  CHECK_STRING (string);
   temp_echo_area_glyphs (SDATA (string));
   return Qnil;
 }