diff options
| author | Chaos Eternal <chaos@shlug.org> | 2017-01-27 10:40:09 +0800 |
|---|---|---|
| committer | Chaos Eternal <chaos@shlug.org> | 2017-01-27 10:40:09 +0800 |
| commit | 87fb39ce30ac7fdde8c86ed7c70cd15617b7477d (patch) | |
| tree | aa44763e40976a5919534ddfd9d95777f7947c65 /elisp/geiser-mode.el | |
| parent | 46b4c82278029d7193176b72ed3f0d3b1fa8899a (diff) | |
| download | geiser-guile-87fb39ce30ac7fdde8c86ed7c70cd15617b7477d.tar.gz geiser-guile-87fb39ce30ac7fdde8c86ed7c70cd15617b7477d.tar.bz2 | |
bug fix: error message get displayed
Diffstat (limited to 'elisp/geiser-mode.el')
| -rw-r--r-- | elisp/geiser-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el index 6607e86..aebdbce 100644 --- a/elisp/geiser-mode.el +++ b/elisp/geiser-mode.el @@ -155,10 +155,10 @@ With a prefix, revert the effect of `geiser-mode-eval-last-sexp-to-buffer' " geiser-mode-eval-last-sexp-to-buffer)) (str (geiser-eval--retort-result-str ret (when will-eval-to-buffer "")))) (cond ((not will-eval-to-buffer) str) - ((string= "" str)) (err (insert (format "%sERROR:%s" geiser-mode-eval-to-buffer-prefix (geiser-eval--error-str err)))) + ((string= "" str)) (t (push-mark) (insert (format "%s%s" geiser-mode-eval-to-buffer-prefix str)))))) |