summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorChaos Eternal <chaos@shlug.org>2017-01-27 10:40:09 +0800
committerChaos Eternal <chaos@shlug.org>2017-01-27 10:40:09 +0800
commit7be1dd2a46d2d025d779a156236240d3b737862f (patch)
treed42acdc188cdfb2231549375c8a7c91b8cec3839 /elisp
parent2debaa8433970d215dfcd7091c8c5ca7357e864d (diff)
downloadgeiser-7be1dd2a46d2d025d779a156236240d3b737862f.tar.gz
geiser-7be1dd2a46d2d025d779a156236240d3b737862f.tar.bz2
bug fix: error message get displayed
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-mode.el2
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))))))