diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-07-16 14:31:15 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-07-16 14:31:15 +0000 |
| commit | 4391d40daa59f9f4926b7c55044899c02a14f5c3 (patch) | |
| tree | eb78e7aca340419e275f4dbf3a9991a83c43088b /lisp/mouse-sel.el | |
| parent | a84b80ba4ae5ff08dbe3ce5e88b52ea019b9b334 (diff) | |
| download | emacs-4391d40daa59f9f4926b7c55044899c02a14f5c3.tar.gz | |
(mouse-sel-bindings): Instead of unbinding
mouse-1 etc., bind them to `ignore'.
Diffstat (limited to 'lisp/mouse-sel.el')
| -rw-r--r-- | lisp/mouse-sel.el | 20 |
1 files changed, 13 insertions, 7 deletions
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 <mikew@gopher.dosli.govt.nz> ;; 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)))) |