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