diff options
author | Tianxiang Xiong <tianxiang.xiong@gmail.com> | 2017-12-17 18:51:41 -0800 |
---|---|---|
committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2017-12-18 07:36:27 +0000 |
commit | 31325dc16ab9a9612fd7e53c30b208d92b9e2d5f (patch) | |
tree | 120d3fecc8bcdf7637107b6e3999f479da794dd6 /nrepl-client.el | |
parent | 35e6d966cbf61ba35386f82efc32398a867d400f (diff) |
Name var for `with-parsed-tramp-file-name`
Without a named var, `with-parsed-tramp-file-name' expands to bind `port', which
it then `ignore's, w/out var as a prefix; this raises a byte-compiler warning
See: https://travis-ci.org/clojure-emacs/cider/jobs/317868996#L835
Diffstat (limited to 'nrepl-client.el')
-rw-r--r-- | nrepl-client.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/nrepl-client.el b/nrepl-client.el index 78c978a8..5d21a00e 100644 --- a/nrepl-client.el +++ b/nrepl-client.el @@ -584,7 +584,7 @@ If NO-ERROR is non-nil, show messages instead of throwing an error." (defun nrepl--ssh-tunnel-command (ssh dir port) "Command string to open SSH tunnel to the host associated with DIR's PORT." - (with-parsed-tramp-file-name dir nil + (with-parsed-tramp-file-name dir v ;; this abuses the -v option for ssh to get output when the port ;; forwarding is set up, which is used to synchronise on, so that ;; the port forwarding is up when we try to connect. @@ -592,8 +592,8 @@ If NO-ERROR is non-nil, show messages instead of throwing an error." "%s -v -N -L %p:localhost:%p %u'%h'" `((?s . ,ssh) (?p . ,port) - (?h . ,host) - (?u . ,(if user (format "-l '%s' " user) "")))))) + (?h . ,v-host) + (?u . ,(if v-user (format "-l '%s' " v-user) "")))))) (autoload 'comint-watch-for-password-prompt "comint" "(autoload).") |