Mercurial > hg > xemacs-beta

diff lisp/wid-edit.el @ 3287:681d0fbb904e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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>.
author james
date Fri, 17 Mar 2006 16:50:04 +0000
parents ecf1ebac70d8
children e687f1912d5b
line wrap: on
line diff
--- 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.
 ;;