about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-10-06 11:17:10 -0500
committerCase Duckworth2021-10-06 11:17:10 -0500
commit46e1d53222ab07825235aeb9c5f21e2ad90fa545 (patch)
tree629a8b6a43a508dc55a85040962c342608f48d83
parentFix up org-mode config (diff)
downloademacs-46e1d53222ab07825235aeb9c5f21e2ad90fa545.tar.gz
emacs-46e1d53222ab07825235aeb9c5f21e2ad90fa545.zip
Fix bug and add bindings
-rw-r--r--init.el17
1 files changed, 14 insertions, 3 deletions
diff --git a/init.el b/init.el index 5217556..546a05a 100644 --- a/init.el +++ b/init.el
@@ -2322,8 +2322,11 @@ the default is \"/\"."
2322 (list 2322 (list
2323 (propertize " " 2323 (propertize " "
2324 'display 2324 'display
2325 '((space :align-to 2325 '((space
2326 ,(unless visual-fill-column-mode 0)))) 2326 :align-to
2327 ,(unless
2328 (bound-and-true-p visual-fill-column-mode)
2329 0))))
2327 (funcall topsy-fn)))))) 2330 (funcall topsy-fn))))))
2328 2331
2329(setup (:straight trashed) 2332(setup (:straight trashed)
@@ -2419,7 +2422,15 @@ If used with a numeric prefix argument N, N backticks will be inserted."
2419 (setq-local indicate-empty-lines nil 2422 (setq-local indicate-empty-lines nil
2420 indicate-buffer-boundaries nil) 2423 indicate-buffer-boundaries nil)
2421 (acdw/setup-fringes)))) 2424 (acdw/setup-fringes))))
2422 (:advise text-scale-adjust :after #'visual-fill-column-adjust)) 2425 (:advise text-scale-adjust :after #'visual-fill-column-adjust)
2426 ;; Fix bindings
2427 (when (bound-and-true-p mouse-wheel-mode)
2428 (with-eval-after-load 'visual-fill-column
2429 (dolist (margin '(right-margin left-margin))
2430 (dolist (event '(wheel-down wheel-up))
2431 (define-key visual-fill-column-mode-map
2432 (vector margin event)
2433 #'mwheel-scroll))))))
2423 2434
2424(setup (:straight visual-regexp) 2435(setup (:straight visual-regexp)
2425 (:global "M-%" #'vr/query-replace)) 2436 (:global "M-%" #'vr/query-replace))