summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2013-04-17 18:14:31 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-04-17 18:14:31 +0200
commit8b16e095fd38bc3ca0c51b8b97b449f6a8d80e1b (patch)
treea3605367faf763cec48747450b2257bac7a53009
parent496efc48adf247cd5d17beb436f71f38a89f9f1d (diff)
downloadgeiser-guile-8b16e095fd38bc3ca0c51b8b97b449f6a8d80e1b.tar.gz
geiser-guile-8b16e095fd38bc3ca0c51b8b97b449f6a8d80e1b.tar.bz2
Racket: fix for jump to manual for symbols not in the namespace
We had broken using the hint that `help` offers during our recent adventures...
-rw-r--r--elisp/geiser-racket.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index 690f71a..65e5e36 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -202,11 +202,11 @@ using start-geiser, a procedure in the geiser/server module."
;;; External help
(defsubst geiser-racket--get-help (symbol module)
- (geiser-eval--send/wait `(:scm ,(format ",help %s %S" symbol module))))
+ (geiser-eval--send/wait `(:scm ,(format ",help %s %s" symbol module))))
(defun geiser-racket--external-help (id module)
(message "Looking up manual for '%s'..." id)
- (let* ((ret (geiser-racket--get-help id module))
+ (let* ((ret (geiser-racket--get-help id (format "%S" module)))
(out (geiser-eval--retort-output ret))
(ret (if (and out (string-match " but provided by:\n +\\(.+\\)\n" out))
(geiser-racket--get-help id (match-string 1 out))