Mercurial > emacs

comparison lisp/gnus/gnus-audio.el @ 24357:15fc6acbae7a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Upgrading to Gnus 5.7; see ChangeLog
author Lars Magne Ingebrigtsen <larsi@gnus.org>
date Sat, 20 Feb 1999 14:05:57 +0000
parents e6935c08cf0b
children 9968f55ad26e
comparison
equal deleted inserted replaced
24356:a5a611ef40f6 24357:15fc6acbae7a
1 ;;; gnus-audio.el --- Sound effects for Gnus 1 ;;; gnus-audio.el --- Sound effects for Gnus
2 ;; Copyright (C) 1996 Free Software Foundation 2 ;; Copyright (C) 1996 Free Software Foundation
3 3
4 ;; Author: Steven L. Baur <steve@miranova.com> 4 ;; Author: Steven L. Baur <steve@miranova.com>
5 ;; Keywords: news
6 5
7 ;; This file is part of GNU Emacs. 6 ;; This file is part of GNU Emacs.
8 7
9 ;; GNU Emacs is free software; you can redistribute it and/or modify 8 ;; GNU Emacs is free software; you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by 9 ;; it under the terms of the GNU General Public License as published by
40 39
41 (defvar gnus-audio-directory (nnheader-find-etc-directory "sounds") 40 (defvar gnus-audio-directory (nnheader-find-etc-directory "sounds")
42 "The directory containing the Sound Files.") 41 "The directory containing the Sound Files.")
43 42
44 (defvar gnus-audio-au-player "/usr/bin/showaudio" 43 (defvar gnus-audio-au-player "/usr/bin/showaudio"
45 "Executable program for playing sun AU format sound files") 44 "Executable program for playing sun AU format sound files.")
45
46 (defvar gnus-audio-wav-player "/usr/local/bin/play" 46 (defvar gnus-audio-wav-player "/usr/local/bin/play"
47 "Executable program for playing WAV files") 47 "Executable program for playing WAV files.")
48 48
49 49 ;;; The following isn't implemented yet. Wait for Millennium Gnus.
50 ;;; The following isn't implemented yet. Wait for Red Gnus.
51 ;(defvar gnus-audio-effects-enabled t 50 ;(defvar gnus-audio-effects-enabled t
52 ; "When t, Gnus will use sound effects.") 51 ; "When t, Gnus will use sound effects.")
53 ;(defvar gnus-audio-enable-hooks nil 52 ;(defvar gnus-audio-enable-hooks nil
54 ; "Functions run when enabling sound effects.") 53 ; "Functions run when enabling sound effects.")
55 ;(defvar gnus-audio-disable-hooks nil 54 ;(defvar gnus-audio-disable-hooks nil
69 ;;;###autoload 68 ;;;###autoload
70 ;(defun gnus-audio-enable-sound () 69 ;(defun gnus-audio-enable-sound ()
71 ; "Enable Sound Effects for Gnus." 70 ; "Enable Sound Effects for Gnus."
72 ; (interactive) 71 ; (interactive)
73 ; (setq gnus-audio-effects-enabled t) 72 ; (setq gnus-audio-effects-enabled t)
74 ; (run-hooks gnus-audio-enable-hooks)) 73 ; (gnus-run-hooks gnus-audio-enable-hooks))
75 74
76 ;;;###autoload 75 ;;;###autoload
77 ;(defun gnus-audio-disable-sound () 76 ;(defun gnus-audio-disable-sound ()
78 ; "Disable Sound Effects for Gnus." 77 ; "Disable Sound Effects for Gnus."
79 ; (interactive) 78 ; (interactive)
80 ; (setq gnus-audio-effects-enabled nil) 79 ; (setq gnus-audio-effects-enabled nil)
81 ; (run-hooks gnus-audio-disable-hooks)) 80 ; (gnus-run-hooks gnus-audio-disable-hooks))
82 81
83 ;;;###autoload 82 ;;;###autoload
84 (defun gnus-audio-play (file) 83 (defun gnus-audio-play (file)
85 "Play a sound through the speaker." 84 "Play a sound through the speaker."
86 (interactive) 85 (interactive)