# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 876959839 0
# Node ID 697360ed5e4b5dc05ae6bd7a7c7e9e6627c5b258
# Parent  8de4c2591c496bd7773aae4c5fe6ee43489b7cbd
(widget-button-click): Move point to where clicked.

diff -r 8de4c2591c49 -r 697360ed5e4b lisp/wid-edit.el
--- a/lisp/wid-edit.el	Wed Oct 15 23:55:45 1997 +0000
+++ b/lisp/wid-edit.el	Wed Oct 15 23:57:19 1997 +0000
@@ -922,8 +922,9 @@
   :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))