From d6bc306b43527d0a1b7060c9b8d3c2f85d0ba074 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 15 Oct 1997 23:57:19 +0000 Subject: [PATCH] (widget-button-click): Move point to where clicked. --- lisp/wid-edit.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 9052c77deae..a2e48496770 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -922,8 +922,9 @@ Recommended as a parent keymap for modes using widgets.") :group 'widget-faces) (defun widget-button-click (event) - "Invoke button below mouse pointer." + "Invoke the button that the mouse is pointing at, and move there." (interactive "@e") + (mouse-set-point event) (cond ((and (fboundp 'event-glyph) (event-glyph event)) (widget-glyph-click event)) -- 2.39.2