diff options
author | Bozhidar Batsov <bozhidar@batsov.com> | 2017-12-16 17:07:34 +0200 |
---|---|---|
committer | Bozhidar Batsov <bozhidar@batsov.com> | 2017-12-16 17:07:34 +0200 |
commit | 95a168ff3b2936407edb612b96b3f7fdd3d13687 (patch) | |
tree | 33ccd9671537142bb99e5157e3a336c621056ef4 /cider-repl.el | |
parent | c61037ef59f9ef33c4e7010bce158b502b827e3c (diff) |
Make show-prefix a required param for cider-repl-emit result
It's used in all the existing function invocations, so there's no point
to have it as an optional param.
Diffstat (limited to 'cider-repl.el')
-rw-r--r-- | cider-repl.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/cider-repl.el b/cider-repl.el index 17bb8871..815891a2 100644 --- a/cider-repl.el +++ b/cider-repl.el @@ -698,11 +698,10 @@ If BOL is non-nil, emit at the beginning of the line." (cider-repl--insert-prompt cider-buffer-ns)))) (cider-repl--show-maximum-output))) -(defun cider-repl-emit-result (buffer string &optional bol show-prefix) +(defun cider-repl-emit-result (buffer string show-prefix &optional bol) "Emit into BUFFER the result STRING and mark it as an evaluation result. -If BOL is non-nil insert at the beginning of the line. If SHOW-PREFIX is non-nil insert `cider-repl-result-prefix' at the beginning -of the line." +of the line. If BOL is non-nil insert at the beginning of the line." (with-current-buffer buffer (save-excursion (cider-save-marker cider-repl-output-start @@ -771,7 +770,7 @@ the symbol." (nrepl-make-response-handler buffer (let (after-first-result-chunk) (lambda (buffer value) - (cider-repl-emit-result buffer value t (not after-first-result-chunk)) + (cider-repl-emit-result buffer value (not after-first-result-chunk) t) (setq after-first-result-chunk t))) (lambda (buffer out) (cider-repl-emit-stdout buffer out)) @@ -782,7 +781,7 @@ the symbol." nrepl-err-handler (let (after-first-result-chunk) (lambda (buffer pprint-out) - (cider-repl-emit-result buffer pprint-out nil (not after-first-result-chunk)) + (cider-repl-emit-result buffer pprint-out (not after-first-result-chunk)) (setq after-first-result-chunk t))))) (defun cider-repl--send-input (&optional newline) |