projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Indent.
[gnus]
/
lisp
/
earcon.el
diff --git
a/lisp/earcon.el
b/lisp/earcon.el
index
7c42e8b
..
faa38c5
100644
(file)
--- a/
lisp/earcon.el
+++ b/
lisp/earcon.el
@@
-1,6
+1,6
@@
;;; earcon.el --- Sound effects for messages
;;; earcon.el --- Sound effects for messages
-;; Copyright (C) 1996, 2000 Free Software Foundation
+;; Copyright (C) 1996, 2000
, 2001
Free Software Foundation
;; Author: Steven L. Baur <steve@miranova.com>
;; Author: Steven L. Baur <steve@miranova.com>
@@
-35,11
+35,6
@@
"Turn ** sounds ** into noise."
:group 'gnus-visual)
"Turn ** sounds ** into noise."
:group 'gnus-visual)
-(defcustom earcon-auto-play nil
- "*When True, automatically play sounds as well as buttonize them."
- :type 'boolean
- :group 'earcon)
-
(defcustom earcon-prefix "**"
"*String denoting the start of an earcon."
:type 'string
(defcustom earcon-prefix "**"
"*String denoting the start of an earcon."
:type 'string
@@
-83,7
+78,7
@@
call it with the value of the `earcon-data' text property."
(interactive "e")
(set-buffer (window-buffer (posn-window (event-start event))))
(let* ((pos (posn-point (event-start event)))
(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))
+ (data (get-text-property pos 'earcon-data))
(fun (get-text-property pos 'earcon-callback)))
(if fun (funcall fun data))))
(fun (get-text-property pos 'earcon-callback)))
(if fun (funcall fun data))))