summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-24 02:14:11 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-24 02:14:11 +0100
commit9d6f58752e0de247eb165a0052116ec97a1afb22 (patch)
tree924540d1bdb5422cedefc2c76893a51969ea815c
parent2d9404e08295496c4b3cb77805eaf1911c508a57 (diff)
downloadgeiser-9d6f58752e0de247eb165a0052116ec97a1afb22.tar.gz
geiser-9d6f58752e0de247eb165a0052116ec97a1afb22.tar.bz2
Guile: button for texinfo lookup in doc browser
-rw-r--r--elisp/geiser-doc.el13
1 files changed, 9 insertions, 4 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el
index f1f0aa0..eec0577 100644
--- a/elisp/geiser-doc.el
+++ b/elisp/geiser-doc.el
@@ -170,9 +170,12 @@ help (e.g. browse an HTML page) implementing this method.")
'follow-link t)
(defun geiser-doc--insert-xbutton (&optional manual)
- (insert-text-button (if manual "[manual]" "[source]")
+ (let ((label (if manual "[manual]" "[source]"))
+ (help (if manual "Look up in Scheme manual" "Go to definition")))
+ (insert-text-button label
:type 'geiser-doc--xbutton
- 'x-kind (if manual 'manual 'source)))
+ 'help-echo help
+ 'x-kind (if manual 'manual 'source))))
(defun geiser-doc--insert-xbuttons (impl)
(when (geiser-impl--method 'external-help impl)
@@ -230,15 +233,17 @@ help (e.g. browse an HTML page) implementing this method.")
(or nxt 0)))))
(when (or prev nxt)
(insert (make-string len ?\ )))
- (when (geiser-doc--history-previous-p)
+ (when prev
(insert-text-button "[back]"
'action '(lambda (b) (geiser-doc-previous))
+ 'help-echo "Previous help item"
'face 'geiser-font-lock-doc-button
'follow-link t)
(insert " "))
- (when (geiser-doc--history-next-p)
+ (when nxt
(insert-text-button "[forward]"
'action '(lambda (b) (geiser-doc-next))
+ 'help-echo "Next help item"
'face 'geiser-font-lock-doc-button
'follow-link t))))