From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 15 Feb 2006 02:41:02 +0000 (+0000)
Subject: * wid-edit.el (widget-keymap): Bind down-mouse-1 to
X-Git-Tag: emacs-pretest-22.0.90~4115
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb55f90e4acf87076d743298ecb64eabb1b39993;p=emacs.git

* wid-edit.el (widget-keymap): Bind down-mouse-1 to
	widget-button-click.

	* cus-edit.el (custom-mode-map): Remove mouse-1 binding.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 10b4816e9e7..438907164b8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2006-02-14  Chong Yidong  <cyd@stupidchicken.com>
 
+	* wid-edit.el (widget-keymap): Bind down-mouse-1 to
+	widget-button-click.
+
+	* cus-edit.el (custom-mode-map): Remove mouse-1 binding.
+
 	* files.el (hack-local-variables-confirm): Allow scrolling if the
 	file variable list is too long.  Kill temp buffer after use.
 
@@ -35,6 +40,7 @@
 	* files.el (hack-local-variables): Remove ignored variables before
 	checking if any variables need setting.
 
+>>>>>>> 1.9141
 2006-02-14  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
 	* cus-start.el (all): Add x-gtk-whole-detached-tool-bar.
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 0595336c3ed..87e902ac65e 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -4369,7 +4369,6 @@ The format is suitable for use with `easy-menu-define'."
     (define-key map "u" 'Custom-goto-parent)
     (define-key map "n" 'widget-forward)
     (define-key map "p" 'widget-backward)
-    (define-key map [mouse-1] 'widget-move-and-invoke)
     map)
   "Keymap for `custom-mode'.")
 
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 52bf3a212be..659c562ea65 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -860,6 +860,7 @@ button end points."
     (define-key map [(shift tab)] 'advertised-widget-backward)
     (define-key map [backtab] 'widget-backward)
     (define-key map [down-mouse-2] 'widget-button-click)
+    (define-key map [down-mouse-1] 'widget-button-click)
     (define-key map "\C-m" 'widget-button-press)
     map)
   "Keymap containing useful binding for buffers containing widgets.