# HG changeset patch
# User james
# Date 1142614204 0
# Node ID 681d0fbb904ee899721281296cbcb2c36c1ee252
# Parent  b3ab8c1975189143af32e2ac0952e439b33f8610
[xemacs-hg @ 2006-03-17 16:50:03 by james]
Get widget-move-and-invoke from Emacs, since current Gnus CVS uses it.  See
xemacs-patches message <m3bqw871ec.fsf@jerrypc.cs.usu.edu>.

diff -r b3ab8c197518 -r 681d0fbb904e lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Mar 17 14:30:45 2006 +0000
+++ b/lisp/ChangeLog	Fri Mar 17 16:50:04 2006 +0000
@@ -1,3 +1,7 @@
+2006-03-14  Jerry James  <james@xemacs.org>
+
+	* wid-edit.el (widget-move-and-invoke): New function, used by Gnus.
+
 2006-02-26  Vin Shelton  <acs@xemacs.org>
 
 	* setup-paths.el (paths-emacs-data-root-p): Add search for package
diff -r b3ab8c197518 -r 681d0fbb904e lisp/wid-edit.el
--- a/lisp/wid-edit.el	Fri Mar 17 14:30:45 2006 +0000
+++ b/lisp/wid-edit.el	Fri Mar 17 16:50:04 2006 +0000
@@ -324,6 +324,13 @@
       (setq tail (cdr tail)))
     (nreverse result)))
 
+(defun widget-move-and-invoke (event)
+  "Move to where you click, and if it is an active field, invoke it."
+  (interactive "e")
+  (mouse-set-point event)
+  (let ((pos (event-point event)))
+    (if (and pos (get-char-property pos 'button))
+        (widget-button-click event))))
 
 ;;; Widget text specifications.
 ;;