Display truncated docstring if too large for echo area

* eglot.el (eglot--eldoc-message): Display first line doc.

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 9631c192e6c00ae5acde758099f5f3f4c3a53e8b..2ab4bd864a9bdcab97a2d9df8fde23d27a29cd76 100644 (file)
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -2071,8 +2071,12 @@ Buffer is displayed with `display-buffer', which obeys
           (if eglot-auto-display-help-buffer
               (display-buffer (current-buffer))
             (unless (get-buffer-window (current-buffer))
-              (eglot--message "Help for %s is in %s buffer" eglot--eldoc-hint
-                              (buffer-name eglot--help-buffer))))
+              (eglot--message
+               "%s\n(...truncated. Full help is in `%s')"
+               (truncate-string-to-width
+                (replace-regexp-in-string "\\(.*\\)\n.*" "\\1" string)
+                (frame-width) nil nil "...")
+               (buffer-name eglot--help-buffer))))
           (help-mode)
           t)))))