From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 15 Oct 1997 23:57:19 +0000 (+0000)
Subject: (widget-button-click): Move point to where clicked.
X-Git-Tag: emacs-20.3~3009
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d6bc306b43527d0a1b7060c9b8d3c2f85d0ba074;p=emacs.git

(widget-button-click): Move point to where clicked.
---

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))