diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-24 02:14:11 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-24 02:14:11 +0100 |
| commit | 9d6f58752e0de247eb165a0052116ec97a1afb22 (patch) | |
| tree | 924540d1bdb5422cedefc2c76893a51969ea815c | |
| parent | 2d9404e08295496c4b3cb77805eaf1911c508a57 (diff) | |
| download | geiser-9d6f58752e0de247eb165a0052116ec97a1afb22.tar.gz geiser-9d6f58752e0de247eb165a0052116ec97a1afb22.tar.bz2 | |
Guile: button for texinfo lookup in doc browser
| -rw-r--r-- | elisp/geiser-doc.el | 13 |
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)))) |