Re: plays-sound hangs Emacs

[Andreas Schwab]

gerd.moellmann@t-online.de (Gerd Moellmann) writes:

|> Jesper Harder <harder@myrealbox.com> writes:
|> 
|> > (play-sound '(sound :file 
"/usr/lib/xemacs/xemacs-packages/etc/sounds/Tuxedomoon.Jingle4.au"))
|> > 
|> > I get this backtrace:
|> > 
|> > Debugger entered--Lisp error: (error "Set sound speed: Success")
|> 
|> Thanks, Jesper.  I think this will fix it:
|> 
|> *** sound.c  2001/10/27 08:35:02     1.19
|> --- sound.c  2001/10/27 08:45:11
|> ***************
|> *** 235,240 ****
|> --- 235,241 ----
|>   static void vox_init P_ ((struct sound_device *));
|>   static void vox_write P_ ((struct sound_device *, char *, int));
|>   static void sound_perror P_ ((char *));
|> + static void sound_warning P_ ((char *));
|>   static int parse_sound P_ ((Lisp_Object, Lisp_Object *));
|>   static void find_sound_type P_ ((struct sound *));
|>   static u_int32_t le2hl P_ ((u_int32_t));
|> ***************
|> *** 261,267 ****
|>   sound_perror (msg)
|>        char *msg;
|>   {
|> !   error ("%s: %s", msg, strerror (errno));
|>   }
|>   
|>   
|> --- 262,285 ----
|>   sound_perror (msg)
|>        char *msg;
|>   {
|> !   turn_on_atimers (1);
|> ! #ifdef SIGIO
|> !   sigunblock (sigmask (SIGIO));
|> ! #endif
|> !   if (errno != 0)

You should save errno around the function calls above, as they might (and
probably will) change it.

Andreas.

-- 
Andreas Schwab                                  "And now for something
Andreas.Schwab@suse.de                          completely different."
SuSE Labs, SuSE GmbH, Schanzäckerstr. 10, D-90443 Nürnberg
Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5