fix: Avoid scroll being mess up

emacs-vs · Jun 23, 2024 · bce8ef5 · bce8ef5
1 parent 25bc31d
commit bce8ef5
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/vs-edit-mode.el b/vs-edit-mode.el
@@ -379,17 +379,20 @@
 (defun vs-edit-format-document ()
   "Format current document."
   (interactive)
-  (or (and (featurep 'lsp-mode)
+  (message nil)  ; avoid scroll mess up
+  (or (and (bound-and-true-p lsp-managed-mode)
            (ignore-errors (lsp-format-buffer)))
       (indent-region (point-min) (point-max))))
 
 ;;;###autoload
 (defun vs-edit-format-region-or-document ()
   "Format the document if there are no region apply."
   (interactive)
-  (if (use-region-p)
-      (indent-region (region-beginning) (region-end))
-    (vs-edit-format-document)))
+  (cond ((use-region-p)
+         (message nil)  ; avoid scroll mess up
+         (indent-region (region-beginning) (region-end)))
+        (t
+         (vs-edit-format-document))))
 
 ;;
 ;; (@* "Folding" )