diff options
| author | Lars Magne Ingebrigtsen | 1999-02-20 13:52:45 +0000 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 1999-02-20 13:52:45 +0000 |
| commit | 44a6ed57c9af413959fdebe38649c0df4a055fca (patch) | |
| tree | 7229d0cc7abfbe5f81dc7aac49185c44ad0368b5 | |
| parent | 7ff58c39cbcf4de39df144fa2d58a00a44872f6b (diff) | |
| download | emacs-44a6ed57c9af413959fdebe38649c0df4a055fca.tar.gz emacs-44a6ed57c9af413959fdebe38649c0df4a055fca.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/gnus/earcon.el | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/lisp/gnus/earcon.el b/lisp/gnus/earcon.el index ee2b041e154..4302182733c 100644 --- a/lisp/gnus/earcon.el +++ b/lisp/gnus/earcon.el | |||
| @@ -2,10 +2,6 @@ | |||
| 2 | ;; Copyright (C) 1996 Free Software Foundation | 2 | ;; Copyright (C) 1996 Free Software Foundation |
| 3 | 3 | ||
| 4 | ;; Author: Steven L. Baur <steve@miranova.com> | 4 | ;; Author: Steven L. Baur <steve@miranova.com> |
| 5 | ;; Keywords: news fun sound | ||
| 6 | |||
| 7 | ;; This file is part of GNU Emacs. | ||
| 8 | |||
| 9 | ;; GNU Emacs is free software; you can redistribute it and/or modify | 5 | ;; GNU Emacs is free software; you can redistribute it and/or modify |
| 10 | ;; it under the terms of the GNU General Public License as published by | 6 | ;; it under the terms of the GNU General Public License as published by |
| 11 | ;; the Free Software Foundation; either version 2, or (at your option) | 7 | ;; the Free Software Foundation; either version 2, or (at your option) |
| @@ -39,12 +35,12 @@ | |||
| 39 | :group 'gnus-visual) | 35 | :group 'gnus-visual) |
| 40 | 36 | ||
| 41 | (defcustom earcon-auto-play nil | 37 | (defcustom earcon-auto-play nil |
| 42 | "When True, automatically play sounds as well as buttonize them." | 38 | "*When True, automatically play sounds as well as buttonize them." |
| 43 | :type 'boolean | 39 | :type 'boolean |
| 44 | :group 'earcon) | 40 | :group 'earcon) |
| 45 | 41 | ||
| 46 | (defcustom earcon-prefix "**" | 42 | (defcustom earcon-prefix "**" |
| 47 | "String denoting the start of an earcon." | 43 | "*String denoting the start of an earcon." |
| 48 | :type 'string | 44 | :type 'string |
| 49 | :group 'earcon) | 45 | :group 'earcon) |
| 50 | 46 | ||
| @@ -70,12 +66,11 @@ | |||
| 70 | ("cackle" 1 "witch.au") | 66 | ("cackle" 1 "witch.au") |
| 71 | ("yell\\|roar" 1 "yell2.au") | 67 | ("yell\\|roar" 1 "yell2.au") |
| 72 | ("whoop-de-doo" 1 "whistle.au")) | 68 | ("whoop-de-doo" 1 "whistle.au")) |
| 73 | "A list of regexps to map earcons to real sounds." | 69 | "*A list of regexps to map earcons to real sounds." |
| 74 | :type '(repeat (list regexp | 70 | :type '(repeat (list regexp |
| 75 | (integer :tag "Match") | 71 | (integer :tag "Match") |
| 76 | (string :tag "Sound"))) | 72 | (string :tag "Sound"))) |
| 77 | :group 'earcon) | 73 | :group 'earcon) |
| 78 | |||
| 79 | (defvar earcon-button-marker-list nil) | 74 | (defvar earcon-button-marker-list nil) |
| 80 | (make-variable-buffer-local 'earcon-button-marker-list) | 75 | (make-variable-buffer-local 'earcon-button-marker-list) |
| 81 | 76 | ||