From a085bf9dd6bc5a1e3cf80e8e23b83ef6786c8911 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Tue, 6 Jul 2004 17:55:00 +0000 Subject: [PATCH] (Fclear_string): Put call to CHECK_STRING in correct place. --- src/ChangeLog | 4 ++++ src/fns.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index 18fdeb633f5..252a7591d20 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2004-07-06 Luc Teirlinck + + * fns.c (Fclear_string): Put call to CHECK_STRING in correct place. + 2004-07-06 John Paul Wallington * eval.c (Fdefmacro): Signal an error if NAME is not a symbol. diff --git a/src/fns.c b/src/fns.c index cbd0dc91d2b..4dd04bf0b50 100644 --- a/src/fns.c +++ b/src/fns.c @@ -2370,8 +2370,8 @@ This makes STRING unibyte and may change its length. */) (string) Lisp_Object string; { - CHECK_STRING (string); int len = SBYTES (string); + CHECK_STRING (string); bzero (SDATA (string), len); STRING_SET_CHARS (string, len); STRING_SET_UNIBYTE (string); -- 2.11.4.GIT