From 8c6eb94980cac77f22d8a972b08a0a2ed4d44b77 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 15 Apr 2013 11:14:13 +0200 Subject: 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. --- elisp/geiser-racket.el | 9 +++++---- 1 file 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)) -- cgit v1.2.3