comparison src/sound.c @ 771:943eaba38521

[xemacs-hg @ 2002-03-13 08:51:24 by ben] The big ben-mule-21-5 check-in! Various files were added and deleted. See CHANGES-ben-mule. There are still some test suite failures. No crashes, though. Many of the failures have to do with problems in the test suite itself rather than in the actual code. I'll be addressing these in the next day or so -- none of the test suite failures are at all critical. Meanwhile I'll be trying to address the biggest issues -- i.e. build or run failures, which will almost certainly happen on various platforms. All comments should be sent to ben@xemacs.org -- use a Cc: if necessary when sending to mailing lists. There will be pre- and post- tags, something like pre-ben-mule-21-5-merge-in, and post-ben-mule-21-5-merge-in.
author ben
date Wed, 13 Mar 2002 08:54:06 +0000
parents fdefd0186b75
children e38acbeb1cae
comparison
equal deleted inserted replaced
770:336a418893b5 771:943eaba38521
156 #ifdef HAVE_NATIVE_SOUND 156 #ifdef HAVE_NATIVE_SOUND
157 if (NILP (Vnative_sound_only_on_console) || DEVICE_ON_CONSOLE_P (d)) 157 if (NILP (Vnative_sound_only_on_console) || DEVICE_ON_CONSOLE_P (d))
158 { 158 {
159 Extbyte *fileext; 159 Extbyte *fileext;
160 160
161 #ifdef WIN32_NATIVE
162 /* #### more garbage. we should be passing the internal file name
163 to play_sound_file. */
164 LISP_STRING_TO_EXTERNAL (file, fileext, Qmswindows_tstr);
165 #else
161 LISP_STRING_TO_EXTERNAL (file, fileext, Qfile_name); 166 LISP_STRING_TO_EXTERNAL (file, fileext, Qfile_name);
167 #endif
162 /* The sound code doesn't like getting SIGIO interrupts. 168 /* The sound code doesn't like getting SIGIO interrupts.
163 Unix sucks! */ 169 Unix sucks! */
164 stop_interrupts (); 170 stop_interrupts ();
165 play_sound_file (fileext, vol); 171 play_sound_file (fileext, vol);
166 start_interrupts (); 172 start_interrupts ();