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 | 7be1dd2a46d2d025d779a156236240d3b737862f (patch) | |
tree | d42acdc188cdfb2231549375c8a7c91b8cec3839 | |
parent | 2debaa8433970d215dfcd7091c8c5ca7357e864d (diff) | |
download | geiser-7be1dd2a46d2d025d779a156236240d3b737862f.tar.gz geiser-7be1dd2a46d2d025d779a156236240d3b737862f.tar.bz2 |
bug fix: error message get displayed
-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)))))) |