[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
binding S-mouse-1
From: |
Tak Kunihiro |
Subject: |
binding S-mouse-1 |
Date: |
Sun, 28 May 2017 19:06:48 +0900 (JST) |
Keys <S-right> and <S-left> extend region. I think that [S-mouse-1]
should behave similar by default.
I propose to bind mouse-appearance-menu to super instead of shift,
(global-set-key [S-down-mouse-1] 'mouse-appearance-menu)
and bind following to let shift click to extend region on mouse.el.
(global-set-key [S-down-mouse-1] 'ignore)
(global-set-key [S-mouse-1] 'mouse-save-then-kill)
diff --git a/mouse.26.el b/mouse.el
index 9b6b169..fdca439 100755
--- a/mouse.26.el
+++ b/mouse.el
@@ -2046,7 +2046,7 @@ is copied instead of being cut."
;; event to make the selection, saving a click.
(global-set-key [C-down-mouse-1] 'mouse-buffer-menu)
(if (not (eq system-type 'ms-dos))
- (global-set-key [S-down-mouse-1] 'mouse-appearance-menu))
+ (global-set-key [s-down-mouse-1] 'mouse-appearance-menu))
;; C-down-mouse-2 is bound in facemenu.el.
(global-set-key [C-down-mouse-3]
`(menu-item ,(purecopy "Menu Bar") ignore
@@ -2055,6 +2055,10 @@ is copied instead of being cut."
(mouse-menu-bar-map)
(mouse-menu-major-mode-map)))))
+;; Binding mouse-1 to extend region when `shift' is pressed.
+(global-set-key [S-down-mouse-1] 'ignore)
+(global-set-key [S-mouse-1] 'mouse-save-then-kill)
+
;; Binding mouse-1 to mouse-select-window when on mode-, header-, or
;; vertical-line prevents Emacs from signaling an error when the mouse
;; button is released after dragging these lines, on non-toolkit
- binding S-mouse-1,
Tak Kunihiro <=