[PATCH 21.5] Add widget-move-and-invoke

PATCH 21.5 Ahhhhhh .... patcher! This little patch doesn't really solve the problem, because we have already released a Gnus that calls widget-move-and-invoke, even though no released XEmacs has that function. We will also need to patch Gnus somehow. In any case, we might as well get this function now so it will be standard at some point in the future. I have tested this function by using it inside the Gnus customization routines, the same place where I noticed it was missing. lisp/ChangeLog addition: 2006-03-14 Jerry James <james(a)xemacs.org&gt; * wid-edit.el (widget-move-and-invoke): New function, used by Gnus. xemacs-21.5 source patch: Diff command: cvs -q diff -uN Files affected: lisp/wid-edit.el Index: lisp/wid-edit.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/wid-edit.el,v retrieving revision 1.31 diff -d -u -r1.31 wid-edit.el --- lisp/wid-edit.el 2004/11/04 23:05:56 1.31 +++ lisp/wid-edit.el 2006/03/15 04:51:52 ＠＠ -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. ;; -- Jerry James, Assistant Professor james(a)xemacs.org Computer Science Department http://www.cs.usu.edu/~jerry/ Utah State University