From ef137766f73cecb38f48af22426189d410cf057d Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 2 Dec 2020 23:54:58 -0600
Subject: Bind more mouse wheel margin bindings

I think I've caught all of 'em now.
---
 config.org | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/config.org b/config.org
index bc0be3e..bad2d5e 100644
--- a/config.org
+++ b/config.org
@@ -1000,11 +1000,17 @@ Center the text part of the frame within a =fill-column=-sized area in the frame
 In =visual-fill-column-mode=, mouse bindings on the margins don't work.  In fact, they don't work when /not/ in =visual-fill-column-mode=.  Let's bind those bindings.
 
 #+begin_src emacs-lisp
-  (bind-key [left-margin wheel-down] 'scroll-down-command)
-  (bind-key [right-margin wheel-down] 'scroll-down-command)
-
-  (bind-key [left-margin wheel-up] 'scroll-up-command)
-  (bind-key [right-margin wheel-up] 'scroll-up-command)
+  (dolist (vec '([left-margin wheel-down]
+                 [left-margin mouse-5]
+                 [right-margin wheel-down]
+                 [right-margin mouse-5]))
+    (bind-key vec 'scroll-down-command))
+
+  (dolist (vec '([left-margin wheel-up]
+                 [left-margin mouse-4]
+                 [right-margin wheel-up]
+                 [right-margin mouse-4]))
+    (bind-key vec 'scroll-up-command))
 #+end_src
 
 ** [[https://orgmode.org/][org-mode]]
-- 
cgit 1.4.1-21-gabe81