From faef779195049cf935dd1e6029575ad46f1790ae Mon Sep 17 00:00:00 2001 From: Nicholas Harrison Date: Fri, 11 Dec 2020 18:16:48 -0700 Subject: [PATCH] Make vertical re-centering customizable --- sublimity.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/sublimity.el b/sublimity.el index 76e71f2..a1e00ff 100644 --- a/sublimity.el +++ b/sublimity.el @@ -87,6 +87,11 @@ :type '(repeat symbol) :group 'sublimity) +(defcustom sublimity-vertical-recenter t + "When non-nil, recenter cursor vertically when it leaves the screen." + :type 'boolean + :group 'sublimity) + ;; + minor mode (defvar sublimity-auto-hscroll-mode nil) @@ -173,9 +178,10 @@ (when handle-scroll (let (deactivate-mark) ;; do vscroll - (with-selected-window sublimity--prev-wnd - (when (not (pos-visible-in-window-p)) - (recenter))) + (if sublimity-vertical-recenter + (with-selected-window sublimity--prev-wnd + (when (not (pos-visible-in-window-p)) + (recenter)))) ;; do hscroll (when (and sublimity-auto-hscroll-mode (or truncate-lines