summaryrefslogtreecommitdiff
path: root/src/fns.c
diff options
context:
space:
mode:
authorLuc Teirlinck <teirllm@auburn.edu>2004-07-06 17:55:00 +0000
committerLuc Teirlinck <teirllm@auburn.edu>2004-07-06 17:55:00 +0000
commita085bf9dd6bc5a1e3cf80e8e23b83ef6786c8911 (patch)
tree375d28ea7dac683d38f46b79c561b763ce069a72 /src/fns.c
parentcc0aea1a20e2afff0524de88f4e708f4e0fc0bae (diff)
downloademacs-a085bf9dd6bc5a1e3cf80e8e23b83ef6786c8911.tar.gz
(Fclear_string): Put call to CHECK_STRING in correct place.
Diffstat (limited to 'src/fns.c')
-rw-r--r--src/fns.c2
1 files changed, 1 insertions, 1 deletions
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);