[Emacs-diffs] Changes to emacs/src/fns.c

[Luc Teirlinck]

Index: emacs/src/fns.c
diff -c emacs/src/fns.c:1.371 emacs/src/fns.c:1.372
*** emacs/src/fns.c:1.371       Tue Jul  6 17:50:32 2004
--- emacs/src/fns.c     Tue Jul  6 19:36:56 2004
***************
*** 2370,2377 ****
       (string)
       Lisp_Object string;
  {
!   int len = SBYTES (string);
    CHECK_STRING (string);
    bzero (SDATA (string), len);
    STRING_SET_CHARS (string, len);
    STRING_SET_UNIBYTE (string);
--- 2370,2378 ----
       (string)
       Lisp_Object string;
  {
!   int len;
    CHECK_STRING (string);
+   len = SBYTES (string);
    bzero (SDATA (string), len);
    STRING_SET_CHARS (string, len);
    STRING_SET_UNIBYTE (string);