diff options
| author | Chaos Eternal <chaos@shlug.org> | 2017-09-13 01:25:01 +0800 |
|---|---|---|
| committer | Chaos Eternal <chaos@shlug.org> | 2017-09-13 21:58:11 +0800 |
| commit | 7c517cbc454a14670e6089c9570c1472ba3d3b8e (patch) | |
| tree | f8752d81786404398c54bad7f3866589da7b0057 | |
| parent | 9581e61f9d8839281fe42344dd5fe885ea7359ea (diff) | |
| download | geiser-guile-7c517cbc454a14670e6089c9570c1472ba3d3b8e.tar.gz geiser-guile-7c517cbc454a14670e6089c9570c1472ba3d3b8e.tar.bz2 | |
simple geiser-chez--display-error
| -rw-r--r-- | elisp/geiser-chez.el | 5 |
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) |