diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-04-17 18:14:31 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-04-17 18:14:31 +0200 |
| commit | 8b16e095fd38bc3ca0c51b8b97b449f6a8d80e1b (patch) | |
| tree | a3605367faf763cec48747450b2257bac7a53009 /elisp | |
| parent | 496efc48adf247cd5d17beb436f71f38a89f9f1d (diff) | |
| download | geiser-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...
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-racket.el | 4 |
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)) |