From 68cb040e435681019aecded594e77fc8374da18c Mon Sep 17 00:00:00 2001 From: Lucas Sta Maria Date: Fri, 26 Jan 2024 15:18:39 -0500 Subject: [PATCH] fix(emacs): fine-grained scroll-left/right functionality Signed-off-by: Lucas Sta Maria --- .emacs.d/include/general.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/.emacs.d/include/general.el b/.emacs.d/include/general.el index 04aefed..8efcd57 100644 --- a/.emacs.d/include/general.el +++ b/.emacs.d/include/general.el @@ -93,6 +93,16 @@ ;; Keybindings (keymap-global-set "C-M-j" (lambda () (interactive) (scroll-up 1))) (keymap-global-set "C-M-k" (lambda () (interactive) (scroll-down 1))) +(keymap-global-set "C-x <" + (lambda (arg) + (interactive "P") + (let ((amt (or arg 1))) + (scroll-right amt)))) +(keymap-global-set "C-x >" + (lambda (arg) + (interactive "P") + (let ((amt (or arg 1))) + (scroll-left amt)))) (keymap-global-unset "C-x f") (keymap-global-set "C-x f f" #'set-fill-column) (keymap-global-set "C-x f i" #'display-fill-column-indicator-mode)