diff options
| -rw-r--r-- | cider-interaction.el | 14 | ||||
| -rw-r--r-- | cider-selector.el | 8 | ||||
| -rw-r--r-- | cider-test.el | 2 | ||||
| -rw-r--r-- | cider.el | 2 | ||||
| -rw-r--r-- | nrepl-client.el | 2 |
5 files changed, 14 insertions, 14 deletions
diff --git a/cider-interaction.el b/cider-interaction.el index f5e1d353..70ef3622 100644 --- a/cider-interaction.el +++ b/cider-interaction.el @@ -1106,10 +1106,10 @@ They exist for compatibility with `next-error'." "(clojure.stacktrace/print-cause-trace *e)" (lambda (response) (nrepl-dbind-response response (out) - (when out - (with-current-buffer buffer - (cider-emit-into-color-buffer buffer out) - (compilation-minor-mode +1))))) + (when out + (with-current-buffer buffer + (cider-emit-into-color-buffer buffer out) + (compilation-minor-mode +1))))) nil session)) @@ -1125,9 +1125,9 @@ They exist for compatibility with `next-error'." (list "print-level" cider-stacktrace-print-level))) (lambda (response) (nrepl-dbind-response response (class status) - (cond (class (setq causes (cons response causes))) - (status (when causes - (cider-stacktrace-render buffer (reverse causes)))))))))) + (cond (class (setq causes (cons response causes))) + (status (when causes + (cider-stacktrace-render buffer (reverse causes)))))))))) (defun cider--show-error-buffer-p (buffer) "Return non-nil if stacktrace buffer must be shown on error. diff --git a/cider-selector.el b/cider-selector.el index 661941f3..9c77f658 100644 --- a/cider-selector.el +++ b/cider-selector.el @@ -105,7 +105,7 @@ is chosen. The returned buffer is selected with `(setq cider-selector-methods (cl-sort (cons (list ,key ,description ,method) (cl-remove ,key cider-selector-methods :key #'car)) - #'< :key #'car)))) + #'< :key #'car)))) (def-cider-selector-method ?? "Selector help buffer." (ignore-errors (kill-buffer cider-selector-help-buffer)) @@ -151,9 +151,9 @@ is chosen. The returned buffer is selected with cider-error-buffer) (def-cider-selector-method ?s - "Cycle to the next CIDER connection's REPL." - (cider-rotate-connection) - (cider-get-repl-buffer)) + "Cycle to the next CIDER connection's REPL." + (cider-rotate-connection) + (cider-get-repl-buffer)) (provide 'cider-selector) diff --git a/cider-test.el b/cider-test.el index a7b27766..6ce527fe 100644 --- a/cider-test.el +++ b/cider-test.el @@ -454,7 +454,7 @@ current ns." (clojure-find-ns) (or (funcall cider-test-infer-test-ns (clojure-find-ns)) (when (eq major-mode 'cider-test-report-mode) - cider-test-last-test-ns)))) + cider-test-last-test-ns)))) (cider-test-execute ns nil) (message "No namespace to test in current context"))) @@ -198,7 +198,7 @@ Create REPL buffer and start an nREPL client connection." (-when-let (repl-buff (nrepl-find-reusable-repl-buffer `(,host ,port) nil)) (let ((nrepl-create-client-buffer-function #'cider-repl-create) (nrepl-use-this-as-repl-buffer repl-buff)) - (nrepl-start-client-process host port)))) + (nrepl-start-client-process host port)))) (defun cider-select-endpoint () "Interactively select the host and port to connect to." diff --git a/nrepl-client.el b/nrepl-client.el index 486bd05c..23c52b6f 100644 --- a/nrepl-client.el +++ b/nrepl-client.el @@ -310,7 +310,7 @@ be reused." (zombi-buffer-or-new)) exact-buff) (zombi-buffer-or-new))))) - + (defun nrepl-extract-port (&optional dir) "Read port from .nrepl-port, nrepl-port or target/repl-port files in directory DIR." (-when-let (dir (or dir (nrepl-project-directory-for (nrepl-current-dir)))) |