changeset 56364:78e8df7d1ad8

(Fclear_string): Correct previous change.
author Luc Teirlinck <teirllm@auburn.edu>
date Tue, 06 Jul 2004 19:36:56 +0000
parents 278fbbc28f40
children e7285ebf3b7a
files src/fns.c
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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);