[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.150 emacs/lisp/wid-edit.el:1.151
*** emacs/lisp/wid-edit.el:1.150        Mon Oct 17 23:39:24 2005
--- emacs/lisp/wid-edit.el      Mon Oct 17 23:46:28 2005
***************
*** 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)
--- 849,854 ----
***************
*** 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")
--- 901,906 ----