Mercurial > hg > xemacs-beta

comparison src/sound.c @ 396:6719134a07c2 r21-2-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-13
author cvs
date Mon, 13 Aug 2007 11:12:05 +0200
parents bbff43aa5eb7
children 74fd4e045ea6
comparison
equal deleted inserted replaced
395:de2c2a7459d2 396:6719134a07c2
67 67
68 DEFUN ("play-sound-file", Fplay_sound_file, 1, 3, "fSound file name: ", /* 68 DEFUN ("play-sound-file", Fplay_sound_file, 1, 3, "fSound file name: ", /*
69 Play the named sound file on DEVICE's speaker at the specified volume 69 Play the named sound file on DEVICE's speaker at the specified volume
70 \(0-100, default specified by the `bell-volume' variable). 70 \(0-100, default specified by the `bell-volume' variable).
71 On Unix machines the sound file must be in the Sun/NeXT U-LAW format 71 On Unix machines the sound file must be in the Sun/NeXT U-LAW format
72 except under Linux where WAV files are also supported. On Microsoft 72 except under Linux where WAV files are also supported. On Microsoft
73 Windows the sound file must be in WAV format. 73 Windows the sound file must be in WAV format.
74 DEVICE defaults to the selected device. 74 DEVICE defaults to the selected device.
75 */ 75 */
76 (file, volume, device)) 76 (file, volume, device))
77 { 77 {
324 DEFUN ("device-sound-enabled-p", Fdevice_sound_enabled_p, 0, 1, 0, /* 324 DEFUN ("device-sound-enabled-p", Fdevice_sound_enabled_p, 0, 1, 0, /*
325 Return t if DEVICE is able to play sound. Defaults to selected device. 325 Return t if DEVICE is able to play sound. Defaults to selected device.
326 */ 326 */
327 (device)) 327 (device))
328 { 328 {
329 struct device *d = decode_device(device); 329 #ifdef HAVE_NAS_SOUND
330 330 if (DEVICE_CONNECTED_TO_NAS_P (decode_device (device)))
331 #ifdef HAVE_NAS_SOUND
332 if (DEVICE_CONNECTED_TO_NAS_P (d))
333 return Qt; 331 return Qt;
334 #endif 332 #endif
335 #ifdef HAVE_NATIVE_SOUND 333 #ifdef HAVE_NATIVE_SOUND
336 if (DEVICE_ON_CONSOLE_P (d)) 334 if (DEVICE_ON_CONSOLE_P (decode_device (device)))
337 return Qt; 335 return Qt;
338 #endif 336 #endif
339 return Qnil; 337 return Qnil;
340 } 338 }
341 339