(Fminibuffer_message): Verify type of parameter.

diff --git a/src/ChangeLog b/src/ChangeLog
index 55a18b7ade8d847b9ada1440dc6813f5559bb01c..af8642849f428995190d55dc416e0b2c14066237 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-21  Richard Dawe  <rich@phekda.freeserve.co.uk>  (tiny change)
 
        * Makefile.in (ALL_CFLAGS): Include MYCPPFLAGS, not MYCPPFLAG.

diff --git a/src/minibuf.c b/src/minibuf.c
index 51ea67a10e85f5d1bd5c5f68531e05db05cedefd..d325407711f669e5895a14b8ca7c1e6c55a23d3f 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.
 
@@ -2290,6 +2290,7 @@ or until the next input event arrives, whichever comes first.")
   (string)
      Lisp_Object string;
 {
+  CHECK_STRING (string, 0);
   temp_echo_area_glyphs (XSTRING (string)->data);
   return Qnil;
 }