[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.149 emacs/lisp/wid-edit.el:1.150
*** emacs/lisp/wid-edit.el:1.149        Sun Oct 16 09:31:47 2005
--- emacs/lisp/wid-edit.el      Mon Oct 17 23:39:24 2005
***************
*** 849,854 ****
--- 849,855 ----
      (define-key map "\t" 'widget-forward)
      (define-key map [(shift tab)] 'widget-backward)
      (define-key map [backtab] 'widget-backward)
+     (define-key map [mouse-1] 'widget-move-and-invoke)
      (define-key map [down-mouse-2] 'widget-button-click)
      (define-key map "\C-m" 'widget-button-press)
      map)
***************
*** 901,906 ****
--- 902,915 ----
  ;; backward-compatibility alias
  (put 'widget-button-pressed-face 'face-alias 'widget-button-pressed)
  
+ (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 (widget-event-point event)))
+     (if (and pos (get-char-property pos 'button))
+       (widget-button-click event))))
+       
  (defun widget-button-click (event)
    "Invoke the button that the mouse is pointing at."
    (interactive "e")