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 |
|
|
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: |
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") |
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 |
|
|