don't show autodoc if there's more pending maybe-show-autodoc

neomacs-project · Nov 24, 2024 · 4cee1e2 · 4cee1e2
1 parent da51470
commit 4cee1e2
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/modes/lisp.lisp b/modes/lisp.lisp
@@ -962,6 +962,9 @@ sb-introspect:definition-source)'."
 
 (defun maybe-show-autodoc (buffer)
   (sleep *autodoc-delay*)
+  (unless (sb-concurrency:mailbox-empty-p
+           (gethash (bt:current-thread) *helper-mailboxes*))
+    (return-from maybe-show-autodoc))
   (with-current-buffer buffer
     (when-let* ((frame-root (current-frame-root))
                 (echo-area (echo-area frame-root)))