X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fearcon.el;h=a698479f705ced23c8f05ee64c3763550d9d6a10;hb=4c6769d9da96b949627f7518279fc8a85141cb0a;hp=9bd6651aa98df994b6968389dea059b6586be9e1;hpb=7523ac5e3a0e4196d6043822dcb826c060fc1b58;p=elisp%2Fgnus.git- diff --git a/lisp/earcon.el b/lisp/earcon.el index 9bd6651..a698479 100644 --- a/lisp/earcon.el +++ b/lisp/earcon.el @@ -45,7 +45,7 @@ :group 'earcon) (defcustom earcon-suffix "**" - "*String denoting the end of an earcon." + "String denoting the end of an earcon." :type 'string :group 'earcon) @@ -71,12 +71,9 @@ (integer :tag "Match") (string :tag "Sound"))) :group 'earcon) - (defvar earcon-button-marker-list nil) (make-variable-buffer-local 'earcon-button-marker-list) - - ;;; FIXME!! clone of code from gnus-vis.el FIXME!! (defun earcon-article-push-button (event) "Check text under the mouse pointer for a callback function. @@ -157,7 +154,6 @@ If N is negative, move backward instead." (setq entry nil))) entry)) - (defun earcon-button-push (marker) ;; Push button starting at MARKER. (save-excursion