We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 09501d4 commit f349d7dCopy full SHA for f349d7d
jcs-poptip.el
@@ -204,8 +204,13 @@ forever delay. HEIGHT of the tooltip that will display."
204
205
(defun jcs-poptip--describe-it ()
206
"Describe symbol at point."
207
- (when-let (((derived-mode-p 'lisp-data-mode))
208
- (desc (jcs-poptip--describe-symbol-string)))
+ (when-let* (((derived-mode-p 'lisp-data-mode))
+ (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)))))
214
(if (or (string-empty-p desc)
215
(string= (string-trim desc) "[back]"))
216
(error "[ERROR] No description at point")
0 commit comments