Remember window position after formatting

Suggested in issue #173.
lassik · Dec 10, 2022 · c156ffe · c156ffe
1 parent 1f6b52a
commit c156ffe
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/format-all.el b/format-all.el
@@ -1484,12 +1484,15 @@ STATUS and ERROR-OUTPUT come from the formatter."
 (defun format-all--save-line-number (thunk)
   "Internal helper function to run THUNK and go back to the same line."
   (let ((old-line-number (line-number-at-pos))
-        (old-column (current-column)))
+        (old-column (current-column))
+        (old-window (selected-window))
+        (old-window-start (window-start)))
     (funcall thunk)
     (goto-char (point-min))
     (forward-line (1- old-line-number))
     (let ((line-length (- (point-at-eol) (point-at-bol))))
-      (goto-char (+ (point) (min old-column line-length))))))
+      (goto-char (+ (point) (min old-column line-length))))
+    (set-window-start old-window old-window-start)))
 
 (defun format-all--run-chain (language chain region)
   "Internal function to run a formatter CHAIN on the current buffer.