diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2017-01-17 03:23:02 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2017-01-17 03:23:02 +0100 |
| commit | d3706444c52927db4b7be1415a2991241eb43ed8 (patch) | |
| tree | 1fc00d8a0c231c17b8050d59825ef7a21fe64ac2 /elisp | |
| parent | a5794ca23e671848abae26536693360bff186b02 (diff) | |
| download | geiser-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.el | 16 |
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. |