Mercurial > hg > xemacs-beta

comparison lisp/prim/sound.el @ 140:585fb297b004 r20-2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b4
author cvs
date Mon, 13 Aug 2007 09:32:43 +0200
parents 6608ceec7cf8
children 41ff10fd062f
comparison
equal deleted inserted replaced
139:2b5203979d01 140:585fb297b004
128 (interactive "fSound file name: \n\ 128 (interactive "fSound file name: \n\
129 SSymbol to name this sound: \n\ 129 SSymbol to name this sound: \n\
130 nVolume (0 for default): ") 130 nVolume (0 for default): ")
131 (unless (symbolp sound-name) 131 (unless (symbolp sound-name)
132 (error "sound-name not a symbol")) 132 (error "sound-name not a symbol"))
133 (unless (null volume) 133 (unless (or (null volume) (integerp volume))
134 (integerp volume) (error "volume not an integer or nil")) 134 (error "volume not an integer or nil"))
135 (let (buf 135 (let (buf
136 data 136 data
137 (file (locate-file filename default-sound-directory-list sound-ext))) 137 (file (locate-file filename default-sound-directory-list sound-ext)))
138 (unless file 138 (unless file
139 (error "Couldn't load sound file %s" filename)) 139 (error "Couldn't load sound file %s" filename))