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

[Chong Yidong]

Index: emacs/lisp/cus-edit.el
diff -c emacs/lisp/cus-edit.el:1.234 emacs/lisp/cus-edit.el:1.235
*** emacs/lisp/cus-edit.el:1.234        Mon Oct 17 23:39:23 2005
--- emacs/lisp/cus-edit.el      Mon Oct 17 23:46:28 2005
***************
*** 4245,4252 ****
--- 4245,4263 ----
      (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)
      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