Fix scrolling in margins

I honestly probably need to tag my shit or something, because this
commit was /really/ hard to find.  Or hopefully, as I get more steady
with my Emacs config it'll be less volatile.

1 files changed, 26 insertions, 0 deletions

@@ -1319,6 +1319,32 @@ of how /terrible/ it is to have them.
 
 *** Visual fill column mode
 
+**** First: fix scrolling in margins
+
+This has to be done /before/ loading the package.  It's included in
+=visual-fill-column=, too, but for some reason isn't loaded there.
+
+#+BEGIN_SRC emacs-lisp
+  (dolist (margin '(right-margin left-margin))
+    (dolist (button '(mouse-1 mouse-2 mouse-3))
+      (global-set-key (vector margin button)
+                      (global-key-binding (vector button)))))
+
+  (mouse-wheel-mode +1)
+
+  (when (bound-and-true-p mouse-wheel-mode)
+    (dolist (margin '(right-margin left-margin))
+      (dolist (event '(mouse-wheel-down-event
+                       mouse-wheel-up-event
+                       wheel-down
+                       wheel-up
+                       mouse-4
+                       mouse-5))
+        (global-set-key (vector margin event) #'mwheel-scroll))))
+#+END_SRC
+
+**** Then: =visual-fill-column=                                     :package:
+
 In reading-intensive views, this mode keeps the text from getting too
 wide.