summaryrefslogtreecommitdiff
path: root/elisp/geiser-doc.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-25 23:43:50 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-25 23:43:50 +0200
commit235543503d09a52a513054ed75ac2506b7ce87bf (patch)
treee75df482f8154e55a1a418fc38b5ccd4c2c09364 /elisp/geiser-doc.el
parent941d65165b3bce917d3bff9952e582800ccf2981 (diff)
downloadgeiser-guile-235543503d09a52a513054ed75ac2506b7ce87bf.tar.gz
geiser-guile-235543503d09a52a513054ed75ac2506b7ce87bf.tar.bz2
C-c z as a to and fro jump, plus documentation.
Diffstat (limited to 'elisp/geiser-doc.el')
-rw-r--r--elisp/geiser-doc.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el
index bd84d7e..e8e3f58 100644
--- a/elisp/geiser-doc.el
+++ b/elisp/geiser-doc.el
@@ -352,6 +352,10 @@ With prefix, the current page is deleted from history."
(set-keymap-parent map button-buffer-map)
map))
+(defun geiser-doc-switch-to-repl ()
+ (interactive)
+ (switch-to-geiser nil nil (current-buffer)))
+
(geiser-menu--defmenu doc geiser-doc-mode-map
("Next page" ("n" "f") geiser-doc-next "Next item"
:enable (geiser-doc--history-next-p))
@@ -359,7 +363,7 @@ With prefix, the current page is deleted from history."
:enable (geiser-doc--history-previous-p))
("Next link" nil forward-button)
("Previous link" nil backward-button)
- ("Go to REPL" ("z" "\C-cz" "\C-c\C-z") switch-to-geiser)
+ ("Go to REPL" ("z" "\C-cz" "\C-c\C-z") geiser-doc-switch-to-repl)
("Refresh" ("g" "r") geiser-doc-refresh "Refresh current page")
--
("Edit symbol" ("." "\M-.") geiser-doc-edit-symbol-at-point