summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
8748b10)
* gnus-audio.el (gnus-audio-au-player): Use executable-find.
2003-01-13 Jhair Tocancipa Triana <jhair_tocancipa@@gmx.net>
* gnus-audio.el (gnus-audio-au-player, gnus-audio-wav-player): Use
/usr/bin/play as default player.
(gnus-audio-play): Added ARG-DESCRIPTOR to prompt for a file to play.
+2003-01-14 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * gnus-audio.el (gnus-audio-au-player): Use executable-find.
+
+2003-01-13 Jhair Tocancipa Triana <jhair_tocancipa@@gmx.net>
+
+ * gnus-audio.el (gnus-audio-au-player, gnus-audio-wav-player): Use
+ /usr/bin/play as default player.
+ (gnus-audio-play): Added ARG-DESCRIPTOR to prompt for a file to play.
+
2003-01-14 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-msg.el (gnus-inews-add-send-actions): Allow a list of
2003-01-14 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-msg.el (gnus-inews-add-send-actions): Allow a list of
: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)
;;;###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 "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))))