/[emacs]/emacs/lisp/gnus/earcon.el
ViewVC logotype

Diff of /emacs/lisp/gnus/earcon.el

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

revision 1.7.8.1 by miles, Tue Oct 14 23:34:50 2003 UTC revision 1.7.8.2 by miles, Thu Sep 16 00:12:15 2004 UTC
# Line 1  Line 1 
1  ;;; earcon.el --- sound effects for messages  ;;; earcon.el --- Sound effects for messages
2    
3  ;; Copyright (C) 1996, 2000, 2001 Free Software Foundation  ;; Copyright (C) 1996, 2000, 2001, 2003 Free Software Foundation
4    
5  ;; Author: Steven L. Baur <steve@miranova.com>  ;; Author: Steven L. Baur <steve@miranova.com>
6    
# Line 20  Line 20 
20  ;; along with GNU Emacs; see the file COPYING.  If not, write to the  ;; along with GNU Emacs; see the file COPYING.  If not, write to the
21  ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,  ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
22  ;; Boston, MA 02111-1307, USA.  ;; Boston, MA 02111-1307, USA.
 ;; This file is part of GNU Emacs.  
23    
24  ;;; Commentary:  ;;; Commentary:
   
25  ;; This file provides access to sound effects in Gnus.  ;; This file provides access to sound effects in Gnus.
26    
27  ;;; Code:  ;;; Code:
# Line 52  Line 50 
50      ("evil[ \t]+laugh" 1 "Evil_Laugh.au")      ("evil[ \t]+laugh" 1 "Evil_Laugh.au")
51      ("gag\\|puke" 1 "Puke.au")      ("gag\\|puke" 1 "Puke.au")
52      ("snicker" 1 "Snicker.au")      ("snicker" 1 "Snicker.au")
53      ("meow" 1 "catmeow.au")      ("meow" 1 "catmeow.wav")
54      ("sob\\|boohoo" 1 "cry.wav")      ("sob\\|boohoo" 1 "cry.wav")
55      ("drum[ \t]*roll" 1 "drumroll.au")      ("drum[ \t]*roll" 1 "drumroll.au")
56      ("blast" 1 "explosion.au")      ("blast" 1 "explosion.au")
# Line 80  call it with the value of the `earcon-da Line 78  call it with the value of the `earcon-da
78    (interactive "e")    (interactive "e")
79    (set-buffer (window-buffer (posn-window (event-start event))))    (set-buffer (window-buffer (posn-window (event-start event))))
80    (let* ((pos (posn-point (event-start event)))    (let* ((pos (posn-point (event-start event)))
81           (data (get-text-property pos 'earcon-data))           (data (get-text-property pos 'earcon-data))
82           (fun (get-text-property pos 'earcon-callback)))           (fun (get-text-property pos 'earcon-callback)))
83      (if fun (funcall fun data))))      (if fun (funcall fun data))))
84    

Legend:
Removed from v.1.7.8.1  
changed lines
  Added in v.1.7.8.2

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