magic_rb/dotfiles
1
0
Fork 0
mirror of https://git.sr.ht/~magic_rb/dotfiles synced 2024-11-22 08:04:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

Disable window switching by mouse

Browse source 
Signed-off-by: MagicRB <richard@brezak.sk>
This commit is contained in:
MagicRB 2023-10-04 15:14:56 +02:00
parent a50edd6a99
commit 6230949667
No known key found for this signature in database
GPG key ID: 08D5287CC5DDCA0E
1 changed files with 21 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
emacs-lisp/windows_and_frames.org
View file

@ -9,3 +9,24 @@
(add-to-list 'default-frame-alist '(alpha-background . 80)) (add-to-list 'default-frame-alist '(alpha-background . 80))
#+end_src #+end_src
Disable window changing using the mouse, it saves me from accidental switches.
#+begin_src emacs-lisp
(defun cv/mouse-set-point (fun event &optional promote)
(let ((window (car (car (cdr event)))))
(when (equal window (selected-window))
(funcall fun event promote))))
(advice-add 'mouse-set-point :around 'cv/mouse-set-point)
(defun cv/mouse-drag-region (fun event)
(let ((window (car (car (cdr event)))))
(when (equal window (selected-window))
(funcall fun event))))
(advice-add 'mouse-drag-region :around 'cv/mouse-drag-region)
(defun cv/mouse-set-region (fun event)
(let ((window (car (car (cdr event)))))
(when (equal window (selected-window))
(funcall fun event))))
(advice-add 'mouse-set-region :around 'cv/mouse-set-region)
#+end_src