From: Luc Teirlinck <teirllm@auburn.edu>
Date: Tue, 6 Jul 2004 19:36:56 +0000 (+0000)
Subject: (Fclear_string): Correct previous change.
X-Git-Tag: ttn-vms-21-2-B4~5532
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cfd236932d80bf74ced790212acbf9b4d108926a;p=emacs.git

(Fclear_string): Correct previous change.
---

diff --git a/src/fns.c b/src/fns.c
index 4dd04bf0b50..06d04781789 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -2370,8 +2370,9 @@ This makes STRING unibyte and may change its length.  */)
      (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);