Mercurial > emacs

comparison lisp/gnus/earcon.el @ 31716:9968f55ad26e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update to emacs-21-branch of the Gnus CVS repository.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 19 Sep 2000 13:37:09 +0000
parents a5a611ef40f6
children 6550e76163d7
comparison
equal deleted inserted replaced
31715:7c896543d225 31716:9968f55ad26e
1 ;;; earcon.el --- Sound effects for messages 1 ;;; earcon.el --- Sound effects for messages
2 ;; Copyright (C) 1996 Free Software Foundation 2
3 ;; Copyright (C) 1996, 2000 Free Software Foundation
3 4
4 ;; Author: Steven L. Baur <steve@miranova.com> 5 ;; Author: Steven L. Baur <steve@miranova.com>
6
7 ;; This file is part of GNU Emacs.
8
5 ;; GNU Emacs is free software; you can redistribute it and/or modify 9 ;; GNU Emacs is free software; you can redistribute it and/or modify
6 ;; it under the terms of the GNU General Public License as published by 10 ;; it under the terms of the GNU General Public License as published by
7 ;; the Free Software Foundation; either version 2, or (at your option) 11 ;; the Free Software Foundation; either version 2, or (at your option)
8 ;; any later version. 12 ;; any later version.
9 13
14 18
15 ;; You should have received a copy of the GNU General Public License 19 ;; You should have received a copy of the GNU General Public License
16 ;; along with GNU Emacs; see the file COPYING. If not, write to the 20 ;; along with GNU Emacs; see the file COPYING. If not, write to the
17 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 ;; Boston, MA 02111-1307, USA. 22 ;; Boston, MA 02111-1307, USA.
23 ;; This file is part of GNU Emacs.
19 24
20 ;;; Commentary: 25 ;;; Commentary:
26
21 ;; This file provides access to sound effects in Gnus. 27 ;; This file provides access to sound effects in Gnus.
22 28
23 ;;; Code: 29 ;;; Code:
24 30
25 (if (null (boundp 'running-xemacs)) 31 (if (null (boundp 'running-xemacs))
71 (integer :tag "Match") 77 (integer :tag "Match")
72 (string :tag "Sound"))) 78 (string :tag "Sound")))
73 :group 'earcon) 79 :group 'earcon)
74 (defvar earcon-button-marker-list nil) 80 (defvar earcon-button-marker-list nil)
75 (make-variable-buffer-local 'earcon-button-marker-list) 81 (make-variable-buffer-local 'earcon-button-marker-list)
76
77
78 82
79 ;;; FIXME!! clone of code from gnus-vis.el FIXME!! 83 ;;; FIXME!! clone of code from gnus-vis.el FIXME!!
80 (defun earcon-article-push-button (event) 84 (defun earcon-article-push-button (event)
81 "Check text under the mouse pointer for a callback function. 85 "Check text under the mouse pointer for a callback function.
82 If the text under the mouse pointer has a `earcon-callback' property, 86 If the text under the mouse pointer has a `earcon-callback' property,
153 (setq entry (pop alist)) 157 (setq entry (pop alist))
154 (if (looking-at (car entry)) 158 (if (looking-at (car entry))
155 (setq alist nil) 159 (setq alist nil)
156 (setq entry nil))) 160 (setq entry nil)))
157 entry)) 161 entry))
158
159 162
160 (defun earcon-button-push (marker) 163 (defun earcon-button-push (marker)
161 ;; Push button starting at MARKER. 164 ;; Push button starting at MARKER.
162 (save-excursion 165 (save-excursion
163 (set-buffer gnus-article-buffer) 166 (set-buffer gnus-article-buffer)