corfu-docframe: Cleanup doc string

1 files changed, 4 insertions, 2 deletions

diff --git a/extensions/corfu-docframe.el b/extensions/corfu-docframe.el
index feba5e0..224902d 100644
--- a/extensions/corfu-docframe.el
+++ b/extensions/corfu-docframe.el
@@ -119,8 +119,10 @@ Returns nil if an error occurs or the documentation content is empty."
                            (message-log-max nil))
                        (funcall fun candidate)))))
     (with-current-buffer (or (car-safe res) res)
-      (setq res (buffer-string)))
-    (and (not (string-empty-p (string-trim res))) res)))
+      (setq res (replace-regexp-in-string
+                 "[\\s-\n]*\\[back\\][\\s-\n]*" ""
+                 (buffer-string))
+      (and (not (string-blank-p res)) res))))
 
 ;; TODO get rid of optional arguments?
 (defun corfu-docframe--size (&optional width height)