Skip to content

Commit

Permalink
Improve the code style a bit
Browse files Browse the repository at this point in the history
  • Loading branch information
bbatsov committed Mar 4, 2017
1 parent 5d32b96 commit c529eca
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions nrepl-client.el
Original file line number Diff line number Diff line change
Expand Up @@ -546,8 +546,10 @@ If NO-ERROR is non-nil, show messages instead of throwing an error."
(prog1 (list :proc (open-network-stream "nrepl-connection" nil host port)
:host host :port port)
(message "[nREPL] Direct connection established"))
(error (let ((mes "[nREPL] Direct connection failed"))
(if no-error (message mes) (error mes))
(error (let ((msg "[nREPL] Direct connection failed"))
(if no-error
(message msg)
(error msg))
nil)))))

(defun nrepl--ssh-tunnel-connect (host port)
Expand Down

0 comments on commit c529eca

Please sign in to comment.