Silence some mouse hovering noise

diff --git a/emacs/emacs.el b/emacs/emacs.el
index c48dd83032fa900333d98ebfde416f53c09f9817..2e0040b4a4f5005b255c90ee359dff8c6f0c68c5 100644 (file)
--- a/emacs/emacs.el
+++ b/emacs/emacs.el
@@ -24,6 +24,14 @@
 (require-theme 'modus-themes)
 (load-theme 'modus-vivendi :no-confirm)
 
+;; From https://github.com/emacs-lsp/lsp-ui/issues/607 , silence some mouse hovering noise
+(let ((areas '("mode-line" "left-margin" "left-fringe" "right-fringe" "header-line" "vertical-scroll-bar"))
+          loc)
+      (while areas
+        (setq loc (pop areas))
+        (global-set-key
+         (kbd (concat "<" loc "> <mouse-movement>")) #'ignore)))
+
 (require 'use-package-ensure)
 (setq use-package-always-ensure t)