summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChaos Eternal <chaos@shlug.org>2017-09-13 01:25:01 +0800
committerChaos Eternal <chaos@shlug.org>2017-09-13 21:58:11 +0800
commit6eb6a92d5178e73c5097e9166b29a6b88910c823 (patch)
tree9671f40711cc6583909c430ffc47eee17733d836
parente038c289b15d6895c78d7694c12e75129bd2f4aa (diff)
downloadgeiser-chez-6eb6a92d5178e73c5097e9166b29a6b88910c823.tar.gz
geiser-chez-6eb6a92d5178e73c5097e9166b29a6b88910c823.tar.bz2
simple geiser-chez--display-error0.10
-rw-r--r--elisp/geiser-chez.el5
1 files changed, 4 insertions, 1 deletions
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)