From 4391d40daa59f9f4926b7c55044899c02a14f5c3 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 16 Jul 2001 14:31:15 +0000 Subject: [PATCH] (mouse-sel-bindings): Instead of unbinding mouse-1 etc., bind them to `ignore'. --- lisp/ChangeLog | 3 +++ lisp/mouse-sel.el | 20 +++++++++++++------- 2 files changed, 16 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index de03fa7c71c..2cf0c5538ff 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2001-07-16 Gerd Moellmann + * mouse-sel.el (mouse-sel-bindings): Instead of unbinding + mouse-1 etc., bind them to `ignore'. + * eshell/esh-mode.el (eshell-send-invisible): Renamed from send-invisible, which is already defined in Comint. (eshell-watch-for-password-prompt): Use it. diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el index c77f1c63f53..d106dd06823 100644 --- a/lisp/mouse-sel.el +++ b/lisp/mouse-sel.el @@ -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 ;; Keywords: mouse @@ -252,9 +252,15 @@ primary selection and region." (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 @@ primary selection and region." (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)))) -- 2.39.2