X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fearcon.el;h=4302182733ca3840e30772bcd79ee9c263f0a703;hb=7bd51e7e85c1b314c2f2d00ebb26678762820d73;hp=a698479f705ced23c8f05ee64c3763550d9d6a10;hpb=a414e3562d72f3f0c677acf65003ca339171dcc2;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