summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-25 21:01:19 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-25 21:01:19 +0100
commite6d361eaecb94316f77bcfda1dcaf4e4e27f6ada (patch)
tree8b8c131eb64c26f7ec6f645573aa19c8bfdca6b4 /elisp
parent9e9ebf203176d834e624186343b915c4be34e0b9 (diff)
downloadgeiser-e6d361eaecb94316f77bcfda1dcaf4e4e27f6ada.tar.gz
geiser-e6d361eaecb94316f77bcfda1dcaf4e4e27f6ada.tar.bz2
Tidier titles for doc browser
Just justifying and indenting them.
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)))