From xemacs-m  Mon Apr 28 13:51:57 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 NAA08877
	for <xemacs-beta@xemacs.org>; Mon, 28 Apr 1997 13:51:56 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id MAA08847;
	Mon, 28 Apr 1997 12:05:03 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: [OFFICIAL PATCH] (was Re: sound.el patch)
References: <bcirafvhue6.fsf@corp.Sun.COM> <199704281838.MAA11689@branagh.ta52.lanl.gov>
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: "John A. Turner"'s message of Mon, 28 Apr 1997 12:38:36 -0600
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
Date: 28 Apr 1997 12:05:03 -0700
Message-ID: <m23esb2ckg.fsf_-_@altair.xemacs.org>
Lines: 34
X-Mailer: Gnus v5.4.48/XEmacs 20.2(beta4)

John A Turner <turner@lanl.gov> writes:

> Gary D. Foster writes:
>> 20.2-b3 gives me the following backtrace on (load-default-sound):

> I reported this yesterday and Steve posted a patch (different from
> yours, I believe).

We just got a bug report on this, so perhaps people missed the patch I 
posted earlier.  (I screwed up hand applying a patch to sound.el in
beta3, if you want to know where this problem came from).

Index: lisp/prim/sound.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/prim/sound.el,v
retrieving revision 1.7
diff -u -r1.7 sound.el
--- sound.el	1997/04/27 19:30:39	1.7
+++ sound.el	1997/04/28 01:09:45
@@ -130,8 +130,8 @@
 nVolume (0 for default): ")
   (unless (symbolp sound-name)
     (error "sound-name not a symbol"))
-  (unless (null volume)
-    (integerp volume) (error "volume not an integer or nil"))
+  (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)))

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

