From 02abd6dbf8b8d1866e769c411acbee74a9f3e0bd Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sat, 2 Jan 2021 10:03:20 -0600 Subject: Preserve the point position on screen when scrolling --- config.org | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/config.org b/config.org index aa187c0..d7b10f9 100644 --- a/config.org +++ b/config.org @@ -662,6 +662,22 @@ Anyway, I should probably be able to figure out how to properly change the theme (run-hooks 'acdw/map-defined-hook) #+END_SRC +** Mouse + +*** Preserve screen position when scrolling with the mouse wheel + +from [[https://www.reddit.com/r/emacs/comments/km9by4/weekly_tipstricketc_thread/ghg2c9d/][u/TheFrenchPoulp]]. + +#+BEGIN_SRC emacs-lisp + (advice-add 'mwheel-scroll :around #'me/mwheel-scroll) + + (defun me/mwheel-scroll (original &rest arguments) + "Like `mwheel-scroll' but preserve screen position. + See `scroll-preserve-screen-position'." + (let ((scroll-preserve-screen-position :always)) + (apply original arguments))) +#+end_src + ** Persistence *** Minibuffer history -- cgit 1.4.1-21-gabe81