[nongnu] elpa/geiser-chez 6eb6a92 10/37: simple geiser-chez--display-error

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 6eb6a92d5178e73c5097e9166b29a6b88910c823
Author: Chaos Eternal <ch...@shlug.org>
Commit: Chaos Eternal <ch...@shlug.org>

    simple geiser-chez--display-error
---
 elisp/geiser-chez.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el
index 17b6c8d..2bd45f1 100644
--- a/elisp/geiser-chez.el
+++ b/elisp/geiser-chez.el
@@ -102,6 +102,9 @@ This function uses `geiser-chez-init-file' if it exists."
   (let ((geiser-log-verbose-p t))
     (compilation-setup t)
     (geiser-eval--send/wait "(begin (import (geiser)) (write `((result ) 
(output . \"\"))) (newline))")))
+
+(defun geiser-chez--display-error (module key msg)
+  (and key (message key) nil))
 
 ;;; Implementation definition:
 
@@ -120,7 +123,7 @@ This function uses `geiser-chez-init-file' if it exists."
   (exit-command geiser-chez--exit-command)
   (import-command geiser-chez--import-command)
   (find-symbol-begin geiser-chez--symbol-begin)
-  ;; (display-error geiser-chez--display-error)
+  (display-error geiser-chez--display-error)
   ;; (external-help geiser-chez--manual-look-up)
   ;; (check-buffer geiser-chez--guess)
   ;; (keywords geiser-chez--keywords)