(Fclear_string): Signal an error if STRING is not a string.

diff --git a/src/ChangeLog b/src/ChangeLog
index 254069032ed998df7679a12dc1f38333f010dafb..18fdeb633f5fc83abe1212f88a267e6ca43ccd08 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -2,6 +2,8 @@
 
        * eval.c (Fdefmacro): Signal an error if NAME is not a symbol.
 
+       * fns.c (Fclear_string): Signal an error if STRING is not a string.
+
 2004-07-05  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
 
        * macterm.c (mac_initialize_display_info): Use CGGetActiveDisplayList

diff --git a/src/fns.c b/src/fns.c
index 693f3eaaa934130a4abade1aaf8d01c240faddcf..cbd0dc91d2bf5f6f1ba5780757e1f9622dd5621e 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -2370,6 +2370,7 @@ This makes STRING unibyte and may change its length.  */)
      (string)
      Lisp_Object string;
 {
+  CHECK_STRING (string);
   int len = SBYTES (string);
   bzero (SDATA (string), len);
   STRING_SET_CHARS (string, len);