[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-audio.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-audio.el |
Date: |
Sat, 04 Sep 2004 09:48:04 -0400 |
Index: emacs/lisp/gnus/gnus-audio.el
diff -c emacs/lisp/gnus/gnus-audio.el:1.7 emacs/lisp/gnus/gnus-audio.el:1.8
*** emacs/lisp/gnus/gnus-audio.el:1.7 Mon Sep 1 15:45:23 2003
--- emacs/lisp/gnus/gnus-audio.el Sat Sep 4 13:13:43 2004
***************
*** 1,5 ****
! ;;; gnus-audio.el --- sound effects for Gnus
! ;; Copyright (C) 1996, 2000 Free Software Foundation
;; Author: Steven L. Baur <address@hidden>
;; Keywords: news, mail, multimedia
--- 1,5 ----
! ;;; gnus-audio.el --- Sound effects for Gnus
! ;; Copyright (C) 1996, 2000, 2003 Free Software Foundation
;; Author: Steven L. Baur <address@hidden>
;; Keywords: news, mail, multimedia
***************
*** 47,61 ****
:type '(choice directory (const nil))
:group 'gnus-audio)
! (defcustom gnus-audio-au-player "/usr/bin/showaudio"
"Executable program for playing sun AU format sound files."
:group 'gnus-audio
! :type 'string)
! (defcustom gnus-audio-wav-player "/usr/local/bin/play"
"Executable program for playing WAV files."
:group 'gnus-audio
! :type 'string)
;;; The following isn't implemented yet. Wait for Millennium Gnus.
;;(defvar gnus-audio-effects-enabled t
--- 47,61 ----
:type '(choice directory (const nil))
:group 'gnus-audio)
! (defcustom gnus-audio-au-player (executable-find "play")
"Executable program for playing sun AU format sound files."
:group 'gnus-audio
! :type '(choice file (const nil)))
! (defcustom gnus-audio-wav-player (executable-find "play")
"Executable program for playing WAV files."
:group 'gnus-audio
! :type '(choice file (const nil)))
;;; The following isn't implemented yet. Wait for Millennium Gnus.
;;(defvar gnus-audio-effects-enabled t
***************
*** 93,99 ****
;;;###autoload
(defun gnus-audio-play (file)
"Play a sound FILE through the speaker."
! (interactive)
(let ((sound-file (if (file-exists-p file)
file
(expand-file-name file gnus-audio-directory))))
--- 93,99 ----
;;;###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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-audio.el,
Miles Bader <=