From xemacs-m  Mon May  5 01:44:28 1997
Received: from ornet.ornet.co.il (ornet.co.il [194.90.140.5])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id BAA20367
	for <xemacs-beta@xemacs.org>; Mon, 5 May 1997 01:44:25 -0500 (CDT)
Received: from merlin.ornet.co.il (merlin.ornet.co.il [194.90.140.25]) by ornet.ornet.co.il (8.7.6/8.7.3) with ESMTP id JAA04535 for <xemacs-beta@xemacs.org>; Mon, 5 May 1997 09:44:23 +0300 (IDT)
Received: (from ricky@localhost) by merlin.ornet.co.il (8.7.6/8.7.3) id JAA09629; Mon, 5 May 1997 09:44:23 +0300 (IDT)
Date: Mon, 5 May 1997 09:44:23 +0300 (IDT)
Message-Id: <199705050644.JAA09629@merlin.ornet.co.il>
From: Ricardo Marek <ricky@ornet.co.il>
To: XEmacs Beta Testing List <xemacs-beta@xemacs.org>
Subject: Re: [?] XEmacs 20.2-b2 on SunOS 4.1.4 fails to load sounds?? (With NAS)
In-Reply-To: <m2zpubc61e.fsf@altair.xemacs.org>
References: <199705040950.MAA03078@merlin.ornet.co.il>
	<m2zpubc61e.fsf@altair.xemacs.org>
X-Mailer: VM 6.29 under 20.2 XEmacs Lucid (beta2)
X-Face: "1qJf"LysT#xLa=~giYhF>sci:y$xiN`)FlEd7nf4Al;@ARuU|1|n_F!cXszC^^T;Q&42s}/5Q)5g0$0D'Y6.[]h]:SzlbMWu_?<'*suHpRzOGp&1VHvV~5CDMX}eRc)z3zw,XIPgG@Q*W)oG(/>;YU
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII


Hi,

Yes, Yes, Yes!...

I noticed that in the 'Recent Messages' XEmacs was complaining about
sound.el that newer than the compiled file, so I bytecompiled and this
fixed the problem. 

Thanks for the patch!

>>>>> Steven L Baur writes:

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

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

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

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



-- 
--- Ricky                                    -*- Mode: Another-Unix-Hacker -*-
------------------------------------------------------------------------------
--- e-mail: ricky@ornet.co.il       ORNET Data Communication Technologies Ltd.  
--- phone: +972-4-9981314                      (A Siemens Company)
------------------------------------------------------------------------------
stab_val(stab)->str_nok = 1;    /* what a wonderful hack! */
     --Larry Wall in stab.c from the perl source code

