From xemacs-m  Wed Apr 23 12:45:23 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id MAA08402
	for <xemacs-beta@xemacs.org>; Wed, 23 Apr 1997 12:45:18 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id KAA08910;
	Wed, 23 Apr 1997 10:58:33 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: 20.2-b1 change in load-sound-file
References: <3411.861807414@rtp.ericsson.se>
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: Raymond Toy's message of Wed, 23 Apr 1997 10:56:54 -0400
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
Date: 23 Apr 1997 10:58:33 -0700
Message-ID: <m23eshwrhy.fsf@altair.xemacs.org>
Lines: 41
X-Mailer: Gnus v5.4.46/XEmacs 20.2(beta2)

Raymond Toy <toy@rtp.ericsson.se> writes:

> Signaling: (wrong-type-argument stringp nil)
>   find-file-name-handler(nil file-name-sans-versions)
>   file-name-sans-versions(nil)
>   find-buffer-file-coding-system-from-filename(nil)
    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

There is a MULE bug in sound.el.  This patch should help:

[Note that I do not have access to a system with sound so somebody
should test this].

Wed Apr 23 10:56:05 1997  Steven L Baur  <steve@altair.xemacs.org>

	* prim/sound.el (load-sound-file): Make sure sound files are read
	as binary files.

Index: lisp/prim/sound.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/prim/sound.el,v
retrieving revision 1.4
diff -u -r1.4 sound.el
--- sound.el	1997/04/19 23:21:15	1.4
+++ sound.el	1997/04/23 17:54:02
@@ -136,8 +136,9 @@
 	  (set-buffer (setq buf (get-buffer-create " *sound-tmp*")))
 	  (buffer-disable-undo (current-buffer))
 	  (erase-buffer)
-	  (insert-file-contents 
-	   (locate-file filename  default-sound-directory-list  sound-ext ))
+	  (let ((coding-system-for-read 'binary))
+	    (insert-file-contents 
+	     (locate-file filename default-sound-directory-list sound-ext)))
 	  (setq data (buffer-string))
 	  (erase-buffer))
       (and buf (kill-buffer buf)))

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.

