Tweak solution to joaotavora/eglot#125 with a hint from Fangrui Song

* eglot.el (eglot-move-to-lsp-abiding-column): Simplify slightly.
bhankas · Nov 13, 2018 · 1b582c1 · 1b582c1
1 parent d22c8ef
commit 1b582c1
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/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.