diff options
| -rw-r--r-- | config.org | 16 |
1 files 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 | |||
| 1000 | 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. | 1000 | 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. |
| 1001 | 1001 | ||
| 1002 | #+begin_src emacs-lisp | 1002 | #+begin_src emacs-lisp |
| 1003 | (bind-key [left-margin wheel-down] 'scroll-down-command) | 1003 | (dolist (vec '([left-margin wheel-down] |
| 1004 | (bind-key [right-margin wheel-down] 'scroll-down-command) | 1004 | [left-margin mouse-5] |
| 1005 | 1005 | [right-margin wheel-down] | |
| 1006 | (bind-key [left-margin wheel-up] 'scroll-up-command) | 1006 | [right-margin mouse-5])) |
| 1007 | (bind-key [right-margin wheel-up] 'scroll-up-command) | 1007 | (bind-key vec 'scroll-down-command)) |
| 1008 | |||
| 1009 | (dolist (vec '([left-margin wheel-up] | ||
| 1010 | [left-margin mouse-4] | ||
| 1011 | [right-margin wheel-up] | ||
| 1012 | [right-margin mouse-4])) | ||
| 1013 | (bind-key vec 'scroll-up-command)) | ||
| 1008 | #+end_src | 1014 | #+end_src |
| 1009 | 1015 | ||
| 1010 | ** [[https://orgmode.org/][org-mode]] | 1016 | ** [[https://orgmode.org/][org-mode]] |