From fa164e6ae7aa9a26a9a5b08400175becaa0e7724 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Tue, 6 Jul 2004 05:08:57 +0000 Subject: [PATCH] (Fclear_string): Signal an error if STRING is not a string. --- src/ChangeLog | 2 ++ src/fns.c | 1 + 2 files changed, 3 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index 254069032ed..18fdeb633f5 100644 --- 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,Ad(Brv * macterm.c (mac_initialize_display_info): Use CGGetActiveDisplayList diff --git a/src/fns.c b/src/fns.c index 693f3eaaa93..cbd0dc91d2b 100644 --- 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); -- 2.39.2