diff options
author | Bozhidar Batsov <bozhidar@batsov.com> | 2017-03-04 10:08:46 +0200 |
---|---|---|
committer | Bozhidar Batsov <bozhidar@batsov.com> | 2017-03-04 10:09:03 +0200 |
commit | c529eca1ea384c10a191f155dd75b41f99f5cd3e (patch) | |
tree | fca7626fc6102afbc26eef06fa11790e82563e02 /nrepl-client.el | |
parent | 5d32b960739162b75c044be0175b9564e7b8293e (diff) |
Improve the code style a bit
Diffstat (limited to 'nrepl-client.el')
-rw-r--r-- | nrepl-client.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/nrepl-client.el b/nrepl-client.el index 7b39e889..b63f482c 100644 --- a/nrepl-client.el +++ b/nrepl-client.el @@ -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) |