aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen1999-02-20 13:52:45 +0000
committerLars Magne Ingebrigtsen1999-02-20 13:52:45 +0000
commit44a6ed57c9af413959fdebe38649c0df4a055fca (patch)
tree7229d0cc7abfbe5f81dc7aac49185c44ad0368b5
parent7ff58c39cbcf4de39df144fa2d58a00a44872f6b (diff)
downloademacs-44a6ed57c9af413959fdebe38649c0df4a055fca.tar.gz
emacs-44a6ed57c9af413959fdebe38649c0df4a055fca.zip
*** empty log message ***
-rw-r--r--lisp/gnus/earcon.el11
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