User: james Date: 06/03/17 17:50:06 Modified: xemacs/lisp ChangeLog wid-edit.el Log: Get widget-move-and-invoke from Emacs, since current Gnus CVS uses it. See xemacs-patches message <m3bqw871ec.fsf(a)jerrypc.cs.usu.edu&gt;. Revision Changes Path 1.727 +4 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.726 retrieving revision 1.727 diff -u -p -r1.726 -r1.727 --- ChangeLog 2006/03/14 00:09:02 1.726 +++ ChangeLog 2006/03/17 16:50:03 1.727 ＠＠ -1,3 +1,7 ＠＠ +2006-03-14 Jerry James <james(a)xemacs.org&gt; + + * wid-edit.el (widget-move-and-invoke): New function, used by Gnus. + 2006-02-26 Vin Shelton <acs(a)xemacs.org&gt; * setup-paths.el (paths-emacs-data-root-p): Add search for package 1.32 +7 -0 XEmacs/xemacs/lisp/wid-edit.el Index: wid-edit.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/wid-edit.el,v retrieving revision 1.31 retrieving revision 1.32 diff -u -p -r1.31 -r1.32 --- wid-edit.el 2004/11/04 23:05:56 1.31 +++ wid-edit.el 2006/03/17 16:50:04 1.32 ＠＠ -324,6 +324,13 ＠＠ menu will be used, otherwise the minibuf (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. ;;