[nongnu] elpa/geiser-racket fd12248 128/191: Racket: correct detection of manual lookup failures

[Philip Kaludercic]

branch: elpa/geiser-racket
commit fd122487abfebb6067f430f7a23a317fdc6fd665
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    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))