diff options
author | Konstantin Zudov <co@zudov.me> | 2017-03-08 12:37:57 +0200 |
---|---|---|
committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2017-03-08 12:37:57 +0200 |
commit | 920ce47bf78677dfefeaf8548b8a9d816f0fedc5 (patch) | |
tree | f6715a1571186e5ef2c76203db28624b7020de62 /nrepl-client.el | |
parent | c95db5e622ea6be556370d51e8007cf4145db445 (diff) |
Fix nrepl--direct-connect error formatting in the let binding (#1954)
Seems like a bug crawled into 0fb25a8.
The compiled version would have fail like:
[nREPL] Establishing direct connection to somehost:42 ...
nrepl--direct-connect: Not enough arguments for format string
Interactively loading `nrepl--direct-connect` function, would
have fail with "let bindings can have only one value form" kind of error.
After this commit the thing fails in a more appropriate way:
[nREPL] Establishing direct connection to somehost:42 ...
[nREPL] Direct connection to somehost:42 failed
nrepl-connect: [nREPL] Cannot connect to somehost:42
Diffstat (limited to 'nrepl-client.el')
-rw-r--r-- | nrepl-client.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/nrepl-client.el b/nrepl-client.el index 29358120..30be0ad9 100644 --- a/nrepl-client.el +++ b/nrepl-client.el @@ -554,7 +554,7 @@ 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 to %s:%s established" host port)) - (error (let ((msg "[nREPL] Direct connection to %s:%s failed" host port)) + (error (let ((msg (format "[nREPL] Direct connection to %s:%s failed" host port))) (if no-error (message msg) (error msg)) |