# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1089142616 0
# Node ID 78e8df7d1ad833b0a70bb145a79e4658de625f13
# Parent  278fbbc28f40b85502270658e6112f70d5ae8b9c
(Fclear_string): Correct previous change.

diff -r 278fbbc28f40 -r 78e8df7d1ad8 src/fns.c
--- a/src/fns.c	Tue Jul 06 18:49:32 2004 +0000
+++ b/src/fns.c	Tue Jul 06 19:36:56 2004 +0000
@@ -2370,8 +2370,9 @@
      (string)
      Lisp_Object string;
 {
-  int len = SBYTES (string);
+  int len;
   CHECK_STRING (string);
+  len = SBYTES (string);
   bzero (SDATA (string), len);
   STRING_SET_CHARS (string, len);
   STRING_SET_UNIBYTE (string);