projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2003-01-14 Lars Magne Ingebrigtsen <larsi@gnus.org>
[gnus]
/
lisp
/
gnus-audio.el
diff --git
a/lisp/gnus-audio.el
b/lisp/gnus-audio.el
index
8906745
..
af10d58
100644
(file)
--- a/
lisp/gnus-audio.el
+++ b/
lisp/gnus-audio.el
@@
-47,12
+47,12
@@
:type '(choice directory (const nil))
:group 'gnus-audio)
:type '(choice directory (const nil))
:group 'gnus-audio)
-(defcustom gnus-audio-au-player
"/usr/bin/showaudio"
+(defcustom gnus-audio-au-player
(executable-find "play")
"Executable program for playing sun AU format sound files."
:group 'gnus-audio
:type 'string)
"Executable program for playing sun AU format sound files."
:group 'gnus-audio
:type 'string)
-(defcustom gnus-audio-wav-player
"/usr/local/bin/play"
+(defcustom gnus-audio-wav-player
(executable-find "play")
"Executable program for playing WAV files."
:group 'gnus-audio
:type 'string)
"Executable program for playing WAV files."
:group 'gnus-audio
:type 'string)
@@
-93,7
+93,7
@@
;;;###autoload
(defun gnus-audio-play (file)
"Play a sound FILE through the speaker."
;;;###autoload
(defun gnus-audio-play (file)
"Play a sound FILE through the speaker."
- (interactive)
+ (interactive
"fSound file name: "
)
(let ((sound-file (if (file-exists-p file)
file
(expand-file-name file gnus-audio-directory))))
(let ((sound-file (if (file-exists-p file)
file
(expand-file-name file gnus-audio-directory))))