summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2017-01-17 03:23:02 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2017-01-17 03:23:02 +0100
commitd3706444c52927db4b7be1415a2991241eb43ed8 (patch)
tree1fc00d8a0c231c17b8050d59825ef7a21fe64ac2 /elisp
parenta5794ca23e671848abae26536693360bff186b02 (diff)
downloadgeiser-d3706444c52927db4b7be1415a2991241eb43ed8.tar.gz
geiser-d3706444c52927db4b7be1415a2991241eb43ed8.tar.bz2
Not inserting an additional \n when eval prefix is empty
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-mode.el16
1 files changed, 8 insertions, 8 deletions
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index dd453b3..743855f 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -1,6 +1,6 @@
;; geiser-mode.el -- minor mode for scheme buffers
-;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017 Jose Antonio Ortega Ruiz
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
@@ -156,13 +156,13 @@ With a prefix, revert the effect of `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 "\n%sERROR:%s\n" geiser-mode-eval-to-buffer-prefix
- (geiser-eval--error-str err))))
- (t (progn
- (push-mark)
- (insert
- (format "\n%s%s\n" geiser-mode-eval-to-buffer-prefix str)))))))
+ (err (insert (format "\n%sERROR:%s\n"
+ geiser-mode-eval-to-buffer-prefix
+ (geiser-eval--error-str err))))
+ (t (progn (push-mark)
+ (insert (format "%s%s\n"
+ geiser-mode-eval-to-buffer-prefix
+ str)))))))
(defun geiser-compile-definition (&optional and-go)
"Compile the current definition in the Geiser REPL.