/[emacs]/emacs/lisp/gnus/gnus-audio.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-audio.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6.8.1 by miles, Tue Oct 14 23:34:50 2003 UTC revision 1.6.8.2 by miles, Thu Sep 16 00:12:15 2004 UTC
# Line 1  Line 1 
1  ;;; gnus-audio.el --- sound effects for Gnus  ;;; gnus-audio.el --- Sound effects for Gnus
2  ;; Copyright (C) 1996, 2000 Free Software Foundation  ;; Copyright (C) 1996, 2000, 2003 Free Software Foundation
3    
4  ;; Author: Steven L. Baur <steve@miranova.com>  ;; Author: Steven L. Baur <steve@miranova.com>
5  ;; Keywords: news, mail, multimedia  ;; Keywords: news, mail, multimedia
# Line 47  Line 47 
47    :type '(choice directory (const nil))    :type '(choice directory (const nil))
48    :group 'gnus-audio)    :group 'gnus-audio)
49    
50  (defcustom gnus-audio-au-player "/usr/bin/showaudio"  (defcustom gnus-audio-au-player (executable-find "play")
51    "Executable program for playing sun AU format sound files."    "Executable program for playing sun AU format sound files."
52    :group 'gnus-audio    :group 'gnus-audio
53    :type 'string)    :type '(choice file (const nil)))
54    
55  (defcustom gnus-audio-wav-player "/usr/local/bin/play"  (defcustom gnus-audio-wav-player (executable-find "play")
56    "Executable program for playing WAV files."    "Executable program for playing WAV files."
57    :group 'gnus-audio    :group 'gnus-audio
58    :type 'string)    :type '(choice file (const nil)))
59    
60  ;;; The following isn't implemented yet.  Wait for Millennium Gnus.  ;;; The following isn't implemented yet.  Wait for Millennium Gnus.
61  ;;(defvar gnus-audio-effects-enabled t  ;;(defvar gnus-audio-effects-enabled t
# Line 93  Line 93 
93  ;;;###autoload  ;;;###autoload
94  (defun gnus-audio-play (file)  (defun gnus-audio-play (file)
95    "Play a sound FILE through the speaker."    "Play a sound FILE through the speaker."
96    (interactive)    (interactive "fSound file name: ")
97    (let ((sound-file (if (file-exists-p file)    (let ((sound-file (if (file-exists-p file)
98                          file                          file
99                        (expand-file-name file gnus-audio-directory))))                        (expand-file-name file gnus-audio-directory))))

Legend:
Removed from v.1.6.8.1  
changed lines
  Added in v.1.6.8.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26