Mercurial > hg > xemacs-beta

comparison lisp/w3/mm.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 9f59509498e1
children d2f30a177268
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
182 )) 182 ))
183 ("audio" . ( 183 ("audio" . (
184 ("x-mpeg" . (("viewer" . "maplay %s") 184 ("x-mpeg" . (("viewer" . "maplay %s")
185 ("type" . "audio/x-mpeg"))) 185 ("type" . "audio/x-mpeg")))
186 (".*" . (("viewer" . mm-play-sound-file) 186 (".*" . (("viewer" . mm-play-sound-file)
187 ("test" . (or (featurep 'nas-sound) 187 ("test" . (or (featurep 'nas-sound)
188 (featurep 'native-sound))) 188 (featurep 'native-sound)))
189 ("type" . "audio/*"))) 189 ("type" . "audio/*")))
190 (".*" . (("viewer" . "showaudio") 190 (".*" . (("viewer" . "showaudio")
191 ("type" . "audio/*"))) 191 ("type" . "audio/*")))
192 )) 192 ))
1080 (defun mm-play-sound-file (&optional buff) 1080 (defun mm-play-sound-file (&optional buff)
1081 "Play a sound file in buffer BUFF (defaults to current buffer)" 1081 "Play a sound file in buffer BUFF (defaults to current buffer)"
1082 (setq buff (or buff (current-buffer))) 1082 (setq buff (or buff (current-buffer)))
1083 (let ((fname (mm-generate-unique-filename "%s.au")) 1083 (let ((fname (mm-generate-unique-filename "%s.au"))
1084 (synchronous-sounds t)) ; Play synchronously 1084 (synchronous-sounds t)) ; Play synchronously
1085 (mm-write-region-no-coding-system (point-min) (point-max) fname) 1085 (mule-write-region-no-coding-system (point-min) (point-max) fname)
1086 (kill-buffer (current-buffer)) 1086 (kill-buffer (current-buffer))
1087 (play-sound-file fname) 1087 (play-sound-file fname)
1088 (condition-case () 1088 (condition-case ()
1089 (delete-file fname) 1089 (delete-file fname)
1090 (error nil)))) 1090 (error nil))))