From: Luc Teirlinck <teirllm@auburn.edu>
Date: Tue, 6 Jul 2004 17:55:00 +0000 (+0000)
Subject: (Fclear_string): Put call to CHECK_STRING in correct place.
X-Git-Tag: ttn-vms-21-2-B4~5534
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a085bf9dd6bc5a1e3cf80e8e23b83ef6786c8911;p=emacs.git

(Fclear_string): Put call to CHECK_STRING in correct place.
---

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  <teirllm@auburn.edu>
+
+	* fns.c (Fclear_string): Put call to CHECK_STRING in correct place.
+
 2004-07-06  John Paul Wallington  <jpw@gnu.org>
 
 	* 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);