Update shift click to select mouse bindings

1 files changed, 3 insertions, 6 deletions

diff --git a/emacs/init.el b/emacs/init.el
index fcbe172..80dca77 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -239,12 +239,9 @@
 	;; deleting should be an explicit action
 	delete-selection-mode nil)
 
-;; Mouse selection
-
-;; Shift click to select region with the mouse.  This annoyingly rings the bell for an error.  It also interferes with my input method switcher, which doesn't notice the mouse click and thinks i've pressed shift with no other keys.
-
-(global-unset-key (kbd "S-<down-mouse-1>"))
-(global-set-key (kbd "S-<down-mouse-1>") 'mouse-save-then-kill)
+;; Shift click to select region with the mouse.  I had a poor workaround for this before, but found an article (https://christiantietze.de/posts/2022/07/shift-click-in-emacs-to-select/) which shows me how to do it more pleasantly.  In the same article i also discovered the existence of mouse-drag-secondary, which i think i will not make use of but is cool nonetheless.  It also showed me mouse-drag-region-rectangle, which doesn't work great with a proportional font, but could still be useful.
+(global-set-key (kbd "S-<down-mouse-1>") #'mouse-set-mark)
+(global-set-key (kbd "C-S-<down-mouse-1>") #'mouse-drag-region-rectangle)
 
 ;;; Writing prose
 ;; The majority of the work i do in emacs is writing documents, so it's nice to know that the words coming out of my fingers are the ones i expect them to be.