From 5e1a4995ee1211f2a57d4fce4101b81be13d87db Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sat, 13 Oct 2012 04:14:25 +0200
Subject: [PATCH] Manual lookup shortcut (C-c C-d i) also in REPL buffers

---
 doc/cheat.texi       | 3 +++
 doc/repl.texi        | 4 +++-
 elisp/geiser-repl.el | 3 +++
 3 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/doc/cheat.texi b/doc/cheat.texi
index bdcd2aa..0d5403e 100644
--- a/doc/cheat.texi
+++ b/doc/cheat.texi
@@ -154,6 +154,9 @@ third key not modified by @key{Control}; e.g.,
 @item C-c C-d C-d
 @tab @code{geiser-doc-symbol-at-point}
 @tab See documentation for symbol at point
+@item C-c C-d C-i
+@tab @code{geiser-doc-look-up-manual}
+@tab Look up manual for symbol at point
 @item C-c C-d C-m
 @tab @code{geiser-repl--doc-module}
 @tab See documentation for module
diff --git a/doc/repl.texi b/doc/repl.texi
index 445811a..285f8f8 100644
--- a/doc/repl.texi
+++ b/doc/repl.texi
@@ -249,7 +249,9 @@ buffer will contain implementation-specific information about the
 identifier (e.g., its docstring for Guile, or its contract, if any, for
 Racket), and a handy button to open the corresponding manual entry for
 the symbol, which will open an HTML page (for Racket) or the texinfo
-manual (for Guile).
+manual (for Guile). If you'd rather go directly to the manual, try
+@kbd{C-c C-d i}, which invokes @code{geiser-doc-look-up-manual} as the
+handy button does.
 
 @cindex module exports
 @anchor{repl-mod} Geiser can also produce for you a list, classified by
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index c8846ea..b586efa 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -599,6 +599,9 @@ buffer."
   ("Symbol documentation" ("\C-c\C-dd" "\C-c\C-d\C-d")
    geiser-doc-symbol-at-point
    "Documentation for symbol at point" :enable (geiser--symbol-at-point))
+  ("Lookup symbol in manul" ("\C-c\C-di" "\C-c\C-d\C-i")
+   geiser-doc-look-up-manual
+   "Documentation for symbol at point" :enable (geiser--symbol-at-point))
   ("Module documentation" ("\C-c\C-dm" "\C-c\C-d\C-m") geiser-repl--doc-module
    "Documentation for module at point" :enable (geiser--symbol-at-point))
   --
-- 
2.11.4.GIT