From: Andreas Schwab <schwab@suse.de>
Date: Fri, 24 Jan 2003 19:15:14 +0000 (+0000)
Subject: (Fminibuffer_message): Verify type of parameter.
X-Git-Tag: ttn-vms-21-2-B4~11500
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a9e275b0e18e956fcddcb5cd6718e6f5aefbb31;p=emacs.git

(Fminibuffer_message): Verify type of parameter.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 66f485e8de9..b7c833928ba 100644
--- 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 160b36188e7..ff4c21c3f03 100644
--- 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;
 }