[Emacs-diffs] Changes to emacs/lisp/wid-edit.el

[Chong Yidong]

Index: emacs/lisp/wid-edit.el
diff -c emacs/lisp/wid-edit.el:1.151 emacs/lisp/wid-edit.el:1.152
*** emacs/lisp/wid-edit.el:1.151        Mon Oct 17 23:46:28 2005
--- emacs/lisp/wid-edit.el      Tue Oct 18 00:28:57 2005
***************
*** 660,665 ****
--- 660,675 ----
                            tag 'mouse-face widget-button-pressed-face)))
      (insert tag)))
  
+ (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)
+   (if (widget-event-point event)
+       (let* ((pos (widget-event-point event))
+            (button (get-char-property pos 'button)))
+       (if button
+           (widget-button-click event)))))
+ 
  ;;; Buttons.
  
  (defgroup widget-button nil