emacs-diffs
[Top][All Lists]
Advanced

[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))))
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]