Mercurial > hg > xemacs-beta

comparison lisp/prim/sound.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 8fc7fe29b841
children 0d2f883870bc
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 ;; General Public License for more details. 16 ;; General Public License for more details.
17 17
18 ;; You should have received a copy of the GNU General Public License 18 ;; You should have received a copy of the GNU General Public License
19 ;; along with XEmacs; see the file COPYING. If not, write to the 19 ;; along with XEmacs; see the file COPYING. If not, write to the
20 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 20 ;; Free Software Foundation, 59 Temple Place - Suite 330,
21 ;; Boston, MA 02111-1307, USA. 21 ;; Boston, MA 02111-1307, USA.
22 22
23 ;;; Synched up with: Not in FSF. 23 ;;; Synched up with: Not in FSF.
24 24
25 ;;;###autoload 25 ;;;###autoload
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 34 You can only play sound files if you are running on display 0 of the console
35 console of a machine with native sound support or running a NetAudio 35 of a Sun SparcStation, SGI machine, or HP9000s700, or running a NetAudio
36 server and XEmacs has the necessary sound support compiled in. 36 server. The sound file must be in the Sun/NeXT U-LAW format."
37
38 The sound file must be in the Sun/NeXT U-LAW format."
39 (interactive "fSound file name: \n\ 37 (interactive "fSound file name: \n\
40 SSymbol to name this sound: \n\ 38 SSymbol to name this sound: \n\
41 nVolume (0 for default): ") 39 nVolume (0 for default): ")
42 (or (symbolp sound-name) (error "sound-name not a symbol")) 40 (or (symbolp sound-name) (error "sound-name not a symbol"))
43 (or (null volume) (integerp volume) (error "volume not an integer or nil")) 41 (or (null volume) (integerp volume) (error "volume not an integer or nil"))