[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/earcon.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/earcon.el [lexbind] |
Date: |
Wed, 15 Sep 2004 20:45:14 -0400 |
Index: emacs/lisp/gnus/earcon.el
diff -c emacs/lisp/gnus/earcon.el:1.7.8.1 emacs/lisp/gnus/earcon.el:1.7.8.2
*** emacs/lisp/gnus/earcon.el:1.7.8.1 Tue Oct 14 23:34:50 2003
--- emacs/lisp/gnus/earcon.el Thu Sep 16 00:12:15 2004
***************
*** 1,6 ****
! ;;; earcon.el --- sound effects for messages
! ;; Copyright (C) 1996, 2000, 2001 Free Software Foundation
;; Author: Steven L. Baur <address@hidden>
--- 1,6 ----
! ;;; earcon.el --- Sound effects for messages
! ;; Copyright (C) 1996, 2000, 2001, 2003 Free Software Foundation
;; Author: Steven L. Baur <address@hidden>
***************
*** 20,29 ****
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
- ;; This file is part of GNU Emacs.
;;; Commentary:
-
;; This file provides access to sound effects in Gnus.
;;; Code:
--- 20,27 ----
***************
*** 52,58 ****
("evil[ \t]+laugh" 1 "Evil_Laugh.au")
("gag\\|puke" 1 "Puke.au")
("snicker" 1 "Snicker.au")
! ("meow" 1 "catmeow.au")
("sob\\|boohoo" 1 "cry.wav")
("drum[ \t]*roll" 1 "drumroll.au")
("blast" 1 "explosion.au")
--- 50,56 ----
("evil[ \t]+laugh" 1 "Evil_Laugh.au")
("gag\\|puke" 1 "Puke.au")
("snicker" 1 "Snicker.au")
! ("meow" 1 "catmeow.wav")
("sob\\|boohoo" 1 "cry.wav")
("drum[ \t]*roll" 1 "drumroll.au")
("blast" 1 "explosion.au")
***************
*** 80,86 ****
(interactive "e")
(set-buffer (window-buffer (posn-window (event-start event))))
(let* ((pos (posn-point (event-start event)))
! (data (get-text-property pos 'earcon-data))
(fun (get-text-property pos 'earcon-callback)))
(if fun (funcall fun data))))
--- 78,84 ----
(interactive "e")
(set-buffer (window-buffer (posn-window (event-start event))))
(let* ((pos (posn-point (event-start event)))
! (data (get-text-property pos 'earcon-data))
(fun (get-text-property pos 'earcon-callback)))
(if fun (funcall fun data))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/earcon.el [lexbind],
Miles Bader <=