From: Pavel Janík <Pavel@Janik.cz>
Date: Mon, 14 Jan 2002 08:49:30 +0000 (+0000)
Subject: (Fplay_sound): Initialize header_size also for :data case.
X-Git-Tag: emacs-21.2~191
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd95fc08dce966ba1204ae40d48150071daf3c7e;p=emacs.git

(Fplay_sound): Initialize header_size also for :data case.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 9489c1f4a37..2f9fc4834b1 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-14  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+	* sound.c (Fplay_sound): Initialize header_size also for :data
+	case.
+
 2002-01-13  Andreas Schwab  <schwab@suse.de>
 
 	* xterm.c (x_load_font): Never set fonts_changed_p to zero.
diff --git a/src/sound.c b/src/sound.c
index 00d5fa2d073..2682415e376 100644
--- a/src/sound.c
+++ b/src/sound.c
@@ -446,8 +446,8 @@ a system-dependent default device name is used.")
   else
     {
       s.data = attrs[SOUND_DATA];
-      bcopy (XSTRING (s.data)->data, s.header,
-	     min (MAX_SOUND_HEADER_BYTES, STRING_BYTES (XSTRING (s.data))));
+      s.header_size = min (MAX_SOUND_HEADER_BYTES, STRING_BYTES (XSTRING (s.data)));
+      bcopy (XSTRING (s.data)->data, s.header, s.header_size);
     }
 
   /* Find out the type of sound.  Give up if we can't tell.  */