summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2013-04-15 11:14:13 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-04-15 11:14:13 +0200
commit8c6eb94980cac77f22d8a972b08a0a2ed4d44b77 (patch)
tree47c2ca4d5061ab19c67db4f9b1919088ab4bc54e
parentb32cc5ea37430c5d06ba2964ccdc430ce0faad80 (diff)
downloadgeiser-chez-8c6eb94980cac77f22d8a972b08a0a2ed4d44b77.tar.gz
geiser-chez-8c6eb94980cac77f22d8a972b08a0a2ed4d44b77.tar.bz2
Racket: correct detection of manual lookup failures
Still a tad messy, because we are always forcing a retort-syntax error and checking its ouput, but good enough for now.
-rw-r--r--elisp/geiser-racket.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index 42bb219..690f71a 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -202,7 +202,7 @@ 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)
@@ -210,9 +210,10 @@ using start-geiser, a procedure in the geiser/server 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))
- ret))
- (msg (if (geiser-eval--retort-error ret) "not found" "done")))
- (minibuffer-message "%s %s" (current-message) msg)
+ ret)))
+ (unless (string-match "^Sending to web browser.+"
+ (geiser-eval--retort-output ret))
+ (minibuffer-message "%s not found" (current-message)))
t))