Skip to content

Commit f349d7d

Browse files
committed
feat: Don't limit width
1 parent 09501d4 commit f349d7d

File tree

1 file changed

+7
-2
lines changed

1 file changed

+7
-2
lines changed

jcs-poptip.el

Lines changed: 7 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -204,8 +204,13 @@ forever delay. HEIGHT of the tooltip that will display."
204204

205205
(defun jcs-poptip--describe-it ()
206206
"Describe symbol at point."
207-
(when-let (((derived-mode-p 'lisp-data-mode))
208-
(desc (jcs-poptip--describe-symbol-string)))
207+
(when-let* (((derived-mode-p 'lisp-data-mode))
208+
(desc (jcs-poptip--describe-symbol-string))
209+
(desc (with-temp-buffer
210+
(let ((fill-column (frame-width)))
211+
(insert desc)
212+
(fill-region (point-min) (point-max))
213+
(buffer-string)))))
209214
(if (or (string-empty-p desc)
210215
(string= (string-trim desc) "[back]"))
211216
(error "[ERROR] No description at point")

0 commit comments

Comments
 (0)