lispy-inline.el (lispy--describe-inline): Add pos arg

Author: abo-abo

lispy-inline.el

@@ -218,19 +218,15 @@ The caller of `lispy--show' might use a substitute e.g. `describe-function'."
 
 (declare-function geiser-doc-symbol-at-point "geiser-doc")
 
-(defun lispy--describe-inline (str)
+(defun lispy--describe-inline (str pos)
   "Toggle the overlay hint."
   (condition-case nil
-      (let ((new-hint-pos (lispy--hint-pos)))
-        (if (and (eq lispy-hint-pos new-hint-pos)
-                 (overlayp lispy-overlay))
-            (lispy--cleanup-overlay)
-          (save-excursion
-            (when (= 0 (count-lines (window-start) (point)))
-              (recenter 1))
-            (setq lispy-hint-pos new-hint-pos)
-            (goto-char lispy-hint-pos)
-            (lispy--show (propertize str 'face 'lispy-face-hint)))))
+      (save-excursion
+        (when (= 0 (count-lines (window-start) (point)))
+          (recenter 1))
+        (setq lispy-hint-pos pos)
+        (goto-char lispy-hint-pos)
+        (lispy--show (propertize str 'face 'lispy-face-hint)))
     (error
      (lispy--cleanup-overlay))))
 
@@ -315,8 +311,13 @@ The caller of `lispy--show' might use a substitute e.g. `describe-function'."
         ((eq major-mode 'scheme-mode)
          (geiser-doc-symbol-at-point))
         (t
-         (lispy--describe-inline
-          (lispy--docstring (lispy--current-function))))))
+         (let ((new-hint-pos (lispy--hint-pos)))
+           (if (and (eq lispy-hint-pos new-hint-pos)
+                    (overlayp lispy-overlay))
+               (lispy--cleanup-overlay)
+             (lispy--describe-inline
+              (lispy--docstring (lispy--current-function))
+              new-hint-pos))))))
 
 (declare-function lispy--python-docstring "le-python")
 (declare-function lispy--python-arglist "le-python")