Tweak solution to #125 with a hint from Fangrui Song

* eglot.el (eglot-move-to-lsp-abiding-column): Simplify slightly.
joaotavora · Nov 13, 2018 · b31ba80 · b31ba80
1 parent b9e9cf3
commit b31ba80
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/eglot.el b/eglot.el
@@ -752,8 +752,7 @@ managed by those servers.")
                        2)
                     2))
    until (zerop diff)
-   for offset = (max 1 (abs (/ diff 2)))
-   do (if (> diff 0) (forward-char offset) (backward-char offset))))
+   do (forward-char (/ (if (> diff 0) (1+ diff) (1- diff)) 2))))
 
 (defun eglot--lsp-position-to-point (pos-plist &optional marker)
   "Convert LSP position POS-PLIST to Emacs point.