X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fearcon.el;h=4302182733ca3840e30772bcd79ee9c263f0a703;hb=0ea8c9d5432fedda0c6cb14bb6e60068df046545;hp=a698479f705ced23c8f05ee64c3763550d9d6a10;hpb=d9a249ab6f6663e7766b40b54fe8456521c18410;p=elisp%2Fgnus.git- diff --git a/lisp/earcon.el b/lisp/earcon.el index a698479..4302182 100644 --- a/lisp/earcon.el +++ b/lisp/earcon.el @@ -74,6 +74,8 @@ (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. @@ -154,6 +156,7 @@ If N is negative, move backward instead." (setq entry nil))) entry)) + (defun earcon-button-push (marker) ;; Push button starting at MARKER. (save-excursion