From f4459903546e1cbde0d04ee96606928847bf78d8 Mon Sep 17 00:00:00 2001
From: James Cherti <60946298+jamescherti@users.noreply.github.com>
Date: Tue, 20 Aug 2024 23:22:59 -0400
Subject: [PATCH] Enhance scrolling

---
 init.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/init.el b/init.el
index 912bc36..bce6e34 100644
--- a/init.el
+++ b/init.el
@@ -195,12 +195,19 @@
 
 (setq resize-mini-windows 'grow-only)
 
-;;; Smooth scrolling
+;;; Scrolling
 ;; Enables faster scrolling through unfontified regions. This may result in
 ;; brief periods of inaccurate syntax highlighting immediately after scrolling,
 ;; which should quickly self-correct.
 (setq fast-but-imprecise-scrolling t)
 
+;; Move point to top/bottom of buffer before signaling a scrolling error.
+(setq scroll-error-top-bottom t)
+
+;; Keeps screen position if the scroll command moved it vertically out of the
+;; window.
+(setq scroll-preserve-screen-position t)
+
 ;;; Mouse
 
 ;; Emacs 29