changeset 38443:643e08c68af9

(mouse-sel-bindings): Instead of unbinding mouse-1 etc., bind them to `ignore'.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 16 Jul 2001 14:30:53 +0000
parents 086300440396
children d44d24525572
files lisp/mouse-sel.el
diffstat 1 files changed, 13 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mouse-sel.el	Mon Jul 16 14:19:17 2001 +0000
+++ b/lisp/mouse-sel.el	Mon Jul 16 14:30:53 2001 +0000
@@ -1,6 +1,6 @@
 ;;; mouse-sel.el --- multi-click selection support for Emacs 19
 
-;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1995, 2001 Free Software Foundation, Inc.
 
 ;; Author: Mike Williams <mikew@gopher.dosli.govt.nz>
 ;; Keywords: mouse
@@ -252,9 +252,15 @@
 	(mouse-sel-default-bindings
 	 ;;
 	 ;; Primary selection bindings.
-	 (global-unset-key [mouse-1])
-	 (global-unset-key [drag-mouse-1])
-	 (global-unset-key [mouse-3])
+
+	 ;; Bind keys to `ignore' instead of unsetting them because
+	 ;; modes my bind `down-mouse-1', for instance, without
+	 ;; binding other `up-mouse-1' or `mouse-1'.  If we unset
+	 ;; `mouse-1', this leads to a bitch_at_user when the mouse
+	 ;; goes up because no matching binding is found for that.
+	 (global-set-key [mouse-1] 'ignore)
+	 (global-set-key [drag-mouse-1] 'ignore)
+	 (global-set-key [mouse-3] 'ignore)
 	 (global-set-key [down-mouse-1]	'mouse-select)
 	 (unless (eq mouse-sel-default-bindings 'interprogram-cut-paste)
 	   (global-set-key [mouse-2]	'mouse-insert-selection)
@@ -263,9 +269,9 @@
 	 (global-set-key [down-mouse-3]	'mouse-extend)
 	 ;;
 	 ;; Secondary selection bindings.
-	 (global-unset-key [M-mouse-1])
-	 (global-unset-key [M-drag-mouse-1])
-	 (global-unset-key [M-mouse-3])
+	 (global-set-key [M-mouse-1] 'ignore)
+	 (global-set-key [M-drag-mouse-1] 'ignore)
+	 (global-set-key [M-mouse-3] 'ignore)
 	 (global-set-key [M-down-mouse-1]	'mouse-select-secondary)
 	 (global-set-key [M-mouse-2] 		'mouse-insert-secondary)
 	 (global-set-key [M-down-mouse-3] 	'mouse-extend-secondary))))