Mercurial > hg > xemacs-beta

comparison lisp/prim/sound.el @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents 0d2f883870bc
children 34a5b81f86ba
comparison
equal deleted inserted replaced
123:c77884c6318d 124:9b50b4588a93
33 33
34 You can only play sound files if you are running on display 0 of the 34 You can only play sound files if you are running on display 0 of the
35 console of a machine with native sound support or running a NetAudio 35 console of a machine with native sound support or running a NetAudio
36 server and XEmacs has the necessary sound support compiled in. 36 server and XEmacs has the necessary sound support compiled in.
37 37
38 The sound file must be in the Sun/NeXT U-LAW format." 38 The sound file must be in the Sun/NeXT U-LAW format, except on Linux,
39 where .wav files are also supported by the sound card drivers."
39 (interactive "fSound file name: \n\ 40 (interactive "fSound file name: \n\
40 SSymbol to name this sound: \n\ 41 SSymbol to name this sound: \n\
41 nVolume (0 for default): ") 42 nVolume (0 for default): ")
42 (or (symbolp sound-name) (error "sound-name not a symbol")) 43 (or (symbolp sound-name) (error "sound-name not a symbol"))
43 (or (null volume) (integerp volume) (error "volume not an integer or nil")) 44 (or (null volume) (integerp volume) (error "volume not an integer or nil"))
63 sound-alist))) 64 sound-alist)))
64 sound-name) 65 sound-name)
65 66
66 ;;;###autoload 67 ;;;###autoload
67 (defun load-default-sounds () 68 (defun load-default-sounds ()
68 "Load and install some sound files as beep-types. 69 "Load and install some sound files as beep-types, using
69 This only works if you're on display 0 of a Sun SparcStation, SGI machine, 70 `load-sound-file'. This only works if you're on display 0 of the
70 or HP9000s700, or running a NetAudio server." 71 console of a machine with native sound support or running a NetAudio
72 server and XEmacs has the necessary sound support compiled in."
71 (interactive) 73 (interactive)
72 ;; #### - this should do NOTHING if the sounds can't be played. 74 ;; #### - this should do NOTHING if the sounds can't be played.
73 (message "Loading sounds...") 75 (message "Loading sounds...")
74 (setq sound-alist nil) 76 (setq sound-alist nil)
75 (let ((default-directory data-directory)) 77 (let ((default-directory data-directory))