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

For not switching windows with mouse in emacs, access window of event properly

Browse source 
Signed-off-by: magic_rb <magic_rb@redalder.org>
This commit is contained in:
magic_rb 2023-11-25 18:00:05 +01:00
parent b284c90451
commit 84e1924f78
No known key found for this signature in database
GPG key ID: 08D5287CC5DDCA0E
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
emacs-lisp/windows_and_frames.org
View file

@ -13,19 +13,19 @@ Disable window changing using the mouse, it saves me from accidental switches.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun cv/mouse-set-point (fun event &optional promote) (defun cv/mouse-set-point (fun event &optional promote)
(let ((window (car (car (cdr event))))) (let ((window (posn-window (event-start event))))
(when (equal window (selected-window)) (when (equal window (selected-window))
(funcall fun event promote)))) (funcall fun event promote))))
(advice-add 'mouse-set-point :around 'cv/mouse-set-point) (advice-add 'mouse-set-point :around 'cv/mouse-set-point)
(defun cv/mouse-drag-region (fun event) (defun cv/mouse-drag-region (fun event)
(let ((window (car (car (cdr event))))) (let ((window-end (posn-window (event-end event))))
(when (equal window (selected-window)) (when (equal window-end (selected-window))
(funcall fun event)))) (funcall fun event))))
(advice-add 'mouse-drag-region :around 'cv/mouse-drag-region) (advice-add 'mouse-drag-region :around 'cv/mouse-drag-region)
(defun cv/mouse-set-region (fun event) (defun cv/mouse-set-region (fun event)
(let ((window (car (car (cdr event))))) (let ((window (posn-window (event-start event))))
(when (equal window (selected-window)) (when (equal window (selected-window))
(funcall fun event)))) (funcall fun event))))
(advice-add 'mouse-set-region :around 'cv/mouse-set-region) (advice-add 'mouse-set-region :around 'cv/mouse-set-region)