mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(mouse-sel-bindings): Instead of unbinding

Browse Source 
mouse-1 etc., bind them to `ignore'.
This commit is contained in:
Gerd Moellmann 2001-07-16 14:31:15 +00:00
parent a84b80ba4a
commit 4391d40daa
2 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2001-07-16 Gerd Moellmann <gerd@gnu.org>
* 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.

20
lisp/mouse-sel.el
View File

@ -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))))