summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-doc.el10
1 files changed, 4 insertions, 6 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el
index a25dd96..2e8b4a2 100644
--- a/elisp/geiser-doc.el
+++ b/elisp/geiser-doc.el
@@ -216,12 +216,10 @@ help (e.g. browse an HTML page) implementing this method.")
(defun geiser-doc--insert-title (title)
(let ((p (point)))
- (if (not (listp title))
- (insert (format "%s" title))
- (insert "(" (format "%s" (car title)))
- (dolist (a (cdr title))
- (insert " " (if (eq a :rest) "." (format "%s" a))))
- (insert ")"))
+ (insert (format "%s" title))
+ (fill-paragraph)
+ (let ((indent-line-function 'lisp-indent-line))
+ (indent-region p (point)))
(put-text-property p (point) 'face 'geiser-font-lock-doc-title)
(newline)))