diff lisp/cus-edit.el @ 66171:1b475d6de39b

* cus-edit.el (Custom-move-and-invoke): Deleted. (custom-mode-map): Bind mouse-1 to widget-move-and-invoke. * wid-edit.el (widget-move-and-invoke): New function, from Custom-move-and-invoke.

--- a/lisp/cus-edit.el	Mon Oct 17 23:46:28 2005 +0000
+++ b/lisp/cus-edit.el	Tue Oct 18 00:28:57 2005 +0000
@@ -4245,20 +4245,10 @@
     (define-key map "u" 'Custom-goto-parent)
     (define-key map "n" 'widget-forward)
     (define-key map "p" 'widget-backward)
-    (define-key map [mouse-1] 'Custom-move-and-invoke)
+    (define-key map [mouse-1] 'widget-move-and-invoke)
     map)
   "Keymap for `custom-mode'.")
 
-(defun Custom-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)))))
-
 (easy-menu-define Custom-mode-menu
     custom-mode-map
   "Menu used in customization buffers."