Skip to content

Commit 31325dc

Browse files
xiongtxbbatsov
authored andcommitted
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
1 parent 35e6d96 commit 31325dc

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

nrepl-client.el

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -584,16 +584,16 @@ If NO-ERROR is non-nil, show messages instead of throwing an error."
584584

585585
(defun nrepl--ssh-tunnel-command (ssh dir port)
586586
"Command string to open SSH tunnel to the host associated with DIR's PORT."
587-
(with-parsed-tramp-file-name dir nil
587+
(with-parsed-tramp-file-name dir v
588588
;; this abuses the -v option for ssh to get output when the port
589589
;; forwarding is set up, which is used to synchronise on, so that
590590
;; the port forwarding is up when we try to connect.
591591
(format-spec
592592
"%s -v -N -L %p:localhost:%p %u'%h'"
593593
`((?s . ,ssh)
594594
(?p . ,port)
595-
(?h . ,host)
596-
(?u . ,(if user (format "-l '%s' " user) ""))))))
595+
(?h . ,v-host)
596+
(?u . ,(if v-user (format "-l '%s' " v-user) ""))))))
597597

598598
(autoload 'comint-watch-for-password-prompt "comint" "(autoload).")
599599

0 commit comments

Comments
 (0)