diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2020-02-25 14:48:04 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2020-03-27 21:38:45 +0100 |
| commit | a11b96fe58a2579e15bfcb642f01e0059da59a87 (patch) | |
| tree | 1aa54d25325a9023b1af7cd09d8ed182f1c5b43a /elisp/geiser-mode.el | |
| parent | 2a7b84b3cd9e58bba064077af78b53abd30766f6 (diff) | |
| download | geiser-a11b96fe58a2579e15bfcb642f01e0059da59a87.tar.gz geiser-a11b96fe58a2579e15bfcb642f01e0059da59a87.tar.bz2 | |
Fix indentation
Diffstat (limited to 'elisp/geiser-mode.el')
| -rw-r--r-- | elisp/geiser-mode.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el index 7b37169..303489d 100644 --- a/elisp/geiser-mode.el +++ b/elisp/geiser-mode.el @@ -163,11 +163,11 @@ With a prefix, revert the effect of `geiser-mode-eval-last-sexp-to-buffer' " (setq bosexp (point)) (forward-sexp) (point))) - (ret-transformer (or geiser-mode-eval-to-buffer-transformer - (lambda (msg is-error?) - (format "%s%s%s" + (ret-transformer (or geiser-mode-eval-to-buffer-transformer + (lambda (msg is-error?) + (format "%s%s%s" geiser-mode-eval-to-buffer-prefix - (if is-error? "ERROR" "") + (if is-error? "ERROR" "") msg)))) (ret (save-excursion (geiser-eval-region bosexp ;beginning of sexp @@ -175,17 +175,17 @@ With a prefix, revert the effect of `geiser-mode-eval-last-sexp-to-buffer' " nil t print-to-buffer-p))) - (err (geiser-eval--retort-error ret)) - (will-eval-to-buffer (if print-to-buffer-p - (not geiser-mode-eval-last-sexp-to-buffer) - geiser-mode-eval-last-sexp-to-buffer)) - (str (geiser-eval--retort-result-str ret + (err (geiser-eval--retort-error ret)) + (will-eval-to-buffer (if print-to-buffer-p + (not 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) - (err (insert (funcall ret-transformer + (err (insert (funcall ret-transformer (geiser-eval--error-str err) t))) - ((string= "" str)) - (t (push-mark) + ((string= "" str)) + (t (push-mark) (insert (funcall ret-transformer str nil)))))) (defun geiser-compile-definition (&optional and-go) |