Mercurial > hg > xemacs-beta

comparison src/sound.c @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents a4f53d9b3154
children 8626e4521993
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
67 #endif 67 #endif
68 68
69 DEFUN ("play-sound-file", Fplay_sound_file, 1, 3, "fSound file name: ", /* 69 DEFUN ("play-sound-file", Fplay_sound_file, 1, 3, "fSound file name: ", /*
70 Play the named sound file on DEVICE's speaker at the specified volume 70 Play the named sound file on DEVICE's speaker at the specified volume
71 \(0-100, default specified by the `bell-volume' variable). 71 \(0-100, default specified by the `bell-volume' variable).
72 On Unix machines the sound file must be in the Sun/NeXT U-LAW format 72 The sound file must be in the Sun/NeXT U-LAW format except under Linux
73 except under Linux where WAV files are also supported. On Microsoft 73 where WAV files are also supported.
74 Windows the sound file must be in WAV format.
75 DEVICE defaults to the selected device. 74 DEVICE defaults to the selected device.
76 */ 75 */
77 (file, volume, device)) 76 (file, volume, device))
78 { 77 {
79 /* This function can call lisp */ 78 /* This function can call lisp */
592 Vsynchronous_sounds = Qnil; 591 Vsynchronous_sounds = Qnil;
593 592
594 DEFVAR_LISP ("native-sound-only-on-console", &Vnative_sound_only_on_console /* 593 DEFVAR_LISP ("native-sound-only-on-console", &Vnative_sound_only_on_console /*
595 Non-nil value means play sounds only if XEmacs is running 594 Non-nil value means play sounds only if XEmacs is running
596 on the system console. 595 on the system console.
597 Nil means always play sounds, even if running on a non-console tty 596 Nil means always always play sounds, even if running on a non-console tty
598 or a secondary X display. 597 or a secondary X display.
599 598
600 This variable only applies to native sound support. 599 This variable only applies to native sound support.
601 */ ); 600 */ );
602 Vnative_sound_only_on_console = Qt; 601 Vnative_sound_only_on_console = Qt;