Mercurial > hg > xemacs-beta

comparison lisp/prim/sound.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 131b0175ea99
children 9b50b4588a93
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
29 29
30 ;;;###autoload 30 ;;;###autoload
31 (defun load-sound-file (filename sound-name &optional volume) 31 (defun load-sound-file (filename sound-name &optional volume)
32 "Read in an audio-file and add it to the sound-alist. 32 "Read in an audio-file and add it to the sound-alist.
33 33
34 You can only play sound files if you are running on display 0 of the console 34 You can only play sound files if you are running on display 0 of the
35 of a Sun SparcStation, SGI machine, or HP9000s700, or running a NetAudio 35 console of a machine with native sound support or running a NetAudio
36 server. The sound file must be in the Sun/NeXT U-LAW format." 36 server and XEmacs has the necessary sound support compiled in.
37
38 The sound file must be in the Sun/NeXT U-LAW format."
37 (interactive "fSound file name: \n\ 39 (interactive "fSound file name: \n\
38 SSymbol to name this sound: \n\ 40 SSymbol to name this sound: \n\
39 nVolume (0 for default): ") 41 nVolume (0 for default): ")
40 (or (symbolp sound-name) (error "sound-name not a symbol")) 42 (or (symbolp sound-name) (error "sound-name not a symbol"))
41 (or (null volume) (integerp volume) (error "volume not an integer or nil")) 43 (or (null volume) (integerp volume) (error "volume not an integer or nil"))