Prevent buffer jumping around during fast strategy

justinbarclay · May 22, 2024 · bdb2f3e · bdb2f3e
1 parent f7d49c5
commit bdb2f3e
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/parinfer-rust-mode.el b/parinfer-rust-mode.el
@@ -614,10 +614,13 @@ CHANGES."
                   (switch-to-buffer current)
                   (if (eq parinfer-rust-buffer-replace-strategy
                           'fast)
-                      (progn
+                      (let ((window-start-pos (window-start)))
                         (delete-region (point-min)
                                        (point-max))
-                        (insert-buffer-substring new-buf))
+                        (insert-buffer-substring new-buf)
+                        (when (not (= window-start-pos
+                                      (window-start)))
+                          (set-window-start (selected-window) window-start-pos)))
                     (replace-buffer-contents new-buf 1))
                   (kill-buffer new-buf)
                   (undo-amalgamate-change-group change-group)))))