summaryrefslogtreecommitdiff
path: root/elisp/geiser-doc.el
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
commitd2e44120a83f55e98598bd8d2c7e10f577b97324 (patch)
treee71e0f1019096af54d36591a96a2c318b475e57c /elisp/geiser-doc.el
parent56db9f728629e0859cafa34b53d8a16f34eeef01 (diff)
downloadgeiser-guile-d2e44120a83f55e98598bd8d2c7e10f577b97324.tar.gz
geiser-guile-d2e44120a83f55e98598bd8d2c7e10f577b97324.tar.bz2
Tidier titles for doc browser
Just justifying and indenting them.
Diffstat (limited to 'elisp/geiser-doc.el')
-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)))