From xemacs-m  Sun May  4 15:52:29 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 PAA11327
	for <xemacs-beta@xemacs.org>; Sun, 4 May 1997 15:52:28 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id NAA15354;
	Sun, 4 May 1997 13:54:06 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: [?] XEmacs 20.2-b2 on SunOS 4.1.4 fails to load sounds?? (With NAS)
References: <199705040950.MAA03078@merlin.ornet.co.il>
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: Ricardo Marek's message of Sun, 4 May 1997 12:50:01 +0300 (IDT)
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
Date: 04 May 1997 13:54:05 -0700
Message-ID: <m2zpubc61e.fsf@altair.xemacs.org>
Lines: 39
X-Mailer: Gnus v5.4.50/XEmacs 20.2(beta5)

Ricardo Marek <ricky@ornet.co.il> writes:
 [Sounds don't load]
> Running it on XEmacs 20.2 (beta-2)
 ...
> Any hint?

This should have already been fixed.  Here is the patch from beta2 to
bring sound.el up to date.

Index: lisp/prim/sound.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/prim/sound.el,v
retrieving revision 1.6
retrieving revision 1.8
diff -u -r1.6 -r1.8
--- sound.el	1997/04/24 05:21:01	1.6
+++ sound.el	1997/05/03 00:26:25	1.8
@@ -128,11 +128,15 @@
   (interactive "fSound file name: \n\
 SSymbol to name this sound: \n\
 nVolume (0 for default): ")
-  (or (symbolp sound-name) (error "sound-name not a symbol"))
-  (or (null volume) (integerp volume) (error "volume not an integer or nil"))
+  (unless (symbolp sound-name)
+    (error "sound-name not a symbol"))
+  (unless (or (null volume) (integerp volume))
+    (error "volume not an integer or nil"))
   (let (buf
 	data
 	(file (locate-file filename  default-sound-directory-list  sound-ext)))
+    (unless file
+      (error "Couldn't load sound file %s" filename))
     (unwind-protect
 	(save-excursion
 	  (set-buffer (setq buf (get-buffer-create " *sound-tmp*")))

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

